چگونگي جستجو در بانك

[yunes1370]

چگونه ميتوانم در بانك جستجو كنم
اين بانك داراي سه مشخصه است " نام" فاميل " آدرس "
كد جستجو را در (دلفي ) برايم اگه ممكنه بنويسيد !!!!!!!!!!!!!!!

استي من از بانك اطلاعاتي خود دلفي استفاده مي كنم

===>>>> با تشكر <<<<=====

[mafazel]

با سلام
1- اگر منظورتون از بانك اطلاعاتي خود دلفي بانک پارادوکس و Table معمولیه و اگر پروژتون خیلی کوچک نیست! پیشنهاد می کنم اون بانک رو کنار بگذارید و از بانک اکسس و ADOConnection و ADOTable استفاده کنید.
2- اینجا خیلی به دنبال کد نباشید. بیشتر دنبال راهنمایی ها و کلمات کلیدی بگردید.
3- اگر از Table معمولی استفاده می کنید از SetKey و GotoNearest یا Locate استفاده کنید:


with Table1 do
begin
SetKey;
FieldByName('State').AsString := 'CA';
FieldByName('City').AsString := 'Santana';
GotoNearest;
end;

یا


with CustTable do
Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P', '408-431-1000']), [loPartialKey]);

[ar_mokhtari]

و اگر از AdoQuery استفاده كنيد كافيه Sql.text رو عوض كنيد و در اون از Like%% استفاده كنيد و بعد ExecSQL و البته امكاني براي بازگرداندن اطلاعات كامل.

[yashar666]

ADOQuery1.Filtered:=False;
ADOQuery1.Filter:='Name filde shoma'+' Like '+QuotedStr('%'+Edit1.Text+'%');
ADOQuery1.Filtered:=True;

[yunes1370]

اگه ممكنه من راراهنمايي كنيد
من از بانك اطلاعاتي خود دلفي استفاده مي كنم
طريقه جستجو را بلد نيبستم
ازتو مي خواهم برايم توضيح دهيد
با تشكر ..........................................!

[MSHService]

اگه ممكنه من راراهنمايي كنيد
من از بانك اطلاعاتي خود دلفي استفاده مي كنم
طريقه جستجو را بلد نيبستم
ازتو مي خواهم برايم توضيح دهيد
با تشكر ..........................................!

سلام


طريقه جستجو را بلد نيبستم
تو پست 2 بچه ها بهت گفتن!
آقا من امروز منوجان ماموریت بودم! دوستم اومد میناب تا کولر گازی بگیره! عجب گرم بود! خدا بهت صبر بده!:تشویق:
فکر کنم تو میناب کسی نباشه بهت کمک کنه!:افسرده:منم جیرفتیم و تنهام!
همین طور که دوستان گفتن بانکت رو عوض کن!! برا بعدا خیلی بهت کمک میکنه! هیچ فرقی با پارادکس نداره!تازه ساده تر هم هست.:لبخند:ز

با اکسس بانکت رو بساز بعد یهAdo Connection, ADOQuery بزار رو فرمت.بعد بهش Connect بشو.

اینم برای جستجو:


fill:=fill+' ( Name LIKE '+QuotedStr(Trim(
'%'+Ename.Text+'%'))+') ';
SQL.Add('SELECT * FROM TABLE1 WHERE '+fill);
Open;
if Recordcount<1 then
begin
MessageDlg(' گزينه اي يافت نشد ',mtInformation,[mbOK],0);
Exit;
end
else
MessageDlg(' تعداد ' +IntToStr(RecordCount)+' رکورد يافت شد',
mtInformation,[mbOK],0);

که Ename همون Edit شماست که می خواهید نامه مورد جستجو تون رو توش بنویسید، و Name هم فیلد جدول Table1 شماست.

موفق باشی.