2 kwhwind kwhwind 于 2014.12.05 18:58 提问

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个回答

save4me
save4me   Ds   Rxr 2014.12.05 19:14
已采纳

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

kwhwind
kwhwind   2014.12.05 19:26

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

testcs_dn
testcs_dn   Rxr 2014.12.09 22:21

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

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!