SQL語法請教 |
答題得分者是:timhuang
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
各位前進. 請問下列語法,如果要并在一列該如何寫.
Query2.SQL.Add('INSERT INTO TEST.DBF');
Query2.SQL.Add('( ENO ,');
Query2.SQL.Add(' NAME ,');
Query2.SQL.Add(' AGE ,');
Query2.SQL.Add(' ADDR ');
Query2.SQL.Add(' ) VALUES ( ');
Query2.SQL.Add(' ''' INTTOSTR(MAXENO) ''' ,');
Query2.SQL.Add(' ''' EDIT1.Text ''' , ');
Query2.SQL.Add(' ''' EDIT2.Text ''' , ');
Query2.SQL.Add(' ''' EDIT3.Text ''' ) '); 小弟在改寫過程式,出現如下錯誤信息:
[Error] UNIT1.PAS(65): '(' expected but identifier 'INTO' found 不甚感謝! Delphi新手﹐懇請各位前輩多多指教﹗謝謝您﹗
忻晟
------
忻晟 |
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
小弟想請教的是可以把這段SQL語言并在一起嗎?該如何寫.小弟是將此并在一起后才出現那個出錯信息滴,謝謝! 程式碼如下:
procedure TForm1.Button1Click(Sender: TObject);
VAR MAXENO : INTEGER;
begin
Query2.SQL.Clear;
Query2.SQL.Add('SELECT MAX(ENO) AS MAXENO FROM TEST.DBF');
Query2.CLOSE;
Query2.OPEN;
MAXENO := Query2.FieldByName('MAXENO').AsInteger 1; Query2.SQL.Clear;
Query2.SQL.Add('INSERT INTO TEST.DBF');
Query2.SQL.Add('( ENO ,');
Query2.SQL.Add(' NAME ,');
Query2.SQL.Add(' AGE ,');
Query2.SQL.Add(' ADDR ');
Query2.SQL.Add(' ) VALUES ( ');
Query2.SQL.Add(' ''' INTTOSTR(MAXENO) ''' ,');
Query2.SQL.Add(' ''' EDIT1.Text ''' , ');
Query2.SQL.Add(' ''' EDIT2.Text ''' , ');
Query2.SQL.Add(' ''' EDIT3.Text ''' ) ');
Query2.ExecSQL; Query1.CLOSE;
Query1.OPEN; end; Delphi新手﹐懇請各位前輩多多指教﹗謝謝您﹗
忻晟
------
忻晟 |
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |