SQL“选择语句”的 Where 子句中的输入变量 - Access、VBA

编程问答 2022-09-07

问题描述

需要以下所列问题的帮助。

  1. 我正在将“YearN”作为用户输入到选择语句中，以便在 VBA 中为 Access 数据库运行查询。该语句在 where 子句中直接输入数字时起作用，说“2027”。 不确定如何引用输入变量/对象。请帮忙。
  2. 需要帮助刷新记录，因为每当代码尝试执行行 "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 (将#修改为@）

ms-accesssqlsql