pointing to Databases :P

[GrImShEePeR]

Right me laddos!

How can i tell an ADODC to look up a database in the current directory of the program.

i believe ive tried ".\main.mdb" , "main.mdb" and "\main.mdb"

BUT I JUST CANT DO IT!!!

plz help me if u can, cheers!

[SLH]

I think you would have to do it in code...

i.e.

msgbox app.path & "\MyFile.mdb"

[GrImShEePeR]

sorry but whats with the message box?

i have a form, with an ADODC on it, linking to an access database in the background, all i wana do is try and make the address for the database the same as the route for the program, is that how i need to go about it then?

[mendhak]

Originally posted by GrImShEePeR
sorry but whats with the message box?

i have a form, with an ADODC on it, linking to an access database in the background, all i wana do is try and make the address for the database the same as the route for the program, is that how i need to go about it then?

Spongebob Squarepants is right.... You have to set it as App.Path & mydatabase.mdb

The messagebox was just a demonstration. I thought it was funny the way you answered him (No off 2 any1)

[SLH]

I havn't used an ADODC object before, so i don't know what the property is that points to the actual database file.

If it was 'DatabaseName' (like a data object) then i would use the following in the form_load event.

ADODC1.DatabaseName = app.path & "\MyFile.mdb"

I just did the msgbox thing so you'd get an idea of what app.path returned, sorry if it confused you.

[GrImShEePeR]

ok so if i have this :

Private Sub Image1_Click()

End Sub

Private Sub cmdMenu_Click()
Menu.Show
Millennium.Hide
End Sub

Private Sub Command1_Click()
    Menu.Show
    Millennium.Hide
End Sub


Private Sub Form_Load()

End Sub

Private Sub txtcustID_Change()
    Adodc1.RecordSource = "select error from errors where cust_ID= " & txtcustID.Text
    Adodc1.Refresh
    Adodc2.RecordSource = "select part_name from repair where cust_ID= " & txtcustID.Text
    Adodc2.Refresh
End Sub

where am i lookin at putting this?

(sorry i r n00b)

[SLH]

Private Sub Image1_Click()
 
End Sub
 
Private Sub cmdMenu_Click()
Menu.Show
Millennium.Hide
End Sub
 
Private Sub Command1_Click()
    Menu.Show
    Millennium.Hide
End Sub
 
 
Private Sub Form_Load()
[B]ADODC1.DatabaseName = app.path & "\MyFile.mdb"[/B] 'Assuming this is the right property to use
End Sub
 
Private Sub txtcustID_Change()
    Adodc1.RecordSource = "select error from errors where cust_ID= " & txtcustID.Text
    Adodc1.Refresh
    Adodc2.RecordSource = "select part_name from repair where cust_ID= " & txtcustID.Text
    Adodc2.Refresh
End Sub

[mendhak]

Make the following changes to your code:



Adodc1.RecordSource = "select error from errors where cust_ID= '" & txtcustID.Text & "'"
Adodc1.Refresh
Adodc2.RecordSource = "select part_name from repair where cust_ID= '" & txtcustID.Text & "'"
Adodc2.Refresh

[GrImShEePeR]

hehe, cheers guys, thanks for helping!

But, are we sure this is gona work, im gona go try it now tho!

[GrImShEePeR]

Originally posted by mendhak
Make the following changes to your code:

ROFL, what did u actually change??


ahhhhhhhhh quotes

[GrImShEePeR]

can u check for yourselves, i promise its a safe file

(self extracting exe of my program)

http://www.tele2.co.uk/~zerocool/Install_MBS.exe