How to update record using stored procedure & vb6?

[eranfox]

Hello coolwater,

Private Function UpdateRecordset(mRecNO As Long)
 
Dim [B]sp_updateRec[/B] As ADODB.Command
Dim db As New ADODB.Connection
Dim objParam As [B][COLOR=Blue]Parameter[/COLOR][/B]
 
db.Open myDB ' I guess this is your connection string etc...
db.CursorLocation = adUseClient
Set sp_updateRec = New ADODB.Command
[B]sp_updateRec[/B].ActiveConnection = db
[B]sp_updateRec[/B].CommandType = adCmdStoredProc
[B]sp_updateRec[/B].CommandText = "sp_update"
 
 
Set objParam = [B]sp_updateRec[/B].CreateParameter("TestID", adBigInt, adParamInput, 8, mRecNO)
[B]sp_updateRec[/B].Parameters.Append objParam
 
[B]sp_updateRec[/B].Parameters.Append [B]sp_updateRec[/B].CreateParameter("@First_Name", adVarChar, adParamInput, 50, Text1.Text)
[B]sp_updateRec[/B].Parameters.Append [B]sp_updateRec[/B].CreateParameter("@Middle_Name", adVarChar, adParamInput, 50, Text2.Text)
[B]sp_updateRec[/B].Parameters.Append [B]sp_updateRec[/B].CreateParameter("@Last_Name", adVarChar, adParamInput, 50, Text3.Text)
 
[B]sp_updateRec[/B].Execute
 
db.Close
Set db = Nothing
 
Set sp_updateRec = Nothing
 
End Function

I made some small changes to your code and tested it and it works!!

Best Regards,
ERAN