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!

Responder