[英]MS Access db error
我在这一行得到的错误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 = "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为您提供了一个很好的方法来解决这个问题。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.