我已经通过connection建立了两个数据库的连接,怎么从源库表中取得数据集插入到目的库数据表中,表的结构不一样!
解决方案 »
- Delphi 多线程的问题!
- 小明和小新各做了多少风筝
- 为什么我自己写的控件安装后显示不出来?
- 在mysql 中这个语句怎么写?
- 用delphi写了一个activexform,现在想让数据集通过网页的形式传给activexform,不知怎样读网页中的内容
- 求方法:关于坐标定位
- 请教:怎样在程序中取得系统环境变量的值?
- 200分相送:如何实现只用键盘对dbgrideh(或dbgrid)记录进行多选操作(多段选择)!
- GUID菜鸟请教众大侠
- 请问如何判断Windows的类型啊!(比如:Win3.1,Win95/98,WinNT)
- 这次在XP下 不能装delphi7 了
- 请问Delphi里面有没有检测代码执行速度的工具?
insert into tmp_tal select * from table;
function TfrmMain.CreateTableInMemory(const AFieldDefs: TFieldDefs): TDataSet;
var tmpTable: TClientDataSet;
begin
tmpTable := nil;
Result := nil;
if AFieldDefs <> nil then
begin
try
tmpTable := TClientDataSet.Create(nil);
tmpTable.FieldDefs.Assign(AFieldDefs);
tmpTable.CreateDataSet;
Result := (tmpTable as TDataSet);
except
if tmpTable <> nil then FreeAndNil(tmpTable);
Result := nil;
Raise;
end;
end;
end;
ADataSet := TDataSet.Create(nil);
with ADataSet.FieldDefs do
begin
Add('Field1', ftString, 30);
Add('Field2', ftString, 100);
Add('Field3', ftString, 20);
Add('Field4', ftString, 100);
Add('Field5', ftString, 100);
Add('Field6', ftString, 100);
Add('Field7', ftString, 100);
end;
DataSource1.DataSet := CreateTableInMemory(ADataSet.FieldDefs);