要是我会把ACCESS的库导到SQL里去,再备份,然后到另一台机子恢复可来
可行吗?
可行吗?
解决方案 »
- delphi导入wsdl文件后接口函数改变
- win2k开发的程序在xp下 的问题。。。 在线等。。。急
- 如何编程实现将多个html文件生成为一个exe? 类似chm帮助文件
- 当相邻两个字符键入时间超过某个值,触发一个事件,怎么实现?
- 泉州科力电脑公司招聘delphi程序员
- 今天我大寿,分5贴散分1000(5 of 5),请各位自觉莫重复接分!
- 请问在delphi中,怎么判断一个字符串中是否包含特定的字母,如fat中包含a这个字母?
- 我最烦跑进来只写"关注"(甚至是GZ/UP)的家伙!!同意的朋友请跟帖!
- 送分,如何截获控件的消息(不是动态创建的控件),我在线等。
- 图表显示
- 贺马年!(送送送!!!...吗), 马上来,马上给!
- 如何取出TDateTime 中的某个值来
导出就是用ado的savetofile(b.xml,pfxml)等等生成的xml文件
导入就是这些,
if FileExists('b.xml') then
begin
ADOQuery1.LoadFromFile('b.xml');
ADOQuery2.Active:=false;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from t_b');
ADOQuery2.Active:=true;
ADOQuery2.Append;
for j:=1 to ADOQuery1.FieldCount-1 do
ADOQuery2.Fields[j].AsVariant:=ADOQuery1.Fields[j].AsVariant;
ADOQuery2.Post; end;
if FileExists('z.xml') then
begin
//ADOQuery1.Open;
ADOQuery1.LoadFromFile('z.xml');
//ADOQuery2.Active:=false;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from T_J');
ADOQuery2.Active:=true;
ADOQuery2.Append;
for j:=1 to ADOQuery1.FieldCount-1 do
ADOQuery2.Fields[j].AsVariant:=ADOQuery1.Fields[j].AsVariant;
ADOQuery2.Post; end;
//////////////
if FileExists('s.xml') then
begin
ADOQuery1.LoadFromFile('s.xml');
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from t_zb');
ADOQuery2.Active:=true;
ADOQuery1.First;
for i:=0 to ADOQuery1.RecordCount-1 do
begin
ADOQuery2.Append;
for j:=1 to ADOQuery1.FieldCount-1 do
ADOQuery2.Fields[j].AsVariant:=ADOQuery1.Fields[j].AsVariant;
ADOQuery1.Next;
end;
ADOQuery2.Post; end;
select * into [DBASE IV; DataBase=C:\;].a.dbf from users导入的时候用数据源导入
TClientDataSet.SaveToFile
TClientDataSet.LoadFromFile