請問有關Query的問題 |
|
尚未結案
|
|
20052020
初階會員  發表：121 回覆：79 積分：40 註冊：2005-01-18 發送簡訊給我 |
請教各位大大
我以下該如何寫,幫我看看
謝謝 當我輸入條件到Edit1和Edit2時
用Query比對資料是不是相同(這個地方有錯請教各位大大,該如何寫)
Data=NB.dbf ,edit1=NB_USER ,edit2=NB_CIPHER
如果相同showmessage('答對了') Query1.SQL.Clear;
Query1.SQL.Add('select * from NB.dbf where NB_USER=' Quotedstr (edit1.text) ' and NB_CIPHER=' Quotedstr(edit2.text);
Query1.CLOSE;
Query1.OPEN;
如果相同showmessage('答對了')
------
Xax |
|
Stallion
版主  發表：52 回覆：1600 積分：1995 註冊：2004-09-15 發送簡訊給我 |
|
|
cashxin2002
版主  發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗
begin
Query1.CLOSE;
Query1.SQL.Clear;
Query1.SQL.Add('select * from NB.dbf where NB_USER='+Quotedstr (edit1.text)+' and NB_CIPHER='+Quotedstr(edit2.text);
Query1.OPEN;
if Query1.RecordCount <> 0 then
ShowMessage('答對了');
end; =================================
------
忻晟 |
|
20052020
初階會員 發表：121 回覆：79 積分：40 註冊：2005-01-18 發送簡訊給我 |
不可以耶我又哪裡寫錯了
有錯誤訊息
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.CLOSE;
Query1.SQL.Clear;
Query1.SQL.Add('select * from NB.dbf where NB_USER='+Quotedstr (edit1.text)+''' and NB_CIPHER=''+Quotedstr(edit2.text)+''');
Query1.OPEN;
if Query1.RecordCount <> 0 then
ShowMessage('答對了');
------
Xax |
|
cashxin2002
版主 發表：231 回覆：2555 積分：1937 註冊：2003-03-28 發送簡訊給我 |
您好﹗ QuotedStr函數的作用就是在字串兩端加上單引號﹐您的寫法中既然有使用QuotedStr函數﹐就不能再多加引號了﹐修正為如下﹕
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.CLOSE;
Query1.SQL.Clear;
Query1.SQL.Add('select * from NB.dbf where ');
Query1.SQL.Add('NB_USER='+Quotedstr(edit1.text)+' and NB_CIPHER='+Quotedstr(edit2.text));
Query1.OPEN;
if Query1.RecordCount <> 0 then
ShowMessage('答對了');
end; =================================
------
忻晟 |
|
20052020
初階會員 發表：121 回覆：79 積分：40 註冊：2005-01-18 發送簡訊給我 |
發表時間：2005-07-07 19:00:08
IP:61.59.xxx.xxx 未訂閱
系統時間：2024-11-25 2:31:55
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |