View Full Version : جستجو نام و نام خانوادگی
Roya Rayane
چهارشنبه 01 اسفند 1386, 19:32 عصر
سلام.
می خواستم از یک Edit نام و نام خانوادگی رو از دو فیلد Name و Fname در بانک SQl جستجو کنم و البته اگه یک حرف هم زد تمام اونایی که با این حرف شروع میشه رو بیاره.
باید چه دستوری SQl لی بنویسم.
ممنون.
delphiprog3000
چهارشنبه 01 اسفند 1386, 19: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, 19: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.