benzersi kayıt

[ASE]

Mustafa Abi Allah rızası için yardım.
Ya bunu bilen yok ya da kimse söylemek istemiyor. Kime sordumsa yanıt alamadım.
Benim için çok önemli. Eğer bi gün bulur ve çalıştırırsam söz açık kodları burada yayınlayacağım....

Access e adotable ile bağlanıyorum. 28 adet alan ekliyorum. Ancak girdiğim alanlardan birinin kesinlikle benzersiz olması gerekiyor. Kodla benzersizliği bir türlü kontrol edemiyorum. bunu yapabileceğim bir kod varsa lütfen yardım edin. Bu alan otomatik sayı gibi artan değerlere sahip değil. Yani rastgele numaralardan oluşuyor. Yaptığım programın tek eksiği denilebilir ama 3 aydır çözemedim bu problemi.

İndex le yapılan benzeersizlik işime yaramıyor...
Yardım ederseniz minnettar olacağım...

DB de indexleme yaptığımda KEY VIOLATION accesde ise birincil anahtar üzerinde hata var gibi bir mesaj geliyor. Ama ben bunu kendim kontrol etmek istiyorum.

asedizer@hotmail.com

[lazio]

table ın beforepost unda girilen numarayı query ile sorgula.
query nin recordcount u 0 dan büyükse mevcuttur.
kolaygelsin..

[ASE]

Kardeşler mümkünse bir örnek verebilirmisiniz ben daha yeni sayılırım bu konularda sorgulama örneği yani kodu yazabilir misiniz.
Şimdiden sağolun

[hicker]

istediğin olayı yanlış anlamadıysam Table1.Post; yazan her yere aşağıdaki kodu yazarsan sanırım işini görür.

try
Table1.Post;
except
ShowMessage('Böyle bir kayıt mevcut!');
end;

kolay gelsin...

[mussimsek]

viewtopic.php?t=291

bu başlıkta örnekler var, kolay gelsin.

[mehmet_turecan_cakmak]

selam...

hocam zaten sen cevabı kendin vermişsin tablona bir alan ekle ve bunu otomatik sayı olarak tanımla başka yapılabilecek birşey yokki...

iyi çalışmalar...

[lazio]

query şöyle olcak.

Kod: Tümünü seç

select no from tableadı
where no = :xno 

query yi yazdıktan zonra params özelliğinde xno parametresinin tipini belirtmeyi unutma. Tablodaki no alanının tipineyse xno da aynı olmalı..

Kod: Tümünü seç

procedure TForm1.Table1BeforePost(DataSet: TDataSet);
begin
  if Query1.Active then
    Query1.Active := False;
  Query1.ParamByName('xno').Value := Table1No.Value;
  Query1.Active := True;
  if Query1.RecordCount > 0 then
  begin
    ShowMessage('Kayıt Mevcut');
    Abort;
  end;
end;