＋设为首页 ＋添加到收藏夹
一个小作业用ACCESS 在一个按钮设置VB语句时我想用一下ADO的recordSet. 但是不知如何设置ADO连接 链接到当前这个ACCESS数据库就行了...我写了下面的代码 提示是数据源的连接字符串有错
Private Sub goButton_Click()
Dim Conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim CurDB As New Database
Set CurDB = CurrentDb
Set Conn = New ADODB.Connection
MsgBox CurrentDb.Name
With Conn
.ConnectionString = "data source= " & CurDB.Name
.Open
End With
Set rst = New ADODB.Recordset
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open "SELECT Course_ID FROM CourseInfo WHERE Course_ID=CPSC321", Conn, , , adCmdText
有人会么?
谢谢
Private Sub goButton_Click()
Dim rst As New ADODB.Recordset
rst.CursorType = adOpenDynamic
rst.LockType = adLockOptimistic
rst.Open "SELECT Course_ID FROM CourseInfo WHERE Course_ID=CPSC321", currentproject.connection,1,1,adcmdtext
