高手指点一下吧！！！关于ADO的（最先回答对的给4分）

[Neoking]

Dim con As New Connection
Dim rs As New Recordset

Private Sub BarCodeCtrl1_GotFocus()

End Sub

Private Sub Form_Load()
With con
.Provider = "Microsoft.jet.oledb.3.51"
.ConnectionString = *****************************************
.Open
End With
End Sub



*************************号的地方怎么写？？？不用DSN的！！不通过任何间接方式直接用ADO连接ACCESS!!
顺便问一句，98有没有ODBC???

[myhot-河马吃草]

晕.....还第一个回答给4分.....CSDN上的人都穷光了呀..

[Neoking]

可是我每次都给分的！！！再说大家也不是为了分来这里的！！我只是想让大家来帮帮忙而已啊！！！
没有恶意！！谢谢了！！！

[Neoking]

又没有会的阿？？？谢谢大家乐！！！

[Greaitm]

98有ODBC

[飘零风]

我是这样写的：
Connstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + App.Path + "\data.mdb;pwd=;"+PWDString

[Neoking]

谢谢！！那么我那个**********号的内容怎么做那？？

[shawls]

其实，用adodc控件连接以下数据库，把那个语句copy过来就ok了的

[viena]

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + path + "\mdb1.mdb;Mode=ReadWrite;Persist Security Info=False"

[viena]

ACCESS97 3.51
ACCESS2000 4.0

[changechange]

写法有很多


"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=databaseName;User ID=userName;Password=userPassword;"

比较典型

[gogo313]

Provider=Microsoft.Jet.OLEDB.3.51;Data Source=D:\Data.mdb;Persist Security Info=False


98有ODBC！！！！

[Neoking]

这样就行了？？？密码和用户名那？？