Foros Club Delphi - Asignar a un campo un select max

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Asignar a un campo un select max (https://www.clubdelphi.com/foros/showthread.php?t=22686)

Asignar a un campo un select max

Buenos dias foristas ¡¡¡¡ :p

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

Código:

select max(item_prod) from prod

esta instruccion debe quedar aqui:

Código:

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?

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;