Confused About Database Problem!

[stickman373]

Below i have my code for accesing a database and when i move where the exe file and database are located on my computer it gives me error cannot find path. C:\Windows\Desktop\Project\db1.mdb

Why does it do this when my code is:

Set DB = DAO.OpenDatabase(App.Path & "\db1.mdb")

The Database is accessed from a different form with this code:

Private Sub Command1_Click()
Load frmMovieInfo
frmMovieInfo.Show
Call frmMovieInfo.Memento
End Sub

Database Code:

Dim DB As Database
Dim rs As Recordset
 
Private Sub cmdNext_Click()
    FillFields
    
    rs.MoveNext
    If rs.EOF Then
    rs.MoveFirst
    
End If
End Sub
 
Public Sub AI()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'A.I. : Artificial Intelligence' ")
    FillFields
End Sub
 
Private Sub Form_Load()
Set DB = DAO.OpenDatabase(App.Path & "\db1.mdb")
End Sub
 
Private Sub cmdPrevious_Click()
    FillFields
    
    rs.MovePrevious
    If rs.BOF Then
    rs.MoveLast
End If
End Sub
 
Public Sub FillFields()
    txtPlot.Text = rs.Fields("Plot")
    txtTitle.Text = rs.Fields("Title")
    txtYear.Text = rs.Fields("Year")
    txtGenre.Text = rs.Fields("Genre")
    txtFormat.Text = rs.Fields("Format")
    txtSize.Text = rs.Fields("Size")
    txtUploader.Text = rs.Fields("Uploader")
    txtSoundQ.Text = rs.Fields("SoundRating")
    txtPlotQ.Text = rs.Fields("Plot Rating")
    txtQualityQ.Text = rs.Fields("QualityRating")
    Image1.Picture = LoadPicture(rs.Fields("Picture") & "")
End Sub
 
Private Sub Picture2_Click()
Unload Me
End Sub
 
Public Sub Animal()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'The Animal' ")
    FillFields
End Sub
 
Public Sub Atlantis()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Atlantis: The Lost Empire' ")
    FillFields
End Sub
 
Public Sub Memento()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Memento' ")
    FillFields
End Sub
 
Public Sub FinalFantasy()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Final Fantasy: The Spirits Within' ")
    FillFields
End Sub
 
Public Sub Pearlharbor()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Pearl Harbor' ")
    FillFields
End Sub
 
Public Sub Shrek()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Shrek' ")
    FillFields
End Sub
 
Public Sub Swordfish()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Swordfish' ")
    FillFields
End Sub
 
Public Sub Tommyboy()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Tommy Boy' ")
    FillFields
End Sub
 
Public Sub MenofHonor()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Men Of Honor' ")
    FillFields
End Sub
 
Public Sub ScaryMovie2()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Scary Movie 2' ")
    FillFields
End Sub
 
Public Sub Bedazzled()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'Bedazzled' ")
    FillFields
End Sub
 
Public Sub TheUsualSuspects()
Set rs = DB.OpenRecordset("Select * From Table1 Where Title = 'The Usual Suspects' ")
    FillFields
End Sub

[rudvs2]

Instead of using app.path why dont you provide the end user with the option of locating the database. That way if they want to move it from the apps install folder your program isnt going to fall over.

You could even make your app super smart and (if your db is going to be statically named) get it to search the drive for the database and set path into a reg entry or something

[stickman373]

I figured it out. Sorry for the wasted post!