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;
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;
解决方案 »
- 求汉字笔划库
- 我按条件查询出来的记录的没有序号
- 为什么我的Twebbrowser.Document=nil????
- 由于D区的一猛、二猛、三猛诞生了,散分。
- 如何【获取】并【修改】EXE文件的【图标】和【版权信息】??
- Memo问题
- 紧急求助,如何从SQL数据库中,将表中记录插入到ACCESS数据库表中?
- 呵呵,三天多了一条内裤,专家分和可用分都有3000以上,十分的高兴,散分了!
- ********一个自定义控件的问题*********
- 大虾们帮帮我!!仅有33分,日后涌分相报!!!!!!!!!
- 如何可以保证导出到excel中小数点的保留位数
- 我有两颗星,可那是在其他地方混的,在这儿我有一个大白菜问题:)
就是过程调用是各个参数意思, 谢谢,本过程表示在BDE里拷贝表格
希望帮忙,刚才那个我分结了,OK ,
SrcTblName //原表名
ToDir //目标目录
DestTblName //目标表名
SrcTblName //原表名
ToDir //目标数据库名
DestTblName //目标表名
SrcTblName //原表名
ToDir //目标数据库名全路径
DestTblName //目标表名