VBA : ADODB 매개 변수 사용

Question

ADODB를 사용하여 매개 변수화 된 SQL 쿼리를 실행하려고하는데 오류 메시지가 "스칼라 변수를 무시해야합니다"라는 오류 메시지가 나타납니다.

나는 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) 

등으로 값을 구축하지 마십시오