將SQL Minotor之訊息自動寫出一個文字檔 |
尚未結案
|
Paicaso
中階會員 ![]() ![]() ![]() 發表:140 回覆:124 積分:52 註冊:2002-09-04 發送簡訊給我 |
|
pedro
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:152 回覆:1187 積分:892 註冊:2002-06-12 發送簡訊給我 |
可以藉由傾印Query.SQL屬性來達成
Select * from custom Table does not exist.
File or directory does not exist.
File: C:\Program Files\Borland\Delphi5\Projects\custom.DB
File: C:\Program Files\Borland\Delphi5\Projects\custom.DBF
File: C:\Program Files\Borland\Delphi5\Projects\custom.txt
File: C:\Program Files\Borland\Delphi5\Projects\custom
procedure TForm1.Button1Click(Sender: TObject); var ErrMsg:string; sl:TStringList; begin sl:=TStringList.Create; try Query1.SQL.Text:='Select * from custom'; Query1.ExecSQL; except on E:Exception do begin if E is EDBEngineError then begin ErrMsg:=Query1.SQL.Text #13; ErrMsg:=ErrMsg E.Message; //LogErrMsgToFile(ErrMsg); sl.Add(ErrMsg); end; ShowMessage(ErrMsg); end; end; sl.SaveToFile('c:\err.log'); sl.Free; end; |
Mickey
版主 ![]() ![]() ![]() ![]() ![]() 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
Paicaso
中階會員 ![]() ![]() ![]() 發表:140 回覆:124 積分:52 註冊:2002-09-04 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |