如何解决SQL“选择语句”的 Where 子句中的输入变量 - Access、VBA
需要以下所列问题的帮助。
- 我正在将“YearN”作为用户输入到选择语句中，以便在 VBA 中为 Access 数据库运行查询。该语句在 where 子句中直接输入数字时起作用，说“2027”。 不确定如何引用输入变量/对象。请帮忙。
- 需要帮助刷新记录，因为每当代码尝试执行行
"A.open strconnection"时出现运行时错误，说“数据库已被用户置于状态”计算机上的管理员，以防止其被打开或锁定”。请指教
Dim YearNumber As Long
DoCmd.RefreshRecord
YearN = InputBox("Enter the Record Year to delete:")
If YearN = "" Then
MsgBox "Year not entered. Query exit"
Else
Dim A As Object
Dim rs As Object
Dim strsql As String
Dim strConnection As String
Set A = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\OneDrive - fab\Access_Db\file.Accdb"
strsql = "DELETE FROM APAC_tbl_test WHERE Year= YearN;"
DoCmd.SetWarnings False
A.Open strConnection
Set rs = A.Execute(strsql)
DoCmd.SetWarnings True
Set rs = nothing
A.Close
Set A = nothing
End If
End Sub```
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
