請問各位大大: 如何利用ADO將Foxpro table轉為Access table 例如用以下程式碼: a=CreateOleObject('ADODB.Recordset'); a.Open 'select * from b into c';

小弟才淺, 請問這是 Delphi 的程式碼嗎 ?     資料庫種類繁多, 記得先說用啥資料庫喔

Mickey 兄 我想那是delphi 語法沒有錯，可能是a120803 在語法上少打了， 如果不是Delphi 語法…那麼他就是發錯區…是要扣分的 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217"> 發表人 - ddy 於 2003/04/09 10:06:42

謝謝ddy大大: 我想採用第二種方法 至於設定了兩個recordset,如何在之間作資料拷貝ㄋ 是利用SQL的select語法嗎

先select Foxpro 再 insert access 相信你ok 的，只是這效率上不是很好 (一筆一筆的insert ) 你倒是可以試試看Recordset 間的複製，這部份我也沒有試過 我實際時程式作業…都會在程式裡保留 src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217">

如同幾位先進所言,我採用先將FoxPro要的資料取出,在Insert or Update TO Access Table, 雖用文字檔看起來彈性較大,依據我個人經驗,不知是否為Access之問題還是...功力不足,我曾經用文字檔轉過約1萬筆資料到Aceess果所花得時間非常長,且Access的檔案變得很大,不過那是用VB寫的.後來改用Delphi直接將FoxPro-->Access好像問題有大幅改善,提供您參考 Ex. FOXQUERY.SQL.Clear; FOXQUERY.SQL.Add('Select * From FoxPro '); FOXQUERY.SQL.Add('Order by A1'); FOXQUERY.CLOSE; FOXQUERY.OPEN; FOXQuery.First; //FoxPro While not FOXQuery.Eof do //FoxPro Begin A1 := Trim(FOXQUERY.FieldByName('A1').AsString); .... If FOXQuery.Eof = False Update_to_Access; //建議寫個更新的附程式 End Else Begin Insert_to_Access; FOXQuery.Next; END; ************************************* Insert_to_Access---> QueryP.SQL.Clear; QueryP.SQL.Add('INSERT INTO Access '); QueryP.SQL.Add('( A1 ,'); QueryP.SQL.Add(' A2 ,'); QueryP.SQL.Add(' A3 )'); QueryP.SQL.Add(' Values '); QueryP.SQL.Add('(:A1 ,'); QueryP.SQL.Add(' :A2 ,'); QueryP.SQL.Add(' :A3 )'); QueryP.ParamByName('A1').AsString := A1; .... try QueryP.ExecSQL; except ShowMessage('轉入失敗!'); end; *************************** Update_to_Access---> *******************************