Gracias Kalimero, creo que yo necesito tratamiento psicologico, esto es increible.
Mira que error me aparece con ese codigo, lo único que he añadido es la variable a como integer pq sino no arrancaba.
http://cjoint.com/data/kFs2vhihPl.htm
El codigo es este:
Código Delphi
[-]procedure TFAlbaranes.Button2Click(Sender: TObject);
var
sSQL:String;
a: integer;
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;
ya no se que hago mal ....