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 時 就會出現上面所列之錯誤 煩請各位先進指正 謝謝

請問你的DELPHI是第幾版的 還有你的ADO VCL 有更新嗎 另外這個主題已經討論好幾次了 建議你去搜尋一下 -- 聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心 傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

若是你是使用 Delphi 5 的話，請到這裡下載並安裝更新檔 : http://delphi.ktop.com.tw/topic.php?TOPIC_ID=178

謝謝解答 先前用ADO QUERY作關鍵字搜尋不到, 後來用錯誤訊息搜尋就可以找到相關資料了 再請問一個問題,Justmade 提供的更新檔,需要先更新Delphi5.0 Update Pack 1 我去抓了delphi網址的D5EntUpdate 跟 站裡提供的D5EntUpdate 執行後(每次只執行一個 然後就執行JUSTMADE提供的程式) 但是 也不能消除之前所提出的錯誤訊息 不知道小弟是否順序錯誤還是 檔案抓取錯誤呢 ? 煩請撥空解答 謝謝

引言: 再請問一個問題,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

謝謝各位先進 我解決問題了 Jasonwong 跟 Justmade看起來應該不缺點數 所以 點數就給jerryhung摟 再次感謝大家