Pregunta: | 57072 - COMO PASO PARAMETROS DESDE VISUAL 6 A UN STORED PROCEDURE DE |
Autor: | fredy loh |
Necesito saber cómo puedo pasar parametros desde mi aplicaion visual 6.0 hacia un procedimiento almacenado en Firebird. el siguiente codigo en visual basic funciona bien pero para MS sql Server pero no logro que haga lo mismo con firebird Private Sub Command1_Click() Dim Comm_SQL As ADODB.Command Dim Rec As ADODB.Recordset Dim par1, par2 As ADODB.Parameter Set Comm_SQL = New ADODB.Command Set Comm_SQL.ActiveConnection = coneccion Comm_SQL.CommandText = "PRO_INGRESAALUMNO" Comm_SQL.CommandType = adCmdStoredProc Comm_SQL.Parameters(1).Value = Val(TXTRUT) Comm_SQL.Parameters(1).Value = Val(TXTNOMBRE) Comm_SQL.Parameters(2).Value = Val(TXTDIRECCION) Set Rec = Comm_SQL.Execute() End Sub El procedimiento almacenado en Firebird es el siguiente: CREATE PROCEDURE PRO_INGRESAALUMNO( RUTP CHAR(8) CHARACTER SET WIN1251, NOMBREP CHAR(50) CHARACTER SET WIN1251, DIRECCIONP CHAR(50) CHARACTER SET WIN1251) AS BEGIN INSERT into ALUMNOS values(:RUTP,:NOMBREP,:DIRECCIONP); END |