quote:

---

Originally posted by rjackman1959

OK I’m pretty new to SQL and I am trying to call a stored procedure from Exec passing 2 params. I don’t have a problem with 1, but I’m not sure how to send 2. I am getting an “Unclosed quotation mark after the character string” error. Any help would be appreciated. Thanks in advance

Sub Get_Settlements()
Dim command As String
Dim parm1 As String
parm1 = Range("F5").Value
Dim parm2 As String
parm2 = Range("F6").Value
' Create a connection object.
Set SuiteConn = New ADODB.Connection
' Provide the connection string.
Dim strConn As String
'Use the SQL Server OLE DB Provider.
strConn = "PROVIDER=SQLOLEDB;"
'Connect to the database on remote server.
strConn = strConn & "Data Source=IP; Initial Catalog=DATABASE;"
'Use an integrated login.
strConn = strConn & " INTEGRATED SECURITY=sspi;"
'Now open the connection.
SuiteConn.Open strConn
' Create a recordset object.
Dim rsCas As ADODB.Recordset
Set rsCas = New ADODB.Recordset
'MsgBox parm
With rsCas
' Assign the Connection object.
.ActiveConnection = SuiteConn
' Extract the required records.
.Open "wynne_get_settlements '" & parm1 & "', " & parm2
' Copy the records into cell A11 on Sheet1.
Sheet1.Range("A11").CopyFromRecordset rsCas
.Close
End With
SuiteConn.Close
Set rsCas = Nothing
Set RSuiteConn = Nothing
End Sub

---