View Full Version : جستجو نام و نام خانوادگی
  
Roya Rayane
چهارشنبه 01 اسفند 1386, 20:32 عصر
سلام.
می خواستم از یک Edit نام و نام خانوادگی رو از دو فیلد  Name و Fname  در بانک SQl جستجو کنم  و البته اگه یک حرف هم زد تمام اونایی که با این حرف شروع میشه رو بیاره.
باید چه دستوری SQl لی بنویسم.
ممنون.
delphiprog3000
چهارشنبه 01 اسفند 1386, 20:40 عصر
سلام دوست عزیز 
شما میتوانید با اشیا مختلف این کا رو انجام بدید که من نمونه ای از adoquery رو براتون میزارم.
str1:string;
flag:=false;
if (edt_tckt_id.Text<>'') then
  begin
   flag:=true;
   str1:=' tckt_id like '+QuotedStr(edt_tckt_id.Text+'%');
  end;
if (edt_from.Text<>'') then
 if flag then
 begin
  str1:=str1+'and';
  str1:=' [from] like '+QuotedStr(edt_from.Text+'%');
  flag:=true;
 end
 else str1:=' [from] like '+QuotedStr(edt_from.Text+'%');
if (edt_dest.Text<>'') then
 if flag then
  begin
   str1:=str1+'and';
   str1:=' dest like '+QuotedStr(edt_dest.Text+'%');
  end
 else str1:=' dest like '+QuotedStr(edt_dest.Text+'%');
if not (edt_tckt_id.Text='')or not (edt_from.text='') or not (edt_dest.Text='')then
 with Qry_search_ticket  do
 begin
  close;
  sql.Text:='select * from tblticket where '+str1;
  open;
 end;
end;
شما  میتوانید با تعریف یک رشته و باید دستور sql رو به مقدار رشته اختصاص بدید. و بعد از آن مقدار را به شی ado ربط دهید.
موفق باشید......
rmb_ali
چهارشنبه 01 اسفند 1386, 20:48 عصر
AdoQuery1.Sql.Add('select * from TableName Where Name Like qoutedStr(edit1.text+'%') or Family Like qoutedStr(edit1.text+'%')
 
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.