vba 连接access数据库,rst.open那句出现问题,提示至少一个参数没有被指定值

Private Sub Command6_Click()

Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=microsoft.ace.oledb.12.0;persist security info=false;data source=f:\login.accdb;"
conn.Open

Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

rst.Open "select * from login where name=' " & username.Value & " '", CurrentProject.Connection  

End Sub

username是窗体中文本框控件的名字。

求高手解答,非常感谢!

3个回答

CurrentProject.Connection 和conn是什么关系?你前面打开了conn,为什么rst.open不直接用conn

解决了,非常感谢。楼上一针见血!!!!!

rst.Open "select * from login where name=' " & username.Value & " '", CurrentProject.Connection, 1, 1

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐