請問各位大大ADOquery的問題..謝謝..拜託!!!!!!!!!! |
尚未結案
|
ert-ert
一般會員 發表:7 回覆:9 積分:3 註冊:2005-02-23 發送簡訊給我 |
請問各位大大:
我有inquireFM.SelectFM...adoquery員件在inquireFM...今天我如果按下inquireFM裡的新增
會秀SelectFM..則SelectFM上有combobox(姓名,生日.電話),edit2是要key的值
然後我按確定時...inquireFM會秀那個人的資料出來, procedure TSelectFM.BitBtn1Click(Sender: TObject);
var serquery:Tadoquery;
begin
serquery:=TADOquery.Create(nil);
serquery.Connection:=inquireFM.ADOConnection1;
case ComboBox1.ItemIndex of
0:
begin
inquireFM.ADOQuery1.Close;
inquireFM.ADOQuery1.SQL.Clear;
inquireFM.ADOQuery1.SQL.Text:=' select * from CUSTOMER '
' where customer_Name like''' '%' Edit2.Text '%' ''''
' order by customer_no desc ';
inquireFM.ADOQuery1.Open;
end;
1:
begin
inquireFM.ADOQuery1.Close;
inquireFM.ADOQuery1.SQL.Clear;
inquireFM.ADOQuery1.SQL.Text:=' select * from CUSTOMER '
' where customer_tel like''' '%' Edit2.Text '%' ''''
' order by customer_no desc ';
inquireFM.ADOQuery1.Open;
end;
end;
self.Close;
end; 可是我執行...把selectFM的值key完時..按下確定卻發生
錯誤....
project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 004BDFCE in module 'project1.exe'.Read of address 000004C4'.process stoped. use step or run to continue. 希望各位大大可以替我解答...感謝各位大大
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 把程式碼中的SQL語法部分修改成如下試試﹕
inquireFM.ADOQuery1.SQL.Text := 'Select * From CUSTOMER Where customer_Name Like ''%'+Edit2.Text+'%'' Order By customer_no DESC'; inquireFM.ADOQuery1.SQL.Text := 'Select * From CUSTOMER Where customer_tel Like ''%'+Edit2.Text+'%'' Order by customer_no DESC'; =================================
有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗
================================
------
忻晟 |
ert-ert
一般會員 發表:7 回覆:9 積分:3 註冊:2005-02-23 發送簡訊給我 |
|
Brian77
中階會員 發表:8 回覆:114 積分:94 註冊:2002-05-17 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
pillar62
資深會員 發表:9 回覆:324 積分:271 註冊:2002-04-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |