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

[re_elhami_27]

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

[pik_4660]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[مرد مباح]

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

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

[FGIT]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[razieh.salehpour]

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

[مرد مباح]

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

[romixery]

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[CrazyGenius]

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

select * from demo where name like :myparam

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

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

[ldnhkuvhrd]

جستجو پیشرفته
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;