卜白 袁良才:用odbc如何连接数据库?

来源:百度文库 编辑:高考问答 时间:2024/04/30 02:47:35

首先在工程菜单中引用“Microsoft ActiveX Data Objects 2.5 Library”
然后在窗体代码中加入
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\abcd.mdb;"

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "select * from aaa" , db, adOpenStatic, adLockOptimistic

以上代码在VB6sp5 + Access2000中实现用代码实现ado的连接。希望对你有用