现有两个数据库 我想把启用一个数据库中的一个表考到另外一个数据库中,请问用ado控件如何实现
解决方案 »
- Delphi编译出的程序,为什么在有的windows2003不能运行,内详,高手进
- Delphi技术交流五群招人,顶者有分,QQ群:76195529
- 子窗口如何自己控制在父窗口中的的位置
- AllocMem 怎么使用
- 在TDBGrid控件中的Columns中,在PickList属性中添加值,如何在TDBGrid添加值时,光标移到该Columns时,让其自动展开,变成下拉列表选择?
- 设备内容句柄在Delphi中有这个类吗?如何表示?
- 代码编辑器的自动完成功能是如何实现的?
- 一个关于窗体移动的问题
- 是不是用用了 USE SHELLAPI 后就可以调用WINDOWS的所有API函数????
- DELPHI 检测打印机的问题。
- 关于ShowWindow的2个问题!
- 问个dll中调用窗体的问题
用ADO考贝表的记录如下:procedure CopyTableData(Dest, Source: TADOQuery; ATable: String);
var
i: Integer;
fldDest: TField;
begin
Dest.DisableControls;
Source.DisableControls;
try
Source.Close;
Source.SQL.Text := 'select * from ' + ATable;
Source.Open; Dest.Close;
Dest.SQL.Text := 'delete * from ' + ATable;
Dest.ExecSQL;
Dest.SQL.Text := 'select * from ' + ATable;
Dest.Open; while not Source.Eof do
begin
Dest.Append;
for i := 0 to Source.Fields.Count - 1 do
begin
fldDest := Dest.FindField(Source.Fields[i].FieldName);
if fldDest <> nil then
fldDest.Value := Source.Fields[i].Value;
end;
Dest.Post;
Source.Next;
end;
finally
Dest.EnableControls;
Source.EnableControls;
end;
end;
可以直接导入所有任务
导入数据
源数据库
目标数据库
选择要导入的表就这么几步