19 respuestas en este tema

[JuanPalmaSoft]

No logro con los conectores de DB que me funcione bien  un storeprocedure. ej delphi 7  con ningun provider de BD logro que me trabajen bien. o no los reconoce o no me roconoce los parametros d eentrada y salida, he visto ZEOs, BDE y ADO. alguien me pudoiera ayudar en esto.

los store procudure en la BD trabajan perfecto.


gracias

[egostar]

Que componente estas utilizando para ejecutar el SP ?

Yo ejecuto el SP (Firbird) desde un IBQuery y no desde IBStoredProc.

Saludos

[poliburro]

Yo ejecuto procedimientos almacenados con Delphi y ADO pero usado MyOdbc como capa de conexión...

¿Qué configuración usas?

[JuanPalmaSoft]

en estos momentos  uso BDE y el componente para ejecutar los sp,  TStoredProc

[JuanPalmaSoft]

en ADO como haces la configuracion. y en caso de ejecutar el sp con un TQuery como lo ejecutas?

[poliburro]

No amigo... BDE es lo peor que puedes usar para conectarte a cualquier base de datos... Debes cambiarte a ADO...

Haces lo siguiente:

1- Instalas MyODC
2- Creas un DSN Con los datos de tu servidor Mysql
3- colocas un ADO Conexion en tu aplicación y en conecction string eliges el proveedor Para ODBC  y seleccionas el DSN que has creado.
Luego colocas un TADOStoredProcedure, le defines su conexión y el nombre del SP, al dar click en parámtros de manera automática los creará y te los mostrará....


Es muy sencillo amigo

[poliburro]

Si deseas invocar el SP como si fuera un query coloca un TADOQUERY y en SQL coloca

CALL DbName.SPNAME(Parameters)

[egostar]

en ADO como haces la configuracion. y en caso de ejecutar el sp con un TQuery como lo ejecutas?

Con BDE y TStoredProc:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  StoredProc1.ParamByName('PARAMETRO_ENTRADA').AsString := 'LO QUE SEA'; 
  StoredProc1.ExecProc;
  Caption := StoredProc1.ParamByName('PARAMETRO DE SALIDA').AsString;
end;

Con IBX y TIBQuery:

delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
  ibQuery.SQL.Text := ' SELECT SP("LO QUE SEA") ';
  ibQuery.Open;
  Caption := ibQuery.fields[0].AsString;
end;

Lo hago de memoria, así que puede haber algún detalle.

Saludos

[JuanPalmaSoft]

uso el mySQl ODBC 3.51  sigue sin mostrarme los parametros del sp. utilizando ADO.

[poliburro]

Me podrías mostrar tu cadena de conexión por favor?

[poliburro]

También el encabezado de tu sp y la configruación que creaste en el ODBC

[poliburro]

Por cierto debes usar Mysql ODBC 5.1 Driver

[egostar]

Por cierto debes usar Mysql ODBC 5.1 Driver

, pequeño detalle

Saludos

[JuanPalmaSoft]

cadena

Provider=MSDASQL.1;Password=sysadm;Persist Security Info=True;User ID=sysadm;Data Source=MEmpresaDelphi

sp

CREATE DEFINER = 'root'@'localhost' PROCEDURE `Sys_Valida_Entrada`(
        IN Usuario varCHAR(8),
        IN Clave varCHAR(8),
        OUT Entrar BOOLEAN
    )
    NOT DETERMINISTIC
    CONTAINS SQL
    SQL SECURITY DEFINER
    COMMENT ''
BEGIN
 declare Existe Integer;
 
 set Existe = 0;
 
 select count(*) into Existe from usuario
 where CLAVEUSUARIO = Usuario and  CLAVEACCESO = Clave;
 
 if Existe > 0  then  set Entrar = 1;
 else set Entrar = 0;
 end if;
 
END;

[JuanPalmaSoft]

con el odbc 5.1 me pasa lo mismo, me faltara alguna actualizacion a delphi 7?

[poliburro]

Los parámetros de salida no están soportados para su uso con los componentes TADO STORED...
para hacerlo por query sería de la forma:

delphi

ComponenteQuery.Sql.Text := 'CALL DBNAME.Sys_Valida_Entrada("usuario","Clave",@Entrar); Select @Entrar';
ComponenteQuery.Open

El open te devolverá  dos recorsets uno con el count y el otro con el mensaje de error...


saludos

[JuanPalmaSoft]

Gracias por todo, pero con ZEOS  7.0.0 dev  lo resolvi de esta forma,

delphi

with ZQuery1 do
  begin
   Active:=False;
   Connection:=ZBaseDatos;
   Close;
   SQL.Clear;
   SQL.Add('call Sys_Valida_Entrada(:usuario, :clave, @entrar)');
   ParamByName('usuario').AsString  := 'ADMIN';
   ParamByName('clave').AsString    := 'a';
   ExecSQL;
   SQL.Clear;
   SQL.Add('select @entrar');
   Open;
   entrar := ZQuery1.fields[0].Asinteger;
   Close;
  end;
  ZBaseDatos.Reconnect;

parecida a la solucion dada anteriormente, pero no me dejaba poner dos sentencias dentro de una misma llamada. Por eso las separe.

el tema esta como me dices en la variables de salida, definidas en los SP.

[poliburro]

Me alegra que lo hayas resuelto al final mi estimado amigo...

Me he tomado la libertad de editar tu mensaje para colocar las etiquetas delphi pues de esta manera tu código se hace más legible..

[JuanPalmaSoft]

como haces lo de poner las etiquetas?

gracias

[poliburro]

Seleccionas tu código y presionas el botón con el ícono de delphi.. ya sabes el del casco romano...