Çözüldü-tabloada arama yapmak

[sadikacar60]

arkadaşlar daha önce yapmıştım ama notlarım formata kurban gitti veritabanında aramada sorun yaşıyorum 
daha önce yaptığım şeyi beceremedim bir türlü.

Kod: (Select All)

function LinkAra(link:string):integer;
var
 sonuc:integer;
begin
DMvt.SQLQuery1.SQL.Clear;
//DMvt.SQLQuery1.SQL.Add('SELECT * FROM TBL_LINK  where VLINK LIKE ''%'+link+'%'' ');
DMvt.SQLQuery1.SQL.Add('SELECT * FROM TBL_LINK  where VLINK='''+link+''' ');
DMvt.SQLQuery1.Open;

sonuc:= DMvt.SQLQuery1.RecordCount;

end;

link:=https://www.youtube.com/watch?v=6nFxVnFjw3M  şeklinde bir datayı daha önce kaydetmişmiyim diye tablomdan kontrol etmem lazım.  

tablomda sadece 1 kayıt olmasına rağmen sonuç doğru gelmiyor   burda kayıt var veya yok şeklinde bir değer nasıl alabiliriz

saygılarımla

[hi_selamlar]

(15-06-2019, Saat: 23:21)sadikacar60 Adlı Kullanıcıdan Alıntı: arkadaşlar daha önce yapmıştım ama notlarım formata kurban gitti veritabanında aramada sorun yaşıyorum 
daha önce yaptığım şeyi beceremedim bir türlü.

Kod: (Select All)

function LinkAra(link:string):integer;
var
 sonuc:integer;
begin
DMvt.SQLQuery1.SQL.Clear;
//DMvt.SQLQuery1.SQL.Add('SELECT * FROM TBL_LINK  where VLINK LIKE ''%'+link+'%'' ');
DMvt.SQLQuery1.SQL.Add('SELECT * FROM TBL_LINK  where VLINK='''+link+''' ');
DMvt.SQLQuery1.Open;

sonuc:= DMvt.SQLQuery1.RecordCount;

end;

link:=https://www.youtube.com/watch?v=6nFxVnFjw3M  şeklinde bir datayı daha önce kaydetmişmiyim diye tablomdan kontrol etmem lazım.  

tablomda sadece 1 kayıt olmasına rağmen sonuç doğru gelmiyor   burda kayıt var veya yok şeklinde bir değer nasıl alabiliriz

saygılarımla

Merhabalar,

Bir kaç noktayı kontrol etmenizi öneririm.
SQL kodunuzda bir hata göremedim.

Fakat, daha önce kayıt ettiğiniz veriler içerisinde aynı veriye sahip bir den fazla kayıt olup olmadığını kontrol edin.

SELECT 
  VLINK,
  count(vlink) kayit_sayisi
FROM
  TBL_LINK
GROUP BY 
  VLINK
HAVING
  count(vlink)>1;

Bu sorgu sonucunda aynı isme sahip vlink kayıları listelenecektir.
Sonucun boş dönmesi gerekli. Eğer sonuc dönerse o kayılardan birer tanesini silin.

Daha sonra;

function LinkAra(link:string):integer;
var
 sonuc:integer;
begin
DMvt.DMvt.SQLQuery1.Close;
DMvt.SQLQuery1.SQL.Clear;
DMvt.SQLQuery1.SQL.Add('SELECT * FROM TBL_LINK  where VLINK=:aranacak_deger');
DMvt.SQLQuery1.ParamCheck := True;
DMvt.SQLQuery1.Params.ParamByName('aranacak_deger').DataType := ftString;
DMvt.SQLQuery1.Params.ParamByName('aranacak_deger').Value :=link;
DMvt.SQLQuery1.Open;

sonuc:= DMvt.SQLQuery1.RecordCount;

end; 

Diğer bir yöntem;

SQL Count fonksiyonu ile de kayıt sayısına daha hızlı ulaşabilirsiniz.

Dipnot;
Kesin sonuç arıyorsanız (1'e bir eşleşen) LIKE komutu kullanmayın.
LIKE komutu içinde geçen kayıtlara ulaşmak için kullanılır.

ÖRNEK;
Veri > AHMET NABER
VERİ > NABER OSMAN

LIKE "%NABER%"

SONUÇ;
- AHMET NABER
- NABER OSMAN

Kolay gelsin.

[mcuyan]

sanırım hocam lazarus kullanıyor. lazarus da parametre kullanımı biraz sıkıntılı (:değişken gibi).. Hocam sql cümleciğine değişken verirken Quatrstr yada 4 tane tırnak arasına alın '''''%ali%''''; gibi.

function LinkAra(link:string):integer;
var
sonuc:integer;
begin
DMvt.SQLQuery1.SQL.Clear;
DMvt.SQLQuery1.SQL.Add('SELECT * FROM TBL_LINK  where VLINK=' + ''''+link+'''');
DMvt.SQLQuery1.Open;

sonuc:= DMvt.SQLQuery1.RecordCount;

[sadikacar60]

teşekkürler hocam denedim sonuç hep 1 geliyor
hatayı gösteren video koydum bakarsanız sevinirim saygılarımla

https://drive.google.com/open?id=1Oy3--I...nQP9CeDIsO

[SimaWB]

DMvt.SQLQuery1.RecordCount'tan önce DMvt.SQLQuery1.Last'ı çağırıp dener misiniz?

[sadikacar60]

(16-06-2019, Saat: 14:07)SimaWB Adlı Kullanıcıdan Alıntı: DMvt.SQLQuery1.RecordCount'tan önce DMvt.SQLQuery1.Last'ı çağırıp dener misiniz?

Kod: (Select All)

DMvt.SQLQuery1.SQL.Clear;
DMvt.SQLQuery1.SQL.Add('SELECT * FROM TBL_LINK  where VLINK=' + ''''+link+'''');
DMvt.SQLQuery1.Open;

DMvt.SQLQuery1.Last;
sonuc:= DMvt.SQLQuery1.RecordCount;
Result :=sonuc;

ne yazarsam yazayım 1 değeri dönüş yapıyor. saygılarımla

[narkotik]

(16-06-2019, Saat: 17:19)sadikacar60 Adlı Kullanıcıdan Alıntı:

(16-06-2019, Saat: 14:07)SimaWB Adlı Kullanıcıdan Alıntı: DMvt.SQLQuery1.RecordCount'tan önce DMvt.SQLQuery1.Last'ı çağırıp dener misiniz?

Kod: (Select All)

DMvt.SQLQuery1.SQL.Clear;
DMvt.SQLQuery1.SQL.Add('SELECT * FROM TBL_LINK  where VLINK=' + ''''+link+'''');
DMvt.SQLQuery1.Open;

DMvt.SQLQuery1.Last;
sonuc:= DMvt.SQLQuery1.RecordCount;
Result :=sonuc;

ne yazarsam yazayım 1 değeri dönüş yapıyor. saygılarımla

Herhangi bir sorun gözükmüyor. Test için;
DMvt.SQLQuery1.Close;
DMvt.SQLQuery1.Open;
Olmazsa
Yeni bir Query create ederek yaparmısınız.

[sadikacar60]

(17-06-2019, Saat: 17:46)narkotik Adlı Kullanıcıdan Alıntı:

(16-06-2019, Saat: 17:19)sadikacar60 Adlı Kullanıcıdan Alıntı:

Kod: (Select All)

DMvt.SQLQuery1.SQL.Clear;
DMvt.SQLQuery1.SQL.Add('SELECT * FROM TBL_LINK  where VLINK=' + ''''+link+'''');
DMvt.SQLQuery1.Open;

DMvt.SQLQuery1.Last;
sonuc:= DMvt.SQLQuery1.RecordCount;
Result :=sonuc;

ne yazarsam yazayım 1 değeri dönüş yapıyor. saygılarımla

Herhangi bir sorun gözükmüyor. Test için;
DMvt.SQLQuery1.Close;
DMvt.SQLQuery1.Open;
Olmazsa
Yeni bir Query create ederek yaparmısınız.

close yapıp tekrar açınca düzeldi   çok teşekkürler hocam zaman ayırıp cevap yazan hocalarıma saygılar sunarım.

[adelphiforumz]

  DMvt.SQLQuery1.Close;
  DMvt.SQLQuery1.SQL.Text := 'Select Count(*) As BulunanKayitSayisi From TBL_LINK  Where VLINK Like ''' + '%' + link + '%' + ''' ';
 DMvt.SQLQuery1.Open;
 Button1.Caption := IntTostr(DMvt.SQLQuery1.FieldByName('BulunanKayitSayisi').AsInteger);

[sadikacar60]

teşekkürler adelphiforumz hocam gönderdiğiniz kod da çalıştı.
saygılarımla