Hola Cowky.
Cita:
|
pd: no me deja poner la Sintaxis SQL.
|
Ya corregí el tema de las etiquetas ( en este caso irían las etiquetas: [delphi] [/delphi] )
En principio, en tu primer código:
Código Delphi
[-]
1 QueryLegajos.SQL.Clear;
2 QueryLegajos.SQL.Text:='Select nombre,basico from legajos where tipodni='+QuotedStr(actTipo);
3 QueryLegajos.SQL.Text:='Select nombre,basico from legajos';
4 QueryLegajos.SQL.Add('and nrodni='+QuotedStr(inttostr(ActNro)));
5 QueryLegajos.Active:=true;
La línea 3 anula lo ingresado en la línea 2.
Este sería el modo de añadir líneas:
Código Delphi
[-]
QueryLegajos.SQL.Clear;
QueryLegajos.SQL.Add('Select nombre,basico from legajos where tipodni='+QuotedStr(actTipo));
QueryLegajos.SQL.Add('Select nombre,basico from legajos');
QueryLegajos.SQL.Add('and nrodni='+QuotedStr(inttostr(ActNro)));
QueryLegajos.Active:=true;
De todos modos no creo que funcione así. Pareciera que debiera ser:
Código Delphi
[-]
QueryLegajos.SQL.Add('Select nombre, basico from legajos');
QueryLegajos.SQL.Add('where tipodni = '+QuotedStr(actTipo)+' and nrodni = '+QuotedStr(IntToStr(ActNro)));
Cualquier problema nos comentás el detalle.
Saludos.