ibquery1.post olayı

[ender_arslanturk]

Arkadaşlar Firebird Veri Tabanı Kullanmaya Başladım, normal de query1.post (paradoxta yani ) dediğim gibi kaydetme işlemini yapıyor du ama şimdi firebird için ibquery1.post dediğim zaman karşıma Cannot readonliy dataset mesajı çıkmakta bu konu il ilgili yardımcı olursanız sevinirim.

Herkeze Kolay Gelsin.

[Bil_Bakalım]

Merhaba
Bu sitede en çok konuşulan konulardan biri firebird gibime geliyor. Eğer sitede yaparsanız eminim ki aradığınız bilgiye daha erken ulaşacaksınız

[mudipasa]

ender_arslanturk;
bende IBDataset kullanmaya başladığımda bu hatayı aldım. IBTransaction nunda ayar yaptım. aynı zamanda IBDataset te sağ tıkla Dataset Editor orda Generate SQL ile SQL kodlarını otomatik oluştur ve sorun çözüldü. Kolay gelsin.

[palandoken]

Merhaba,
IBDatabase ve IBTransaction ayarlari için

Kod: Tümünü seç

procedure TAnaForm.DatabaseAyarlari;
begin
         try
            with IBDatabase1 do
               begin
                  Connected := false ;
                  DatabaseName := ExtractFilePath(Application.ExeName)+'Data\DENEME.FDB' ;
                  DefaultTransaction := IBTransaction1 ;
                  Params.Clear ;
                  Params.Add('user_name=SYSDBA') ;
                  Params.Add('password=masterkey') ;
                  LoginPrompt := False ;
                  Connected := True ;
               end ;

            with IBTransaction1 do
               begin
                  DefaultDatabase := IBDatabase1 ;
                  Params.Clear ;
                  Params.Add('read_committed') ;
                  Params.Add('rec_version') ;
                  Params.Add('nowait') ;
                  Active := True ;
               end ;
         except
             showmessagw('Vetitabanı hatası');
         end;
end;

Tablo adı=ANA_TABLO
Alanlar=IDNO,ADI,SOYADI
IBQuery ile kayıt için

Kod: Tümünü seç

//   s : AnsiString ;
   with IBQuery1 do
      begin
         Database := IBDatabase1 ;
         Active := False ;
         SQL.Clear ;
         SQL.Add('Select * from ANA_TABLO') ;
         SQL.Add('Where ADI=:PADI and SOYADI =:PSOYADI') ;
         ParamByName('PADI').AsString := Edit1.Text ;
         ParamByName('PSOYADI').AsString := Edit2.Text;
         Open ;
         if IsEmpty then//kayıt yoksa yeni kayıt yap
            begin
                 Database := IBDatabase1 ;
                 SQL.Clear ;
                 SQL.Add('Insert Into ANA_TABLO(ADI,SOYADI)') ;
                 SQL.Add('Values(:PADI,:PSOYADI)') ;
            end
         else
            begin
                 s := IBQuery1.FieldByName('IDNO').Text ;
                 Database := IBDatabase1 ;
                 SQL.Clear ;
                 SQL.Add('Update ANA_TABLO Set') ;
                 SQL.Add(ADI=:PADI,SOYADI=:PSOYADI') ;
                 SQL.Add('Where IDNO=:PIDNO') ;
                 ParamByName('PIDNO').AsString := s;
            end;
                 ParamByName('PADI').AsString := Edit1.Text ;
                 ParamByName('PSOYADI').AsString := Edit2.Text;
                 Prepare ;
                 ExecSQL ;
      end;

Kolay gelsin

[meron06]

ibquery ile kayıt ekleyebilmeniz için ibupdatesql comp. eklemeniz.lazım.ibquery nin update object özelliğinden updatesql i eklemelisiniz.

[penguen]

Peki kayıt tam olarak nasıl yapabilecegiz. Bende

Kod: Tümünü seç

Cannot insert into dataset (No insert Query)

uyarısı veriyor.

Yardımcı olur musunuz?
Ben firebird yeni başladım...