怎样实现对数据库的导入?(50分)

  • 主题发起人 主题发起人 人海茫茫
  • 开始时间 开始时间

人海茫茫

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大侠:
本人是一个刚刚学习delphi的菜鸟, 想知道怎样才能把一个数据库文件导入到另外一个数据库文件当中。
我查阅了很多书籍, 都没有答案,那位大侠可以帮我回答这个问题,越详细越好!
我现在想把dbf文件导入到另一个dbf文件当中, 要求是动态的导入方式, 就是从打开对话框中
选择一个dbf文件,然后把它倒入到另一个dbf文件当中,请各位指教, 应该怎么办?
最好把其他类型的导入方法一起交给在下,本人将不胜感激!
 
网上有这方面的例子,找一找吧
 
用batchmove控件。
 
这还不简单位
通过流
var
mStream : TMemoryStream;
begin
if OpenDialog.Execute then
begin
mStream := TMemoryStream.Create ;
mStream.LoadFromFile(OpenDialog.FileName);
mStream.SaveToFile(C_YSGL_WJName);//文件名称
mStream.Free;
end;
 
用batchmove可以很简单地实现

你可以看这个例子:/
../Borland/Delphi5/Help/Examples/Batchmv/batmv.dpr

或者:
type TTableType = (ttDefault, ttParadox, ttDBase, ttASCII, ttFoxPro);
procedure SaveQueryToDFW(Query:Tdataset;DfWname:String);
var
bachmove:Tbachmove;
table:Ttable;
Begin
Table:=TTable.Create(Application);
Table.Tablename:=DFWname;
Table.TableType:=ttDbase;
BatchMove.source:=Query;
BatchMove.Destination:=Table;
BatchMove.Mode:=batCopy;
try
batchMove.execute;
finally
bachMove.Free;
Table.free;
end;
end;
 
后退
顶部