Veri tabanında genel arama yardım

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
hsyn35
Üye
Mesajlar: 3
Kayıt: 24 Eyl 2017 04:47

Veri tabanında genel arama yardım

Mesaj gönderen hsyn35 »

Arkadaşlar merhaba iyi çalışmalar benim size iki sorum var yardımcı olursanız sevinirim delphi 7 kullanıyorum veri tabanım access 2007

1.soru:bağlantıları yapılmış hazır veri tabanında ad,soyad,sınıf,not,cinsiyet gibi arama yaptırmak yerine direkt veri tabanı belirtip oluşturduğumuz tablonun içinde genel arama yaptırma koduna ihtiyacım var

2.soru:başka bir program tarafından çalışan bir veri tabanımız var programı derleyemediğimiz için arama modu yok bende veri tabanına eriştim axcess veri tabanı ama stun adı veri tabanında (arac tipi)şeklinde yani boşluklu bir adı var bu yüzden arama kodu bitişik çalışıyor ayrık çalışmıyor ayrık çalışan arama koduna ihtiyacım var saygılarımla.
ertank
Kıdemli Üye
Mesajlar: 1657
Kayıt: 12 Eyl 2015 12:45

Re: Veri tabanında genel arama yardım

Mesaj gönderen ertank »

Merhaba, elinizdeki mevcut kodu ve database erişimi için kullandığınız bileşen bilgilerini paylaşmanız mümkün müdür? Sorularınızdan ne istediğinizi açıkça anlayamadım.
hsyn35
Üye
Mesajlar: 3
Kayıt: 24 Eyl 2017 04:47

Re: Veri tabanında genel arama yardım

Mesaj gönderen hsyn35 »

ertank yazdı: 25 Eyl 2017 03:21 Merhaba, elinizdeki mevcut kodu ve database erişimi için kullandığınız bileşen bilgilerini paylaşmanız mümkün müdür? Sorularınızdan ne istediğinizi açıkça anlayamadım.
procedure TForm1.Edit1Change(Sender: TObject);
begin
if edit1.Text='' then
ADOTable1.Filtered:=False
else
begin
ADOTable1.Filter:='AracTipi like '+'%'+edit1.Text+'%';
ADOTable1.Filtered:=True;
if ADOTable1.Fields.Fields[1].Value=null then
showmessage('ARADIĞINIZ PLAKA BULUNAMADI');
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ADOConnection1.Connected:=false;
ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=tarti.mdb;Persist Security Info=False;Jet OLEDB:Database Password=s490735S';
ADOConnection1.Connected:=true;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
ADOTable1.Connection:=ADOConnection1;
ADOTable1.TableName:='SrgGenel';
ADOTable1.Active:=true;
end;


Tarti.mdb adlı veri tabanı içindeki srggenel tablosu var bunun içindeki stunlardaki isimler boşluk ile girilmiş yani arac adı,arac plakası,arac tipi .normalde aracadı,aracplakası,aractipi .olması gerek benim sormak istediğmde: ADOTable1.Filter:='[b]AracTipi[/b] like '+'%'+edit1.Text+'%';
aramayı sütün adını ayrı yapan kod varmı? yok ise tarti.mdb adlı veri tabanında genel arama yapsın sütün belirtmeden veri tabanının adını ve tablosunu tanıtarak
ertank
Kıdemli Üye
Mesajlar: 1657
Kayıt: 12 Eyl 2015 12:45

Re: Veri tabanında genel arama yardım

Mesaj gönderen ertank »

Aşağıdaki şekilde alan adını tırnak içine alarak deneyebilirsiniz. Aynı şekilde köşeli parantez içinde de deneyebilirsiniz.

Kod: Tümünü seç

ADOTable1.Filter:='"Arac Tipi" like '+'%'+edit1.Text+'%';
hsyn35
Üye
Mesajlar: 3
Kayıt: 24 Eyl 2017 04:47

Re: Veri tabanında genel arama yardım

Mesaj gönderen hsyn35 »

ertank yazdı: 27 Eyl 2017 09:40 Aşağıdaki şekilde alan adını tırnak içine alarak deneyebilirsiniz. Aynı şekilde köşeli parantez içinde de deneyebilirsiniz.

Kod: Tümünü seç

ADOTable1.Filter:='"Arac Tipi" like '+'%'+edit1.Text+'%';
Teşekür ederim sayın ertank kardeşim sayende çözüldü problemim saol köşeli parantez işe yaradı saygılarımla iyi çalışmalar .
Cevapla