Cita:
Empezado por pablopessoa
Probe de la forma que me decis, pero no funciona.
unaQuery esta declarada tanto en el datamodule1 como en el datamodule2;
si yo creo un procedimiento Datos de la forma que mencionas me sale un error al compilar del tipo "identificador no declarado", es decir, no encuentra "unaQuery".
Por las dudas aclaro que en el uses del form de busqueda estan agregados los dos datamodules.
|
Véase que yo tenía razón, habría que explicarlo mejor antes de ser sobervios con "
No se, digo....".
Bueno,
pablopessoa, lo que tendrías que hacer es ese procedimiento, pero agregarle un argumento. Explico:
Código Delphi
[-]
procedure CargarDatos(var Q:TADOQuery; Valor1,Valor2,Valor3:Integer);
begin
with Q do begin
Parameters.ParamByName('parametro1').Value:=Valor1;
Parameters.ParamByName('parametro1').Value:=Valor2;
Parameters.ParamByName('parametro1').Value:=Valor3;
end;
end;
Y desde el otro procedimiento:
Código Delphi
[-]
if esBaseMia then
CargarDatos(datamodule1.unaQuery,unValor1,unValor2,unValor3)
else
CargarDatos(datamodule2.unaQuery,unValor1,unValor2,unValor3);
Saludos!!!!
Cita:
Empezado por Caral
Hola
No veo ni entiendo la razón por la que no funcione.
Declaraste el procedimiento en su lista?.
De todos modos no me hagas mucho caso, de estas cosas no se.
BrunoBsso se ve que tiene la respuesta adecuada, ya casi la suelta.
Saludos
|
No se si la
adecuada, pero sí una
explicativa