Mi programa de facturación paso a paso

[kalimero]

Prueba con esto:

Código Delphi [-]
var
sSQL:String;
begin
ADOQAlbaran.Close;
a := StrToInt(DBEdit1.Text);
sSQL:= 'SELECT Sum(Desglose_Albaran.ImporteLineal) AS campo ' +
         'FROM Desglose_Albaran' +
         'Where Num_Albaran = a';
  ADOQAlbaran.SQL.Text := sSQL;
  ADOQAlbaran.open;
end

Asi, ami me funciona que es tal y como yo lo suelo hacer .
Saludos