Asignar a un campo un select max

[el_barto]

Buenos dias foristas ¡¡¡¡

Sera que ustedes me pueden ayudar?? lo que pasa es necesito asignarle desde delphi a mi campo item_prod el valor que surge de la siguiente instruccion sql

 select max(item_prod) from prod

esta instruccion debe quedar aqui:

procedure TForm6.Button1Click(Sender: TObject);
begin
band := DBLookupComboBox1.KeyValue;
IBDataSet1.Append;
DBLookupComboBox1.KeyValue := band;
IBDataSet1.FieldByName('item_prod').AsInteger :=  'select max(item_prod) from prod' 
end;

el problema radica en que son incompatibles los tipos de datos dado que item_prodespera un dato entero y asignarle ese select no es correcto. como debo hacer para que item_prod tome el valor integer que devuelve el select?

[fredo]

tienes que poner u codigo en ibquery

'select max(item_prod) as mayor from prod '

luego abrela....
y por ultimo





procedure TForm6.Button1Click(Sender: TObject);
begin
ibquery.close;
ibquery.open;
band := DBLookupComboBox1.KeyValue;
IBDataSet1.Append;
DBLookupComboBox1.KeyValue := band;
IBDataSet1.FieldByName('item_prod').AsInteger := ibquery.fieldbyname('mayor'). asInteger;
end;