Delphi Forum

Veridiğiniz şekilde trigger hata verdi, hocam .. Benim yapmak istediğim aynı yapıdaki 5-10 adet tabloyu Tek bir toplam tablosunda birleştirmekti .. Bu toplama işleminide her update olayında toplamların Toplam tablosuna yazılması şeklinde yapmak istiyordum .. Updatenin şartı aşağıdaydı onu ...

Bir After Ypdate triggerinde


SET CELL_01 = (SELECT SUM (CELL_01)
FROM SE_FORM023
WHERE (SE_FORM023.CALISMA_YILI = @XCALISMA_YILI) AND
(SE_FORM023.CALISMA_AYI = @XCALISMA_AYI) AND
(SE_FORM023.SAGLIKOCAGI_ID = @XSAGLIKOCAGI_ID))
SET CELL_02 = ...

böyle bir Update çok sayıda alan için (cell ...

Inserted ve Deleted Tabloları

Triggerlar çalıştığı zaman Inserted ve Deleted tablolarını kullanırlar. Bu tabloların her ikisi de ana tabloyla yani triggerın tetiklendiği tabloyla aynı yapıya sahiptirler. Bu tablolar, mantıksal tablo şeklinde RAM' de bulunurlar. Ana tabloya bir kayıt eklendiği zaman ...

Firebirdde After inset ve update triggerinde alan değerlerine eski değere OLD yeni değer NEW ile ulaşabiliyorduk MS SQL de bunun karşılı nedir .
tüm forum camiasına selamlar

Clipperle 1 sene kadar uğraştıktan sonra bir senede öğrendiğimin kat be kat fazlasını Clipper 5.2 kitabınızdan öğrenmiştim .. O günler için geç kalan teşekürü kabul edin memik hocam .. Sonra Delphiye geçtim ve Delphi ile ilgili yayınlamış olduğunuz kitaplarım tamamını aldım .. Bu kitaplardan Clipper ...

Gfix hakkında derli toplu bilgi ..

Veritabanı Bakım Aracı
(gfix)
Bir veritabanı yöneticisi olarak, veritabanına bağlanıp değişik toparlamalar ve iyileştirme işlemleri için komut satırı yönetim aracı gfix ‘i kullanabilirsiniz.
gfix ile yapılabilecek işlemler:
• Sweep, veritabanı süpürme.
• Sweep ...

CREATE PROCEDURE DEFTER_HASTAKABUL_SIFIRLA
as
declare variable val smallint;
begin
DELETE
FROM defter_hastakabul;
VAL = 0;
VAL = GEN_ID (gen_defter_hastakabul_id, val - GEN_ID (gen_defter_hastakabul_id,0) );

suspend;
end^



SP içinden bu şekildede generatör sıfırlanabiliyor . İnput değeri ...

yas hesaplayan udf . isteyen olursa gönderebilirirm ..

Hazırlamayı düşündüğüm veritabanında 70-80 adet değişken var .. Medeni hal - İş gurubu ..v.s gibi .. Değişkenlerin hepsini ayrı ayrı tablelarda tutup bunları DBLookUp ile verigirişini yapmak istiyorum .. Böylece değişkenlerde bi değişiklik olduğu zaman table değişkenlerinin güncellenmesi ile proğram ...

Bir firebird veritabanının Bir tablesindeki maksimum alan sayısı 255 midir daha fazla alan kullanabilirmiyiz?

unit UnitHek;

interface
uses IBExternals, IBHeader,sysutils,dateutils,controls;
type
TM = record
tm_sec : integer; // Seconds
tm_min : integer; // Minutes
tm_hour : integer; // Hour (0--23)
tm_mday : integer; // Day of month (1--31)
tm_mon : integer; // Month (0--11)
tm_year : integer ...

function yasal (VAR bg_gun, bg_ay, bg_yil, dt_gun, dt_ay,dt_yil:Integer):smallint;
Var
yas: integer;
begin

yas:=bg_yil-dt_yil;
if dt_ay< bg_ay
then yas:=yas- 01;
if ((dt_ay=bg_ay) and (dt_gun<bg_gun))
then yas:=yas- 01;
result:=yas;

end;

Verilen fonksiyon hata verdi ..
Fonksiyona altı ...

1899 boş tarih değeri bu doğru ..
Oysa veri tabanından girilmiş bir doğum tarihini gönderiyorum
ben ve hazırladığım fonksiyon gelen değeri NULL olarak algıyor
fonksiyonun parametresi ilgili bi hatamı yapıyorum ..
Bu konuda yardımcı olursanız sevinirirm ..

function yas_hesap(var x:TDate):Word;
Var
yil, ay, gun: word;
begin
DecodeDate(x,yil, ay, gun);
Result:=yil;
end;

yukarıdaki fonksiyonu içeren bir UDF hazırladım .. Fonksiyona veri tabanındaki Doğum Tarihini gönderdiğimde 1899 alıyorum .. Parametre geçirirkenmi hata yapıyorum ..

begin
DT_GUN= extract(day FROM :dogumtarihi);
DT_AY= extract(month FROM :dogumtarihi);
DT_YIL= extract(year FROM :dogumtarihi);
BUGUN_GUN=extract(day FROM current_date);
BUGUN_AY=extract(month FROM current_date);
BUGUN_YIL=extract(year FROM current_date);
IF (DT_AY> BUGUN_AY)
THEN donenyas ...