Ejecutar un store procedure dinamico en DB2

[[Lepe]]

La verdad, el título del mensaje no se corresponde mucho con la pregunta, no sé si me pierdo algo.

Hay 2 formas de hacerlo, en ambas tienes que partir de un componente Query, (TQuery, TIBQuery, TMDOQuery... depende de tu base de datos):

- El rompecabezas, es igual que armar un puzzle.

Código Delphi [-]
var select, LaSql:string;
    
begin 

select := ' select * from tabla';
LaSql := select + ' where codigo = ' + inttostr(edit1.text);
LaSql := LaSql + ' and nombre = '+ QuotedStr(edit2.text);
query1.sql.text := LaSql;
query1.Open;
end;

Como ves, tienes que tener en cuenta todos los espacios en blanco, las uniones de unas cadenas con otras, etc. Basta un error de un paréntesis para que todo se vaya al traste.


- Por parámetros: Partimos de la base que sabemos cuantos parámetros se van a usar en la búsqueda, preparamos en el TQuery un sql así:

Código SQL [-]
select from tabla 
where codigo = :elcodigo and nombre = :elnombre

Ahora en delphi:

Código Delphi [-]
query1.parambyname('elcodigo').asInteger := strtoint(edit1.text);
query1.parambyname('elnombre').asString:= edit2.text;
query1.Open;

Saludos