المشاركات : 9
المواضيع 4
:
: 0
الإنتساب : Jun 2013
[FONT=Arial Narrow]السلام عليكم
قمت بربط قاعدة بيانات اكسس مع الدالفي عن طريق ado
عند اجراء الفلترة (اي عند الكتابة في edit ) يظهر هذا الخطا
علما اني استعمل هذا كود الفلترة
كود :
http://img15.hostingpics.net/pics/362990371.jpg
PHP كود :
if edit1.Text <>'' then
begin
ADOTable1.Filter :='tele like '+ quotedstr(edit1.Text +'*');
ADOTable1.Filtered :=true;
end
else
ADOTable1.Filtered :=false;
اين هو المشكل ؟
المشاركات : 628
المواضيع 72
:
: 211
الإنتساب : Jun 2010
و عليكم السلام
شيئ من النت :
كود :
procedure DoIncrementalFilter(Dataset: TDataSet; const FieldName, SearchTerm: string);
begin
Assert(Assigned(Dataset), 'No dataset is assigned');
if SearchTerm = '' then
Dataset.Filtered := False
else
begin
Dataset.Filter := FieldName + ' LIKE ' + QuotedStr(SearchTerm + '*');
Dataset.Filtered := True;
end;
end;
مثال :
كود :
DoIncrementalFilter(ADOTable1, 'tele', Edit1.Text);
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
المشاركات : 9
المواضيع 4
:
: 0
الإنتساب : Jun 2013
المشاركات : 7
المواضيع 3
:
: 0
الإنتساب : May 2013
كود :
if Edit1.Text <>'' then
begin
DataModule2.ADOTable1.Filter := 'Nom like ' +QuotedStr(edit1.Text+'*');
DataModule2.ADOTable1.Filtered := true;
end else
begin
DataModule2.ADOTable1.Filtered := false;
end;
المشاركات : 140
المواضيع 36
:
: 0
الإنتساب : Aug 2009
نفس المشكلة التي وقعت فيها
عل وجدت لها حل أخي ؟
لا إله إلا الله محمد رسول الله
المشاركات : 17
المواضيع 1
:
: 1
الإنتساب : Jul 2011
Paradox and Dbase استعمل "*"
do (Sql Server ,Ms Access استعمل "%"
غير '*' ب '%' في الكود
المشاركات : 476
المواضيع 0
:
: 217
الإنتساب : Apr 2011
قم بإستبدال علامة التنصيص و النجمة '*' بالرمز التالي %
افصل بمسافة بين الحقل المراد فلترته ' tele like' والعلامة +
ليصبح الكود كمايلي
كود :
if edit1.Text <>'' then
begin
ADOTable1.Filter :='tele like ' + quotedstr(edit1.Text +'%');
ADOTable1.Filtered :=true;
end
else
ADOTable1.Filtered :=false;
المشاركات : 140
المواضيع 36
:
: 0
الإنتساب : Aug 2009
صارت لي نفس المشكلة و الحل هو :
كود :
begin
with (adotable1) do
begin
if edit1.Text = '' then
filtered := false
else
begin
Filter := 'اسم الحقل like ' + QuotedStr('*' +Edit1.Text + '*');
filtered := true ;
end;
end;
end;
لا إله إلا الله محمد رسول الله
المشاركات : 9
المواضيع 4
:
: 0
الإنتساب : Jun 2013
هذا هو حل المشكلة
بارك الله في الجميع
PHP كود :
ADOTable1.Filter := 'tele = ' + Edit1.Text;
ADOTable1.Filtered :=true;
اسم الحقل هو tele
الكود الذي طرحته في الموضوع يقوم با البحث في الحقل من نوع string
اما هذا يبحث في
integer