adoquery close時錯誤 |
答題得分者是:Justmade
|
GiGi
一般會員 發表:17 回覆:21 積分:7 註冊:2002-10-19 發送簡訊給我 |
procedure TConvertForm.ConvertFile();
var
FileName,TMode : string;
InsertQuery:TQuery;
i:Integer;
begin
InsertQuery:=TQuery.Create(self);
InsertQuery.DatabaseName:=AppPath + DatabasePath;
FileName:=SourceEdit.Text;
ADOQuery1:=OpenXlsAsADO(self,SourceEdit.Text);
i:=0;
while not ADOQuery1.eof do
begin
InsertQuery.Sql.Text:='Insert INTO TrasBill(編號,超商,金額,日期) Values';
InsertQuery.Sql.add('("'+copy(ADOQuery1.Fields[2].asstring,1,9));
InsertQuery.Sql.add('","'+'asdfsafd');
InsertQuery.Sql.add('",'+ADOQuery1.Fields[3].asstring);
InsertQuery.Sql.add(',"'+StringReplace(ADOQuery1.Fields[0].asstring,' ','',[rfReplaceAll])+'")');
InsertQuery.ExecSQL;
inc(i);
ADOQuery1.Next;
end;
showmessage('共匯入'+inttostr(i)+'筆資料');
ADOQuery1.Close;
if (FileExists(SourceEdit.Text)) then
begin
end
else
ErrorBox('找不到檔案!'); end; 當執行到 ADOQuery1.Close 時 就會出現上面所列之錯誤 煩請各位先進指正
謝謝
|
Jasonwong
版主 發表:49 回覆:931 積分:581 註冊:2006-10-27 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
GiGi
一般會員 發表:17 回覆:21 積分:7 註冊:2002-10-19 發送簡訊給我 |
|
jerryhung
初階會員 發表:6 回覆:46 積分:30 註冊:2002-12-11 發送簡訊給我 |
引言: 再請問一個問題,Justmade 提供的更新檔,需要先更新Delphi5.0 Update Pack 1 我去抓了delphi網址的D5EntUpdate 跟 站裡提供的D5EntUpdate 執行後(每次只執行一個 然後就執行JUSTMADE提供的程式) 但是 也不能消除之前所提出的錯誤訊息 不知道小弟是否順序錯誤還是 檔案抓取錯誤呢 ? 煩請撥空解答 謝謝[Delphi 5 各版本 Update Pack 1] 執行修正程式必須輸入原版光碟封套上之安裝序號,修正錯誤清單請參見 http://www.inprise.com/devsupport/delphi/fixes/delphi501/index.html 檔案之說明。 像我們公司有PATCH檔案,我執行的順序如下便可以解決ADO的問題 D5EntUpdate.exe D5ADOUpgrade.exe D5ADOUPDATE2.EXE 你可能是誤會了Update Pack 1的意思,應該是指ADO Update Pack 1? 發表人 - jerryhung 於 2003/07/14 14:00:22 |
GiGi
一般會員 發表:17 回覆:21 積分:7 註冊:2002-10-19 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |