wifron
18 de Agosto del 2004

Como hacer uso desde visual basic 6.0, los store procedure de SQL-SERVER

mvallejos
18 de Agosto del 2004

Para empezar, vas a necesitar las librerías ADO, si lo que estás usando es RDO, debería buscar viejos ejemplos.
Supongamos que estamos con ADO, vas a necesitar usar los objetos Command y Parameter

Dim Cmd as New ADODB.Command
Dim Par As New ADODB.Parameter
dim Rs as New ADODB.Recordset

Cmd.ActiveConnection = <Cadena conexión>
Cmd.CommandType = adCmdStoredProc
Cmd.CommandText = "nombre del store"

Ahora bien, si tu store tiene parámetros

Set Par=Cmd.CreateParameter(<nom>, <tipo dato>,
<tipo par>,ValorActual)
Cmd.Parameters.Append Par

Donde tipo par es si es de entrada, salida o ámbos
Valor se usa cuando infgresás valores al store

Finalmente, se ejecuta

Set Rs = Cmd.Execute

Para que este modo funcione, dentro del store van dos cosas

Set NoCount On
'para que no retorne las consultas internas

Usar las variables de entorno de los srores
Ret y Txt

Cuando termina satisfactoriamente

Select Ret = 0,Txt = ''

en caso de error

Select Ret = 1,Txt = 'Error en...'
Return

Entonces, desde Rs, podés leer lo reotrnado por esas variables de entorno y saber si todo terminó bien o con errores