Database MS访问数据库错误
我得到一个错误3061太少的参数在这一行Database MS访问数据库错误,database,ms-access,vba,Database,Ms Access,Vba,我得到一个错误3061太少的参数在这一行 Set rs = db.OpenRecordset(strSQL) 这是完整的代码 Dim strSQL As String Dim db As DAO.Database Dim rs As DAO.Recordset ''Requires reference to Microsoft DAO x.x Library Set db = CurrentDb() MsgBox Me.LName MsgBox Me.EmpID strSQL = "SELEC
Set rs = db.OpenRecordset(strSQL)
这是完整的代码
Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset ''Requires reference to Microsoft DAO x.x Library
Set db = CurrentDb()
MsgBox Me.LName
MsgBox Me.EmpID
strSQL = "SELECT LastName AS damn FROM [Employees]" & _
"WHERE [Employees].EmployeeID = Me.EmpID"
Debug.Print strSQL
Set rs = db.OpenRecordset(strSQL)
MsgBox rs!damn
Me.LName = rs!damn
MsgBox Me.LName
rs.Close
db.Close
我能做的最好的假设是
"WHERE [Employees].EmployeeID = Me.EmpID"
应该是
"WHERE [Employees].EmployeeID = " & Me.EmpID
另外,HansUp为您提供了一种在将来解决此问题的好方法 检查
Debug.Print strSQL
显示的内容。如果您仍然需要帮助,请将该文本粘贴到您的问题中。@HansUp我记得(现在没有数据库)它按原样打印sql语句,但没有良好的开始。查看Debug.Print strSQL
还将确认语句在表名和WHERE
之间缺少空格或换行符。捕捉得好,没有发现那个。我很感激你采用了“教人钓鱼…”的回答方式。除了strSQL=part之外,我尝试了相同的SQL代码,它可以作为一个查询。不幸的是,这是一个工作问题,现在无法确认