Firebird veritabanıma projemden bilgileri kod ile giriyorum. Sonuçlar dbgridde görünüyor, fakat ibexperte girip baktığımda girmiş olduğum kayıt yok. Programı ne zaman kapatırsam ozaman ibexpertte görüyorum. Sanırım sorun dataset veya transaction bileşenleri kullanmamış olmam. Dolayısıyla commit veya post işlemi program kapanınca gerçekleşiyor.
Kullandığım bileşenler
Fdquery, Fddatasource, FDMoniCustomClientLink, FDConnection
Kod: Tümünü seç
TRY
with QMUSTERILER do begin
sql.clear;
sql.add('INSERT INTO MUSTERILER ( ADI,SOYADI,TELEFON, ADRES,BARKODU )');
sql.add('VALUES(:PAD,:PSOYAD,:PADRES,:PTEL, :PBARKOD )');
ParamByName('PAD').AsString := AD;
ParamByName('PSOYAD').AsString := SOYAD;
ParamByName('PADRES').AsString := ADRES;
ParamByName('PTEL').AsString := TEL;
ExecSQL;
//QMUSTERILER.post; // ekleyince hata veriyor
end;
QMUSTERILER.sql.Clear;
QMUSTERILER.sql.add('Select * FROM MUSTERILER order by KODU desc ');
QMUSTERILER.Open;
//QMUSTERILER.post;
///QMUSTERILER.ApplyUpdates;
EXCEPT
ShowMessage('HATA : YENI MÜŞTERİ EKLENİRKEN BİR HATA OLUŞTU..');
END;
end;