Cómo ejecutar un Procedure SQL Server 2000 en Visual Basic 6.0

[tomed]

Mira, tienes que usar un objeto ADO. Especificamente un ADODB.Command.

Como ejemplo, aqui te mando un código que encontré en MSDN

Fíjate que este ejemplo haces una conexión, creas parámetros para el sotre procedure y finalmente lo ejecutas con .execute.

Mira esto primero, si tienes más dudas, me mandas un correo electrónico. Con gusto te ayudo.



Dim objConn As ADODB.Connection
Dim objCmd As ADODB.Command

'--------------------------------------------------------------------
'--- Open the connection to the pubs database
'--------------------------------------------------------------------
Set objConn = New ADODB.Connection
objConn.Provider = "SQLOLEDB"
objConn.ConnectionString = "Provider=SQLOLEDB.1;Initial Catalog=pubs;Data Source=papanotebook;User ID=sa;Password="
objConn.Open

'--------------------------------------------------------------------
'--- Set the command object up to run the stored procedure
'--------------------------------------------------------------------
Set objCmd = New ADODB.Command
objCmd.CommandType = adCmdStoredProc
objCmd.CommandText = "prUpdateAuthor"
Set objCmd.ActiveConnection = objConn

'--------------------------------------------------------------------
'--- Create and add the parameters
'--------------------------------------------------------------------
objCmd.Parameters.Append objCmd.CreateParameter("@chvFirstName", adVarChar,
adParamInput, 20, "John")
objCmd.Parameters.Append objCmd.CreateParameter("@chvLastName", adVarChar,
adParamInput, 40, "White")
objCmd.Parameters.Append objCmd.CreateParameter("@chrPhone", adChar, adParamInput,
12, "408 496-7223")
objCmd.Parameters.Append objCmd.CreateParameter("@chvAddress", adVarChar,
adParamInput, 40, "10932 Bigge Rd.")
objCmd.Parameters.Append objCmd.CreateParameter("@chvCity", adVarChar,
adParamInput, 20, "Menlo Park")
objCmd.Parameters.Append objCmd.CreateParameter("@chrState", adChar, adParamInput,
2, "CA")
objCmd.Parameters.Append objCmd.CreateParameter("@chrZip", adChar, adParamInput,
5, "94025")
objCmd.Parameters.Append objCmd.CreateParameter("@bitContract", adBoolean,
adParamInput, , 1)
objCmd.Parameters.Append objCmd.CreateParameter("@chrID", adChar, adParamInput,
1, "172-32-1176")

'--------------------------------------------------------------------
'--- Execute the stored procedure
'--------------------------------------------------------------------
objCmd.Execute

objConn.Close
Set objCmd = Nothing
Set objConn = Nothing
'--------------------------------------------------------------------