SQL Server - COMO PASAR PARAMETROS DESDE VB6 A UN STORE PROCEDU

Olvide esta otra pregunta, tengo algunos procedimientos almacenados y quisiera saber como pasarle parametros desde vb6. Se que el foro no es directamente sobre esto pero pense que tal vez me puedan ayudar.


Joss

Hola desde VB puedes pasarle de esta manera sencilla, como manejas el VB creo que no va a ser tanta dificultad captarlo.

Dim l_bien As String
Dim l_mensaje As String
Dim Cmd As ADODB.Command
Set Cmd = New ADODB.Command
On Error Resume Next
conectar_bd (Script que me conecto a la BD)
If Err.Number <> 0 Then
registra_error ("ERROR EN CONEXION A BD PARA REGISTRAR ALQUILER " )
Err.Clear
f_registrar_alquiler = False
Exit Function
End If

With Cmd
.ActiveConnection = g_conexion ' mi variable de conexion a la BD
.CommandType = adCmdStoredProc
.CommandText = name_procedure, aca va el nombre del PS
.Parameters.Refresh
.Parameters(1).Value = g_usuario //, param de entrada 1
.Parameters(2).Value = g_localip//, param de entrada 2
.Execute // Ejecuto el PS
l_bien = .Parameters(4).Value // Get valores de retorno del Ps
l_mensaje = .Parameters(5).Value // Get valores de retorno del Ps
Set .ActiveConnection = Nothing //Cierras la conexion
End With

Set Cmd = Nothing /// Liberas recursos

Asie s mas o menos , espero te sirva