ورود

نسخه کامل مشاهده نسخه کامل : نحوه کار با edit و like



redmonarch
22-01-2008, 13:13
به نام خدا
با سلام
از شما سوالی داشتم در این رابطه که به چه صورت میتوان edit را طوری تنظیم کرد که با دستور select و like
طوری کار کند که ب تایپ یک حرف تمام کلماتی که با آن حرف شروع شدند را لیست کند البته بدون ado
نحوه دانلود کامپوننت های ado را بنویسید
با تشکر
خدانگهدار

romixery
22-01-2008, 19:40
منظورتون از بدون ado‌ چيه؟ مگه نمي خواين به بانك متصل بشين؟
دستورات Like و Select كي ميگين براي SQL هست كه SQL هم براي بانك اطلاعاتي. حالا اگه مي خواين بدون Ado كار كنيد، يعني بايد بدون SQL هم كار كنيد. بهتره بيشتر در مورد هدفتون توضيح بدين.
موفق باشين

F A R H A D
23-01-2008, 11:02
از شما سوالی داشتم در این رابطه که به چه صورت میتوان edit را طوری تنظیم کرد که با دستور select و like
طوری کار کند که ب تایپ یک حرف تمام کلماتی که با آن حرف شروع شدند را لیست کند
سلام. لينك امضاي بنده رو ببينيد

البته بدون ado
اگر از BDE استفاده ميكنيد كه كامپوننت query در همون تب bde هست

نحوه دانلود کامپوننت های ado را بنویسید
كامپوننتهاي ado به همراه دلفي نصب ميشه. اگر آخرين اطلاعات مربوط به ado.net رو ميخوايد بايد سايت مايكروسافت رو ببينيد

redmonarch
23-01-2008, 18:58
با سلام
از حسن توجه شما به مشکل بنده ممنونم
منظور من نحوه اتصال به بانک اطلاعاتی با استفاده از BDE هست چون در همین سایت نوشته بود
که اگر در رویداد on change شیئ edit ما با استفاده از ado و دستور select و like طوری select را تنظیم
کنیم که با تایپ یک حرف تمام کلمات ثبت شده در بانک اطلاعات که با آن حرف شروع میشوند را نمایش دهد
میخواهم بدانم این موردبا query و BDE امکان پدیر هست یا خیر
با تشکر

مرد مباح
23-01-2008, 23:18
دوست عزيز.
اگه نميخواي از فرامين SQL استفاده كني ميتوني توي Filter خود كامپوننت ( همه جدولها اين خاصيت رو دارن) مقدار مورد نظرت رو تعيين كني.
فكر ميكنم توي لينك امضام (همه چيز درباره ديتابيسها) بتوني به جواب برسي. اگه جواب نگرفتي بگو تا يك نمونه بات همين جا بنويسم.

BaniSoft
29-01-2008, 16:14
دوست عزیز در رویداد OnChange شی Edit کدهای زیر را بنویسید
procedure TForm1.Edit1Change(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('Select * from TableName Where FieldName liKe '+#39+Edit1.Text+'%'+#39)
Query1.Open;
end;