Kenny
23 de Junio del 2006

hola estoy desarrollando una aplicacion en vb 6.0 con la base de datos mysql me gustaria saber como llamar los procedimientos almacenados desde el visual basic, agradeceria mucho la ayuda....

Leo
23 de Junio del 2006

HOLA COMPAÑERO PRUEBA LO SIGUIENTE:
1)EN EL PROCEDIMIENTO ALMACENADO DEBES CREAR LAS VARIABLES QUE RECIBIRAN LOS DATOS QUE LE DEVUELVAS DESDE V.B
@MIVARIABLE AS TIPO DATO(TAMAÑO)
EJEMPLO:
CREATE PROCEDURE SpUpdateClient1
@CLIENT_NUMBER as varchar(11),
@CLIENT_FIRST_NAME as varchar(100)
AS
BEGIN
UPDATE TClient SET
CLIENT_FIRST_NAME = @CLIENT_FIRST_NAME
WHERE CLIENT_NUMBER=@CLIENT_NUMBER
END
GO
2) EN TU BOTON GUARDAR DE V.B
DEBES DECLARAR UN OBJETO DE TIPO RECORDSET Y OTRO DE TIPO COMMAND, PREVIAMENTE DEBES HABER CREADO TU CONEXION A MySql, EN ESTE CASO YO LA NOMBRÉ "Conexion"
---------------------------------------
*Declaro los objetos
Dim RsClient As Recordset
Dim CmClient As Command
---------------------------------------
*Creo una instancia de los Objetos
Set CmClient = New Command
Set RsClient = New Recordset
------------------------------------------
*Utilizo el objeto Command para realizar la conexion y abrir mi procedimiento almacenado

With CmClient
.ActiveConnection = Conexion
.CommandText = "SpUpdateClient1" (Nombre del procedimiento)
.CommandType = adCmdStoredProc
*Declaro los parametros de la misma manera en que lo hice dentro del procedimiento almacenado
.Parameters.Append .CreateParameter("CLIENT_NUMBER", adVarChar, adParamInput, 11, Trim(TxtIdClient.Text))
.Parameters.Append .CreateParameter("CLIENT_FIRST_NAME", adBSTR, adParamInput, 100, Trim(TxtFirstName.Text))
.Execute , , adExecuteNoRecords(Ejecuto la transaccion)
End With
---------------------------------------------------------------
Espero te Sirva!