我的程序是:
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr As String
connstr = "provider=Mircsoft.jet.OLEDB.3.51;DataSource=D:\学习\户籍管理系统\户籍管理系统.mdb"
conn.Open connstr
rs.CursorLocation = adUseClient
rs.Open "户籍管理表", conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
运行后出现:“实时错误3706:provider can not be found,it may not be properly installed. ”
请问是那出了错误。怎么改正!!!
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr As String
connstr = "provider=Mircsoft.jet.OLEDB.3.51;DataSource=D:\学习\户籍管理系统\户籍管理系统.mdb"
conn.Open connstr
rs.CursorLocation = adUseClient
rs.Open "户籍管理表", conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
运行后出现:“实时错误3706:provider can not be found,it may not be properly installed. ”
请问是那出了错误。怎么改正!!!
改成
jet.OLEDB.4.0
jet.OLEDB.3.51
或jet.OLEDB.4.0
改成
jet.OLEDB.4.0
2。工程--->引用--〉microsoft ActiveX DataObjects 2.6 Library
http://download.microsoft.com/download/1/0/3/10393c6b-ed5c-49c0-b0a2-00c031f1790d/mdac_typ.exe然后你:
打开VB-->“工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.X Library”
注:2.X为版本号,如果你机子上有高版本的就用高版本的,如:2.5或2.6的。
然后再将jet.OLEDB.3.51改成jet.OLEDB.4.0就行了。