ich habe ein kleines VB Programm etwickelt und davon ein setUp gemacht und installiert, jetzt habe ich es ausgeführt und es kommmt zu Fehlermeldung daß es kein Datenbank findet(test.mdb), könnte es sein daß ich den sogennaten ODBC Treiber installierem muss, wen ja wie kan ich es machen, ich habe WinXP rechner.
die Verbindung zur Datenbank sieht so aus bei mir
Public Sub OpenMDB()
On Error Resume Next
MDB_Pfad = App.Path & "\test.mdb"
PW = ""
Cs = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=" & PW & ";Persist Security Info=False;Data Source=" & MDB_Pfad & ";Mode=Read|Write"
MDB.CursorLocation = adUseClient
Do While MDB.State = 0 And x < 101
x = x + 1
MDB.Open Cs
Loop
If MDB.State = 0 Then
MsgBox "Die Datenbank" & vbCr & "konnte nicht gefunden oder geöffnet werden !"
End If
On Error GoTo 0
End Sub
die Verbindung zur Datenbank sieht so aus bei mir
Public Sub OpenMDB()
On Error Resume Next
MDB_Pfad = App.Path & "\test.mdb"
PW = ""
Cs = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=" & PW & ";Persist Security Info=False;Data Source=" & MDB_Pfad & ";Mode=Read|Write"
MDB.CursorLocation = adUseClient
Do While MDB.State = 0 And x < 101
x = x + 1
MDB.Open Cs
Loop
If MDB.State = 0 Then
MsgBox "Die Datenbank" & vbCr & "konnte nicht gefunden oder geöffnet werden !"
End If
On Error GoTo 0
End Sub