I need to change the following code in VB to a stored proceduer. What changes do I have to do in VB and SQL Server?
Dim rr as ADODB.Recordset
Set rr = New ADODB.Recordset
int866 = Me.lst866.ListIndex
SQL = "SELECT DISTINCT [RACK_NO] FROM [TABLE1]
WHERE [866ID] = '" & int866 & "' AND [IN_SYSTEM] IS NULL
ORDER BY [RACK_NO] ASC;"
rr.Open SQL, con_VB, adOpenDynamic, adLockOptimistic
Dim rr as ADODB.Recordset
Set rr = New ADODB.Recordset
int866 = Me.lst866.ListIndex
SQL = "SELECT DISTINCT [RACK_NO] FROM [TABLE1]
WHERE [866ID] = '" & int866 & "' AND [IN_SYSTEM] IS NULL
ORDER BY [RACK_NO] ASC;"
rr.Open SQL, con_VB, adOpenDynamic, adLockOptimistic