引言: 因為我的SQL是用SQL.LoadFromFile 再看內容決定是用Open或是ExecSQL; 但是我是否可以預先檢查SQL語法的正確性?? (PS.以不會出現SQL.Error為前提)

var lstSQL : TStringList;
    i :integer;
begin
  lstSQL ;= TStringList.Create();
  lstSQL.LoadFromfile('sql.txt');
  for i := 0 to lstSQL.Count -1 do begin
    sTmpSQL := lstSQl[i];
    query1.sql.text := sTmpSQL;
    if (sTmlSQL[1] = 'S') or (sTmlSQL[1] = 's')then begin
      query1.Open;
    end else begin
      query1.Execsql;
    end;   
  end; //for end
  lstSQl.Free; 
end;

引言: 因為我的SQL是用SQL.LoadFromFile 再看內容決定是用Open或是ExecSQL; 但是我是否可以預先檢查SQL語法的正確性?? (PS.以不會出現SQL.Error為前提)

var lstSQL : TStringList;
    i :integer;
begin
  lstSQL ;= TStringList.Create();
  lstSQL.LoadFromfile('sql.txt');
  for i := 0 to lstSQL.Count -1 do begin
    sTmpSQL := lstSQl[i];
    query1.sql.text := sTmpSQL;
    if (sTmlSQL[1] = 'S') or (sTmlSQL[1] = 's')then begin
      query1.Open;
    end else begin
      query1.Execsql;
    end;   
  end; //for end
  lstSQl.Free; 
end;

引言: 我認為你只能直接對資料庫去執行LoadFromFile所帶回來的sql指令.雖然我不曉得你的系統是要做出什麼樣的功能,但如果光就"檢查SQL語法是否合法"這個功能,你不應該自己寫. 理由是SQL指令的檢查是資料庫軟體一個滿重要的部分,把一道sql指令解析,然後決定如何抓取/更新資料,這本來就是資料庫的事情.同樣的,即使是判斷要Open或ExecSQL,我也覺得難度很高. 所以,你頂多就是用try-except把執行sql指令的部分包起來(但這卻不是你想要的解法),執行錯誤了,就告訴user,你的sql指令不合法.甚至,連open與execSQL,要用那一種方式,都讓user自己決定,這樣程式會比較簡單. 不過,我以前有看過可以檢查sql指令語法的3-party元件.但成效不彰(那個元件是用來做出類似sql-explorer這類軟體用的),因為很多sql指令明明資料庫可以接受,但元件都顯示錯誤語法.至於那個元件資料....,我沒有,也許有其他人有用過....

令天靈機一動,想到Prepare好像可以用,於是測了一下,果然可以喲!不過我只測
了BDE連Paradox而已,其他的我就沒測了。    procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  With Query1 Do Begin
    SQL.Text := Memo1.Text ;
    Try
      Prepare;
      ShowMessage('檢查OK');
      UnPrepare;
    Except
      ShowMessage('檢查Not OK');
    End;
  End;
end;

引言: 這方法我用過了,對於Interbase, MS-SQL都無效!! 還是感謝版主,花了時間幫我測試,真是不好意思

令天靈機一動,想到Prepare好像可以用,於是測了一下,果然可以喲!不過我只測
了BDE連Paradox而已,其他的我就沒測了。    procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  With Query1 Do Begin
    SQL.Text := Memo1.Text ;
    Try
      Prepare;
      ShowMessage('檢查OK');
      UnPrepare;
    Except
      ShowMessage('檢查Not OK');
    End;
  End;
end;

引言: 原來Prepare只對Select檢查有效, 但是對於Update,Delete,Insert等指令,則沒有檢查效果, 難怪,我之前可以,後來又不行, 然後看了版主Chance36的回覆,再試又可以, 但是現在才發現是這種現象!! [quote] 好象又可以了,是我的疏忽,感謝大家幫忙!! 用Prepare & Unprepare, is OK!!