小弟好急！！！

xxwfantasy 2003-08-20 07:20:47

请教用ADO连接ACCESS数据库（不通过ODBC数据源），完整！！！求教！

...全文

17 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

lisong770818 2003-08-21

打赏
举报

Dim strCon As String
Dim dbAdo As New ADODB.Connection

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;Persist Security Info=False"
dbAdo.CursorLocation = adUseClient
dbAdo.CommandTimeout = 15
dbAdo.ConnectionString = strCon
dbAdo.Open

strongfisher 2003-08-21

打赏
举报

cnn.CursorLocation = adUseClient
cnnCMMS.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\msdata;Persist Security Info=False”

饮水需思源 2003-08-21

打赏
举报

Dim ac_tmp As New ADODB.Connection
dim ar_tmp as new adodb.recordset
With ac_tmp
If ac_Print.State = adStateOpen Then ac_Print.Close
.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库名.mdb;Mode=ReadWrite;Persist Security Info=False"
.Open
End With

if rs.state=adsstateopen then rs.close
rs.open "select * from 表名",ac_tmp,adopenkeyset,adlockreadonly

xxwfantasy 2003-08-21

打赏
举报

我说的是用代码 ADO方式访问数据库的代码不用控件！谢谢！

flxa 2003-08-20

打赏
举报

ADO

lhuidan 2003-08-20

打赏
举报

代码里面也要有连接：

Dim db As Database
Dim sec As Recordset

Private Sub Form_Load()
On Error Resume Next
Set db = OpenDatabase("c:\meacc.mdb")
Set sec = db.OpenRecordset("mytable")
End Sub

其中

zqfleaf 2003-08-20