delphi tarafından generators sıfırlama

[forumsad]

arkadaşlar

Kod: Tümünü seç

s:='DELETE FROM TBL_OYUNLAR';
DMoyunKaydet.IBQuery1.Close;
DMoyunKaydet.IBQuery1.SQL.Clear;	
DMoyunKaydet.IBQuery1.SQL.Add(s);	
DMoyunKaydet.IBQuery1.ExecSQL;	
DMoyunKaydet.IBTransaction1.CommitRetaining;

yukardaki kod ile tablomu sıfırlıyorum

ama genarators'üde sıfırlamam lazım

aşağıdaki kodu buldum forumda

Kod: Tümünü seç

DMoyunKaydet.IBTransaction1.active:=True;
ibscript1.script.text:='set generator  GEN_TBL_OYUNLAR_ID  to 0';
ibscript1.executescript;
DMoyunKaydet.IBTransaction1.commit;

bu kodda geçen ibscript1 forma nerden eklenir interbase bölümünde yok

saygılarımla

[mussimsek]

IBQuery ile aynı mantıkla olması lazım. IBQuery ve ExecSQL ile denediniz mi?

Kolay gelsin.

[forumsad]

saygılarımla

[mussimsek]

IBSQL ve ExecQuery ile denerseniz olur sanıyorum.

IBSQL1.SQL.Text := 'set generator GEN_TBL_OYUNLAR_ID to 0';
IBSQL1.ExecQuery;
transaction.commit;

gibi.

Kolay gelsin.

[forumsad]

hocam


sayfama 1 adet IBSQL1 ekledim

resimdeki gibi ayarladım ama sql string eklemedim manuel eklediğimzi için

kodu çalıştırdım hata vermedi ama id yide sıfırlamadı

Kod: Tümünü seç

DMoyunKaydet.IBTransaction1.active:=True;
DMoyunKaydet.IBSQL1.SQL.Text := 'set generator GEN_TBL_OYUNLAR_ID to 0';
DMoyunKaydet.IBSQL1.ExecQuery;
DMoyunKaydet.IBTransaction1.commit;

çalışan bir örnek koyarsanız çok sevinirim

saygılarımla

[freeman35]

Açıklama yazarken biz commit der kısıltırız, komut olarak ".CommitRetaining;" i kulan herzaman,