kwhwind
kwhwind
2014-12-05 10:58
采纳率: 100%
浏览 3.4k
已采纳

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 2014-12-05 11:14
    已采纳

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

    点赞 评论
  • kwhwind
    kwhwind 2014-12-05 11:26

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

    点赞 评论
  • testcs_dn
    微wx笑 2014-12-09 14:21

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

    点赞 评论

相关推荐