Dynamic SQL Error SQL error code = -206

[droxee]

procedure Tfrm_cihaz.RzBitBtn4Click(Sender: TObject);
var
kod:integer;
begin

DataModule_.IBQuery1.Close;
DataModule_.IBQuery1.SQL.Clear;
DataModule_.IBQuery1.SQL.Add(RzMemo1.Text);
DataModule_.IBQuery1.Prepare;
DataModule_.IBQuery1.Execsql;
DataModule_.IBQuery1.Close;
DataModule_.IBTransaction1.CommitRetaining;

DataModule_.IBTable_Cihaz.Last;
kod:=DataModule_.IBTable_Cihaz.fieldbyname('CIHAZ_KOD').asinteger;
DataModule_.IBTable_Cihaz.append;
kod:=kod+1;
DataModule_.IBTable_Cihaz.fieldbyname('CIHAZ_KOD').asinteger:=kod;
DataModule_.IBQuery1.SQL.Clear;

DataModule_.IBQuery1.SQL.Add('insert into TBL_'+RzEdit1.Text+'(CIHAZ_KOD,CIHAZ_AD)');
DataModule_.IBQuery1.SQL.Add('values('+inttostr(kod)+','+RzEdit1.Text+')');
//DataModule_.IBQuery1.Open;
DataModule_.IBQuery1.Execsql;
DataModule_.IBQuery1.Close;
end;

sorgulamamda
Dynamic SQL Error SQL error code = -206
'Column unkown UPS' şeklinde bir hata alıyorum. var mı yorum getirebilecek bir arkadaşımız?

[unicorn64]

hata sorgulama kısmında mı insert kısmında mı belirtmemişsiniz ama RzEdit1.Text de UPS yazdığını ve insert kısmında eksik tırnak işaretinden kanyaklanan bir hata aldığınızı varsayıyorum. aslında insert cümlesini bir string değişkene alıp breakpoint koyarak siz de kontrol edebilirdiniz

Kod: Tümünü seç

DataModule_.IBQuery1.SQL.Add('values('+inttostr(kod)+','+QuotedStr(RzEdit1.Text)+')');

şeklinde düzenlerseniz hata almayacağınızı umuyorum

[droxee]

cok sagolun cok yardımcı oldunuz