f
یک شنبه 07 تیر 1388, 22:01 عصر
سلام
به نظر شما این کدهایی که من اینجا گذاشتم چه مشکلی داره که عمل فیلتر را انجام نمیده و error ای که براتون ضمیمه کردم را به من نشان میدهد؟؟؟لطفا راهنمایی کنید، میدونم که از کدهای sql و query هم میشه استفاده کرد ولی کلا هم میخواستم بدونم چرا این پیام را صادر میکنه در حالی که به نظرم دستوراتش درستن!!
ضمنا نام فیلدم را در جدولم هم چک کردم همین بوده و مشکلی از نظر تطبیق نام فیلد نداره.
با تشکر
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Open;
ADOTable1.Active:=True;
ADOTable1.Filtered:=false;
ADOTable1.Filter:='e_name='+ Edit1.Text;
ADOTable1.Filtered:=true;
i:=ADOTable1.RecordCount;
Edit2.Text:=IntToStr(i);
if i=0 then
ShowMessage('hello')
else
ShowMessage('bye');
end;
به نظر شما این کدهایی که من اینجا گذاشتم چه مشکلی داره که عمل فیلتر را انجام نمیده و error ای که براتون ضمیمه کردم را به من نشان میدهد؟؟؟لطفا راهنمایی کنید، میدونم که از کدهای sql و query هم میشه استفاده کرد ولی کلا هم میخواستم بدونم چرا این پیام را صادر میکنه در حالی که به نظرم دستوراتش درستن!!
ضمنا نام فیلدم را در جدولم هم چک کردم همین بوده و مشکلی از نظر تطبیق نام فیلد نداره.
با تشکر
procedure TForm1.Button1Click(Sender: TObject);
begin
ADOTable1.Open;
ADOTable1.Active:=True;
ADOTable1.Filtered:=false;
ADOTable1.Filter:='e_name='+ Edit1.Text;
ADOTable1.Filtered:=true;
i:=ADOTable1.RecordCount;
Edit2.Text:=IntToStr(i);
if i=0 then
ShowMessage('hello')
else
ShowMessage('bye');
end;