大量新增資料 |
尚未結案
|
yx_huang77
一般會員 ![]() ![]() 發表:46 回覆:64 積分:22 註冊:2004-03-19 發送簡訊給我 |
|
tonytop
中階會員 ![]() ![]() ![]() 發表:6 回覆:114 積分:89 註冊:2003-12-04 發送簡訊給我 |
利用BDE可達到這樣的功能,參考下列程式:
procedure TConvertForm.CopyTable(FromDir, SrcTblName, ToDir, DestTblName: String); var DBHandle: HDBIDB; ResultCode: DBIResult; Src, Dest, Err: Array[0..255] of Char; SrcTbl, DestTbl: TTable; begin SrcTbl := TTable.Create(Application); DestTbl := TTable.Create(Application); try SrcTbl.DatabaseName := FromDir; SrcTbl.TableName := SrcTblName; SrcTbl.Open; DBHandle := SrcTbl.DBHandle; SrcTbl.Close; ResultCode := DbiCopyTable(DBHandle,false, StrPCopy(Src,FromDir '\' SrcTblName), nil, StrPCopy(Dest,ToDir '\' DestTblName)); if ResultCode <> DBIERR_NONE then begin DbiGetErrorString(ResultCode,Err); raise EDatabaseError.Create('While copying ' FromDir '\' SrcTblName ' to ' ToDir '\' DestTblName ', the ' ' database engine generated the error ''' StrPas(Err) ''''); end; finally SrcTbl.Free; DestTbl.Free; end; end; |
yx_huang77
一般會員 ![]() ![]() 發表:46 回覆:64 積分:22 註冊:2004-03-19 發送簡訊給我 |
|
tonytop
中階會員 ![]() ![]() ![]() 發表:6 回覆:114 積分:89 註冊:2003-12-04 發送簡訊給我 |
|
cashxin2002
版主 ![]() ![]() ![]() ![]() ![]() ![]() 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |