Esta es la sentencia SQL, ataco una BD Firebird 2.5 con IBX y Delphi 7.
Código Delphi
[-]procedure TfrFactMes.SpeedButton1Click(Sender: TObject);
begin
DmFact.IBDtsAlbaran.Close;
DmFact.IBDtsAlbaran.ParamCheck := True;
DmFact.IBDtsAlbaran.SelectSQL.Clear;
DmFact.IBDtsAlbaran.SelectSQL.Add('Select * From Albaranes');
DmFact.IBDtsAlbaran.SelectSQL.Add('Where CodClient ='+QuotedStr(DmFact.IBDtsCliCODIGO.Value));
DtpkHasta.Date;
DmFact.IBDtsAlbaran.SelectSQL.Add('And Activo =''S''');
DmFact.IBDtsAlbaran.SelectSQL.Add('And Facturar =''S''');
DmFact.IBDtsAlbaran.SelectSQL.Add('And Fecha <='+QuotedStr(FormatDateTime('mm/dd/yy',DtpkHasta.Date)));
DmFact.IBDtsAlbaran.SelectSQL.Add('Order by Fecha');
ShowMessage(DmFact.IBDtsAlbaran.SelectSQL.Text);
DmFact.IBDtsAlbaran.Open;
pnAlbaranes.Enabled:=True;
end;
El problema es que si utilizo parámetros no me funciona, no da error, símplemente no devuelve ningún registro, aunque lo he resuelto sin parámetros me gustaría saber cual es el problema.
Un Saludo.