Delphi Forum

Ben böyle şeylerde Event'lerden ziyade trigger yöntemini tercih ediyorum.

Hocam bu trigger e bir örnek verebilirmisiniz ?



Selamlar...

Sorunda Post un başarısız olmasını engellemek. SQL server cevap vermediğinde veya kapalı olduğunda sorun oluyor. Sonra Elle düzeltmem gerekiyor felan filan.

Yani siz Eğer rollback geldiğinde veya post başarısız olursa trigger vasıtasıyla msj verdirtiyorum diyosunuz. Buna bakmalıyım. Tşk ler ...

Query1.Close;
Query1.SQL.Text :=' begin transaction '+
' insert into web_paket ( '+
' paket_id, '+
' paket_adi, '+
' top_dmn, '+
' alan, '+
' trafik, '+
' ) values ( '+
pak_adi.text+', '+
pak_id.text+', '+
pak_dmn.text+', '+
pak_alan.text+', '+
pak_trafik.text+', '+
' ) '+
' commit ...

Hocam Parogramı açarken kullanıcınısı ve İzinlerini seçtirtiyorum.
Sonra Database yi bağlıyorum. İşlemler başlıyo.

Herhangi bir formda işlem yapmaya başlıyorum. Sonra Before Post a İnsert cümlesi ile veri ekliyorum.
Denerken; bütün alanları dolduruyorum ve kaydet tuşuna bamadan SQL server i stop ...

Tşk ederim Hocam.

Bende ODBC ile bağlanıyorum. Yalnız BDE deki bileşenleri Kullanıyorum. Bendeki Kodun bi benzerini yazmışsınız sanırım. Benim Testimde de hala kendi hatasını veriyor.
Neyse Bakim Biraz, birşe olursa söylerim



Selamlar...

if F_MyUnit.db.Connected = False then begin showmessage('Bağlantı Yok, Lütfen Konrtol Edin'); abort end else
......// post vs kodlar




procedure CheckConnection;
var
i:integer;
begin
i:=0;
F_MyUnit.Q1.Close;
F_MyUnit.Q1.SQL.Text:='select * from ayarlar';
Try
F_MyUnit.Q1.Open;
except ...

Merhabalar. Mssql kullandığım bir projem var, ağ üzerinde 2 bilgisayarda çalışıyorum.

Post olayını Chash Update yi açıp Query nin before post una yazıyorum. Eski Makine Olduğu için diğer bilgisayar bazen SQL cvap vermiyo veya kapalı oluyo. ondan dolayı hata veriyor. Kullanıcının karşılaşması hoş ...

@Query Hocamın yardımıyla sonradan bu şekilde değiştirdik... Düzeldi :)

procedure doldur( Rzdbcombobox1 : TrzDbCombobox; a : String);
begin
RzDbCombobox1.Items.Clear;
RzDbCombobox1.Items.Add(a);
ShowMessage(RzDbCombobox1.Items[0]);
end;

Privatenin üstüne tanımlamamıza gerek yokmuş;


Sonra ...

Slmn Alykm;

DbCombobox1.items.Add(ibdt.fieldbyname('ADI').assitring); // idbdt = IBDATASET

veya da if dbedit1.text = '' then DbCombobox1.items...... diye ekliyorum.

Sorun Olan item eklemek değil. Bu dbCombobox a duruma göre 10 a kadar item ekleyeceğim. bir DBedit olayını exit eventinde bu işlemi ...

Slm.

Bende Bu hatayı Almaya Başladım. Firebird birbuçuk kullanıyorum. 4 form da 4 tane database bileşeni var. 5. yi ekledim ve kompile edecekken maximum user hatası veriyo. 2(database bileşenini) vt bağlantsını kaldırınca kompile ediyor.

ne yapmalıyım ??



Selamlar...

Pardon Pardon. Hata var son dediğimde.

Ramazan Hocamın dediği gibi olcak. BeforePost dan sora +1 yapılcak.
Yukarda Söylediğim her durum için geçerli değil...

Selamlar...

Bende benzer bi r uygulma yapıyorum.

Her yeni bir kayıtta ilk önce table deki son kaydı çağırttır. Onu görsün. veya yeni numaryı tam post anında verdir. Yani kim yazmaya başlarsa başlasın, otomatik noyu, tam post anında yapacağı için sorun olmaz. ;)
Sanırım Ramazan Hocam da bunu sölemiş..
Kolay ...

coderlord yazdı:Uğraşının elinden birşey kurtulmaz.

Doğru Söylüyosun Hocam.
Bi Gelişme Kaydeden Oldumu Acaba?


Selamar...

Hocam Bende Giriş Bağlantı Noktası Bulunamadı diye hata veriyo.

1487192 yordam giriş noktası, kernel32.dll dinamik bağlantı kitaplığında bulunamadı die hata veriyo.

Ne yapabilirim acaba ??

Hocam İBEvent Bileşenine bi bak. Event Yakalama olayı ile yapabileceğimizi duymuştum. Birde ikinci Çözüm bir buton koyarsın İBDatabase yi kapatıp açarsın, Table yenilenmiş olur.

Büyük Projelerde 2. olay(Yenile gibi bi buton) daha çok kullanılıyo diye Dedemden :) ;) duymuştum. Sen de dene bi, Ama ...