Herkese merhaba. Access databasim ve Eserler tablom var. Delphiden bu eserler tablosuna filitreleme yapmak istiyorum
Eser ismi örneğin İzmir ama olmuyor. Gönderilen bilgiyi tamamen türkçe karakterlerden arındırdım gönderdim olmadı. her iki tarafu Ucase ile büyüttüm access ı harfini büyütemedi i yide I yaptı. İki gündür uğraşıyorum. Bu konu hakkında bilgisi olan varsa lütfen paylaşsın.
Delphi Access filitreleme
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
1.
ADOTable1.Filter:='AlanAdı='+#39+edit1.Text+#39;
ADOTable1.Filtered:=True; // false yaparsan sorgulamayı iptal eder.
2.
begin
dm.ADOQuery1.Close; //Adoqueryi kaptıyoruz
dm.ADOQuery1.SQL.Text:='select * from TABLO ADI where ALAN ADI like "'+edit1.text+'%"';
dm.ADOQuery1.Open;//Adoqueryi Açıyoruz
end;
3.
begin
if edit1.Text='' then
begin
label1.Caption:='0';
ADOTable1.Filtered:=False;
end
else
begin
ADOTable1.Filter:='Adi like '+'%'+edit1.Text+'%';
ADOTable1.Filtered:=True;
if ADOTable1.Fields.Fields[0].Value= null then
label1.Caption:='Böyle Kişi Kayıtlarda Bulunmuyor'
else
label1.Caption:=ADOTable1.Fields.Fields[0].Value;
end;
end;
ADOTable1.Filter:='AlanAdı='+#39+edit1.Text+#39;
ADOTable1.Filtered:=True; // false yaparsan sorgulamayı iptal eder.
2.
begin
dm.ADOQuery1.Close; //Adoqueryi kaptıyoruz
dm.ADOQuery1.SQL.Text:='select * from TABLO ADI where ALAN ADI like "'+edit1.text+'%"';
dm.ADOQuery1.Open;//Adoqueryi Açıyoruz
end;
3.
begin
if edit1.Text='' then
begin
label1.Caption:='0';
ADOTable1.Filtered:=False;
end
else
begin
ADOTable1.Filter:='Adi like '+'%'+edit1.Text+'%';
ADOTable1.Filtered:=True;
if ADOTable1.Fields.Fields[0].Value= null then
label1.Caption:='Böyle Kişi Kayıtlarda Bulunmuyor'
else
label1.Caption:=ADOTable1.Fields.Fields[0].Value;
end;
end;
Şafak 300 ( 10.04.2005) dü artık Yok....
http://www.ucretsizyazilim.com
Kısaca Ben : http://www.google.com.tr/search?hl=tr&q ... 5%9F&meta=
http://www.ucretsizyazilim.com
Kısaca Ben : http://www.google.com.tr/search?hl=tr&q ... 5%9F&meta=
-
- Üye
- Mesajlar: 37
- Kayıt: 03 Nis 2006 04:46
AutoTranslate True yapamadım.
AutoTranslate True yapamadım. AdoConnection da yazdığıma "yüklenebilir ISAM Bulunamadı hatası alıyorum." Ne yapabilirim.
- delphi.net
- Üye
- Mesajlar: 67
- Kayıt: 01 Nis 2007 05:30
- Konum: mUĞLa
var
bitt,bast:string;
begin
bitt:=DateToStr(bitt2.Date);
bast:=datetostr(bast2.Date);
dm.fatura.Filtered:=true;
dm.fatura.Filter:='Turu=''Cikis'' and Faturatarihi>='''+bast+''' and Faturatarihi<='''+bitt+'''';
tarih alanı filtrelemek için böyle bir şey kullunmıştım.. bunu aynısını biraz değişitirerek herhangi bir string filtreleme içinde kullanabilirsiniz...
bitt,bast:string;
begin
bitt:=DateToStr(bitt2.Date);
bast:=datetostr(bast2.Date);
dm.fatura.Filtered:=true;
dm.fatura.Filter:='Turu=''Cikis'' and Faturatarihi>='''+bast+''' and Faturatarihi<='''+bitt+'''';
tarih alanı filtrelemek için böyle bir şey kullunmıştım.. bunu aynısını biraz değişitirerek herhangi bir string filtreleme içinde kullanabilirsiniz...
16e9b32df6861aff1f0b65b77a29679f