Çalışma anında IBDateset oluşturma ve kullanma? [Çözüldü]

[xozcanx]

Merhaba;
Çalışma anında sorgu sorgu yapmak istediğimde Query oluşturarak sorgulamarı yapıyorum ve işlem sonunda Free ederek Query sonlandırıyorum. Bu işlemi insert update yada delete için nasıl yapabiliriz bir deneme yapmak istedim fakat sonuç alamadım.

Kod: Tümünü seç

VAR
  TestDB:TIBDataSet;
Begin
  TestDB:=TIBDataSet.Create(nil);
  with TestDB do
  try
    Database  :=IBDatabase1; 
    GeneratorField.Generator:='GEN_TEST_ID';
    GeneratorField.Field:='ID';
    GeneratorField.IncrementBy:=1;
    Transaction:=IBTransaction1;
    InsertSQL.Add('insert into TABLO (ADI, ID, WINNER) values (:ADI, :ID, :WINNER)');
    try
      Open;
      insert;
        FieldByName('ADI').AsString:='Test';
      Post;
      Transaction.CommitRetaining;
    finally
      Free;
    end;
  except on E: Exception do
    begin
      ShowMessage(PChar(E.Message));
      Transaction.RollbackRetaining;
    end;
  end;
End;

[csunguray]

GeneratorField in tipi nedir? Sonuç alamadım derken derleme mi yapamıyorsunuz yoksa çalışırken mi hata veriyor? Aldığınız hata mesajını yazarsanız sevinirim.

[xozcanx]

GeneratorField in tipi nedir? Sonuç alamadım derken derleme mi yapamıyorsunuz yoksa çalışırken mi hata veriyor? Aldığınız hata mesajını yazarsanız sevinirim.

Merhaba;
Hocam Kusura bakmayın Eksik bilgi verdiğim için.
GeneratorField in tipi integer.
Derleme sırasında değil çalışma anında hata alıyorum Hata ise "Empty query" Tercümesine baktığımda sonuç "Boş Sorgu"

[varyemez]

InsertSQL kısmını yazmışsın güzel de , hani bunun ana sql cümlesi.. yani select ...... from gibisinden bir dataset oluşturacak komutun olması lazım. empty dediği o işte..

[warder]

insert işleminde (bu haliyle, temel, basit haliyle) select, from sözcükleri kullanılmıyor.
Sorguda sorun yok..
Sorguda parametre tanımlanıp atamanın FieldByName olarak yapmak istenmesi problem olabilir....
FieldByName('ADI').AsString:='Test';
yerine..
ParamByName('ADI').AsString:='Test';
olmalı sanırım..
Yani yapılan atama hatalı ve diğer parametrelere de harhangi bir atama yapılmamış..
Bu durumda boş sorgu demesinde bir sakınca kalmıyor.

[xozcanx]

insert işleminde (bu haliyle, temel, basit haliyle) select, from sözcükleri kullanılmıyor.
Sorguda sorun yok..
Sorguda parametre tanımlanıp atamanın FieldByName olarak yapmak istenmesi problem olabilir....
FieldByName('ADI').AsString:='Test';
yerine..
ParamByName('ADI').AsString:='Test';
olmalı sanırım..
Yani yapılan atama hatalı ve diğer parametrelere de harhangi bir atama yapılmamış..
Bu durumda boş sorgu demesinde bir sakınca kalmıyor

InsertSQL kısmını yazmışsın güzel de , hani bunun ana sql cümlesi.. yani select ...... from gibisinden bir dataset oluşturacak komutun olması lazım. empty dediği o işte..

@varyemez ver @warder cevaplar için teşekkürler 1. Hatamın Select ifadesini yazmamış olmam. 2. hata ise Dataseti Active etmemem buda bana gelsin

Olması gereken

Kod: Tümünü seç

VAR
  TestDB:TIBDataSet;
Begin
  TestDB:=TIBDataSet.Create(nil);
  with TestDB do
  try
    Database  :=IBDatabase1;
    GeneratorField.Generator:='GEN_TEST_ID';
    GeneratorField.Field:='ID';
    GeneratorField.IncrementBy:=1;
    Transaction:=IBTransaction1;
    SelectSQL.Add('Select * From TABLO');
    InsertSQL.Add('insert into TABLO (ADI, ID, WINNER) values (:ADI, :ID, :WINNER)');
    Active:=True;
    try
      Open;
      insert;
        FieldByName('ADI').AsString:='Test';
      Post;
      Transaction.CommitRetaining;
    finally
      Free;
    end;
  except on E: Exception do
    begin
      ShowMessage(PChar(E.Message));
      Transaction.RollbackRetaining;
    end;
  end;
End;

Teşekkürler.

[xozcanx]

Merhaba;
Konu ile ilgili olduğu için Tekrar başlık açmak istemedim.
IBDataset nesnesinin Dataset Editör kısmındaki Generate SQL butonu ile update,insert,delete text leri otamatik oluşuyor.
bu işlemi Çalışma anında da oluşturduğumuz Dataset nesnesine uygulama şansımız varmı yoksa buradaki Textleri Tekrar belirtmek zorundamıyız yukarıda yazmış olduğum gibi?
Teşekkürler.

[varyemez]

Bu wizardın yaptığı iş update , insert , delete sql lerini oluşturmak. sen zaten yukarıda yaptığın gibi ele yazarak halletmişsin.. Bir de şuna dikkat et select * yerine alan isimlerini tek tek yaz. daha sağlam gidersin.

[xozcanx]

Bu wizardın yaptığı iş update , insert , delete sql lerini oluşturmak. sen zaten yukarıda yaptığın gibi ele yazarak halletmişsin.. Bir de şuna dikkat et select * yerine alan isimlerini tek tek yaz. daha sağlam gidersin.

Hocam Cevap için Teşekkürer.
Select ifadesinde o an işim olan alanları seçiyorum. Tablonun tamamını seçmiyorum.
Datamoduller üzerinde bileşenleri toparlasamda bazen hangisi nerede bulmak zorlaşıyor Bende zaten yolun başındayım altyapıda sağlam olsun diye kodlarla bileşenleri oluşturup işim bittiğindede hafızadan atayım diyorum. Fakat bazı tablolardaki alan sayıları çok fazla hepsini eklemekte kısıtlı zamanlarda zor olacak, varsa kısa bir yöntemi zor zamanlar için kıyıda köşede bu bilgi bulunsun istedim