می خوام در بانك اطلاعاتي اكسس وقتي يه ركوردي را فيلتر ميكنم....

ميخواهم در بانك اطلاعاتي اكسس وقتي يه ركوردي را ----- ميكنم مثلا نام آن علي باشه علي رضا رو هم بياره

بايد از like در دستور فیلتر خودتون استفاده کنید

کد:

---

select Name from tblName where name like '%علی%'

---

گاه اكسس رو به دلفي لينك كرده باشي و از Odbc استفاده كني درست مثل -------- عادي دلفي از × استفاده كنيد.

راه ديگه اي براي لينك كردن اكسس به دلفي وجود داره؟

اگر از BDE و ODBC براي اتصال به اكسس استفاده ميكني اين كد رو استفاده كن

کد:

---

  Table1.Filter:='Name='+QuotedStr('Ali*');
 
or


Query1.Filter:='Name='+QuotedStr('Ali*');

---

ولي اگه از Ado استفاده كرديد

کد:

---

AdoTable1.Filter:='Name like '+QuotedStr('Ali%');
 
or


adoQuery1.Filter:='Name like '+QuotedStr('Ali%');

---

سلام به همگی من عضو جدید هستم،درحال نوشتن یه برنامه با دلفی 7 ودیتا بیس اکسس هستم،
4. با Adoquery می خوام با کدنویسی دو جدول رو join کنم .چطور این کار انجام میشه. از این دستور که استفاده می کنم خطا می ده:
Datamodule8.adoquery1.sql.add( 'select * from table1 innerjoin table2 where table1.id=table2.id' );
اگه کسی راهنماییم کنه ممنون می شم.

خوش آمدید.
از متد Clear قبل از این فرمان خودتون استفاده کردید یا نه ؟

سلام
كدتون رو به صورت زير اصلاح كنيد:

کد:

---

Datamodule8.adoquery1.sql.add( 'select * from table1 inner join table2 on table1.id=table2.id' );

---

شما به جای این کارها میتونی از پارامتر توی دستور SQL استفاده کنی یعنی به جای مقداری که مساوی فیلد قرار میدی یک پارامتر بزاری به این صورت که کافیه توی کد قبل اسم پارامتر : بذاری
مثال:
کد SQL

select * from demo where name like :myparam

کد استفاده در دلفی:

adoquery1.parameters.parambyname('myparam').value: ='%ali%';

جستجو پیشرفته
adranandegan.Filter:='nameranande like ' +'''%'+Edjostejo.Text+'%''';
adranandegan.Filtered:=True;

************************************************** *******
جستجو در متن

{private
aa:array of string;// آرایه نام
ab:array of string;//آرایه کد}

{procedure TForm1.edtsearchChange(Sender: TObject);
var
i:Integer;
il:Integer;
st:string;
n:Integer;
im:Integer;
begin
ad1.Filtered:=False;
for I := 0 to ad1.RecordCount-1 do
begin
st:=aa[i];
n:=Length(edtsearch.Text);
for il := 0 to (Length(st)-n)+1 do
begin
if edtsearch.Text=copy(st,il,n) then
begin
ad1.Locate('kodeeshterak',ab[i],[]);
ad1.Edit;
ad1.FieldByName('search').AsString:='1';
ad1.Post;
Break;
end
else
begin
ad1.Locate('kodeeshterak',ab[i],[]);
ad1.Edit;
ad1.FieldByName('search').AsString:='0';
ad1.Post
end;
end;
end;
ad1.Filtered:=True;
ad1.Filter:='search='+QuotedStr('1');
end;

procedure TForm1.edtsearchEnter(Sender: TObject);
var
I: Integer;
begin
aa:=nil;
ab:=nil;
i:=0;
ad1.First;
SetLength(aa,ad1.RecordCount);
SetLength(ab,ad1.RecordCount);
for I := 0 to ad1.RecordCount - 1 do
begin
aa[i]:=ad1.FieldByName('namemoshterak').AsString;
ab[i]:=ad1.FieldByName('kodeeshterak').AsString;
ad1.Next;
end;
end;