Aranan tarih yoksa kayıt oluştur

[Serhat]

Selam;

MonthCalendar klik ile MonthCalendar da seçili tarih yok ise yeni kayıt oluşturmak istiyorum.
Fakat MonthCalendar da seçili tarih databasede olsa da, olmasa da kayıt ekleniyor bu durumu nasıl çözebilirim...

Kod: Tümünü seç

procedure TForm2.MonthCalendar1Click(Sender: TObject);
begin
  try
    with Year do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * FROM YEAR');
      SQL.Add('Where TARIH=:Tarih1');
      ParamByName('Tarih1').AsDate := MonthCalendar1.Date;
      Prepared := True;
      Open;
      if IsEmpty then
      begin
        Close;
        SQL.Clear;
        SQL.Add('Insert Into YEAR (TARIH)');
        SQL.Add(' Values (:TR)');
        ParamByName('TR').Value := MonthCalendar1.Date;
        ExecSQL;
      end;
    end;
  except
  end;
end;

[ikra]

Select count diyerek rakamsal deger alin. Kesin sonuc döndürecektir.

[Kuri_YJ]

Selamlar,

Kod: Tümünü seç

INSERT INTO YEAR (TARIH)
SELECT :P1
FROM YEAR 
WHERE NOT EXISTS(SELECT 1 FROM YEAR WHERE TARIH=:P2)

Şeklinde bir Query yapın, Tarih her tıklandığında Tarih yoksa INSERT eder. P1 ve P2 sizin calendarınızdaki Tarih bilgisini yükleyin

ya da (Eğer Firebird Kullanıyorsanız)

Kod: Tümünü seç

UPDATE OR INSERT INTO YEAR(TARIH)
VALUES(:P1)
MATCHING (TARIH)

yine burada eğer ilgili tarih kaydı yoksa INSERT eder, varsa da UPDATE eder. Siz yine her Calendar'da tarih tıklandığında bu kodu işletirsiniz. Başınız ağrımaz

Kolay Gelsin

[brs]

Databseye ektra TARIHX alanı oluştur sonrası sana kalmış...

Kod: Tümünü seç

procedure TForm2.MonthCalendar1Click(Sender: TObject);
var
  Str: String;
begin
  try
    DateTimeToString(Str, 'ddmmyyyy', MonthCalendar1.Date);
    with Year do
    begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT * FROM YEAR Where TARIHX=:TX');
      ParamByName('TX').AsString := Str;
      Prepared := True;
      Open;
      if IsEmpty then
      begin
        Close;
        SQL.Clear;
        SQL.Add('Insert Into YEAR (TARIHX, TARIH)');
        SQL.Add(' Values (:TX, :TR)');
        ParamByName('TX').AsString := Str;
        ParamByName('TR').AsDate := MonthCalendar1.Date;
        ExecSQL;
      end;
    end;
  except
  end;
end;