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

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

    打赏 评论
  • kwhwind 2014-12-05 11:26

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

    打赏 评论
  • 微wx笑 2014-12-09 14:21

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

    打赏 评论

相关推荐 更多相似问题