Access 2013 here and no error is thrown with my syntax, but the Delete statements are not executing. What is incorrect in this syntax?
Code:
Public Function Remove()
Dim con As ADODB.Connection: Set con = New ADODB.Connection
Dim cmd As ADODB.Command: Set cmd = New ADODB.Command
Dim rs As ADODB.Recordset: Set rs = New ADODB.Recordset
Dim beginsequence As String, endsequence As String
beginsequence=Me!lowestnumber
endsequence=Me!highestnumber
con.Open "Valid SQL Connection String;"
cmd.ActiveConnection = con
cmd.Parameters.Append cmd.CreateParameter("beginsequence", adVarChar, adParamInput, 25, beginsequence)
cmd.Parameters.Append cmd.CreateParameter("endsequence", adVarChar, adParamInput, 25, endsequence)
cmd.CommandText = "Remove"
Set rs = cmd.Execute(, , adCmdStoredProc)
End Function
Create Procedure [dbo].[Remove]
(
@beginsequence varchar(100)
,@endsequence varchar(100)
)
AS
DELETE FROM prod1
WHERE Serial BETWEEN @beginsequence AND @endsequence
DELETE FROM prod2
WHERE OrderID BETWEEN @beginsequence AND @endsequence