[javier7ar]

Empezado por AzidRain

Querras decir:

Código Delphi [-]
with DataModule4.Query1 do
      begin
       Close;
       SQL.Clear;
       SQL.Add('select id_cult from cultivos where desccultv=:cultivo') ;
       ParamByName('id_cult').AsString :=suiDBLookupComboBox3.Text;
       Open;
       id_cultv:=FieldByName('id_cult').AsInteger;
       Close;
     end;

en el codigo que te paso AzidRain, la linea:

Código Delphi [-]
ParamByName('id_cult').AsString :=suiDBLookupComboBox3.Text;

deberia ser:

Código Delphi [-]
ParamByName('cultivo').AsString :=suiDBLookupComboBox3.Text;

porque el parametros se llama cultivo no id_cult
Aclaro por si lo copias y no te funciona, es ese el problema
Saludos