Dim con As New Connection
Dim rs As New RecordsetPrivate Sub BarCodeCtrl1_GotFocus()End SubPrivate Sub Form_Load()
With con
.Provider = "Microsoft.jet.oledb.3.51"
.ConnectionString = *****************************************
.Open
End With
End Sub*************************号的地方怎么写???不用DSN的!!不通过任何间接方式直接用ADO连接ACCESS!!
顺便问一句,98有没有ODBC???
Dim rs As New RecordsetPrivate Sub BarCodeCtrl1_GotFocus()End SubPrivate Sub Form_Load()
With con
.Provider = "Microsoft.jet.oledb.3.51"
.ConnectionString = *****************************************
.Open
End With
End Sub*************************号的地方怎么写???不用DSN的!!不通过任何间接方式直接用ADO连接ACCESS!!
顺便问一句,98有没有ODBC???
98有ODBC!!!!
Connstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + App.Path + "\data.mdb;pwd=;"+PWDString
ACCESS2000 4.0
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=databaseName;User ID=userName;Password=userPassword;"比较典型