VBA：使用 ADODB 参数

Question

我正在尝试使用 ADODB 运行参数化 SQL 查询，但我收到错误消息“必须声明标量变量 @Id”。

我是 VBA 的菜鸟，我已经尝试阅读它是如何完成的以及遵循示例但无济于事。

有人知道我的代码有什么问题吗？

Public Function IndataTest()


Dim conn As ADODB.Connection
Dim ConnString As String
ConnString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=DB;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=B5037093;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=DB"



Dim sqlstr As String Dim rs As Object Dim cmd As Object Dim ParamId As Object Dim Id As String

Id = 1084924

sqlstr = sqlstr & "use DB " 
sqlstr = sqlstr & "Select * " & vbCrLf
sqlstr = sqlstr & "From tblA" & vbCrLf        
sqlstr = sqlstr & "where fldA = @Id"


Set conn = New ADODB.Connection conn.Open ConnString

Set cmd = CreateObject("ADODB.Command") cmd.ActiveConnection = conn cmd.CommandText = sqlstr

Set ParamId = cmd.CreateParameter("@Id", 129, 1, 52, Id) cmd.Parameters.Append ParamId

Set rs = CreateObject("ADODB.Recordset") rs.Open cmd


If Not rs.EOF Then
    ' Transfer result.
    Sheets("Valuta").Cells(5, 5).CopyFromRecordset rs ' Close the recordset
    rs.Close Else
    MsgBox "Error: No records returned.", vbCritical End If

' Clean up If CBool(conn.State And adStateOpen) Then conn.Close Set conn = Nothing Set rs = Nothing

End Function

Answer 1

不要使用参数，将值构建到字符串中

 Public Function IndataTest()


 Dim conn As ADODB.Connection
 Dim ConnString As String
 ConnString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Data Source=DB;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=B5037093;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Catalog=DB"
  Dim sqlstr As String 
  Dim rs As new adodb.recordset
  Set conn = New ADODB.Connection 
  conn.Open ConnString

  sqlstr = "use DB " 
  sqlstr = sqlstr & "Select * " & vbCrLf 
  sqlstr = sqlstr & "From tblA" & vbCrLf 
  sqlstr = sqlstr & "where fldA = "  & 1084924
  set rs = conn.execute(sqlstr)

等