现有两个数据库,要把一个数据库中的一个标的部分内容导入到另外一个数据库的一个空表中,我使用两个adoconnection和两个adoquery 。下面这段是一个库中两个表之间导入导出的,请指点两个库中如何进行操作的,谢谢!
with adoquery1 do
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('INSERT INTO t_yg(井号,层位,样品位置,油质波长范围,油质荧光亮度,油质发光面积,胶质波长范围,' );
adoquery1.sql.add('胶质荧光亮度,胶质发光面积,沥青质波长范围,沥青质荧光亮度,沥青质发光面积,水波长范围,水荧光亮度,水发光面积,色差,分析结果)');
adoquery1.SQL.Add('SELECT jh,cw,ypwz,yzbcfw,yzygld,yzfgmj,jzbcfw,jzygld,jzfgmj,lqzbcfw,lqzygld,lqzfgmj,sbcfw,sygld,sfgmj,secha,txjs FROM ['+str+']');
adoquery1.ExecSQL;
end;
with adoquery1 do
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('INSERT INTO t_yg(井号,层位,样品位置,油质波长范围,油质荧光亮度,油质发光面积,胶质波长范围,' );
adoquery1.sql.add('胶质荧光亮度,胶质发光面积,沥青质波长范围,沥青质荧光亮度,沥青质发光面积,水波长范围,水荧光亮度,水发光面积,色差,分析结果)');
adoquery1.SQL.Add('SELECT jh,cw,ypwz,yzbcfw,yzygld,yzfgmj,jzbcfw,jzygld,jzfgmj,lqzbcfw,lqzygld,lqzfgmj,sbcfw,sygld,sfgmj,secha,txjs FROM ['+str+']');
adoquery1.ExecSQL;
end;
解决方案 »
- 菜鸟提问,变量问题
- 请高手不吝赐教!!!!一个简单的问题(都不好意思问了!)
- 窗体应用:无法改变应用程序图标,Project Options->Application->Locd Icon...变灰了
- ERROR:没有活动事务
- 关于网络共享数据库
- try比if语句好吗,为了避免出错可以尽量用try语句吗?
- 我想做一个从TEdit继承过来的组件,该Edit要实现按下0、3、7、9几个数字键没反应,其它的与TEdit都一样,我该怎么写这个组件的处理事件呢
- 不知用crystal report 如何实现这个报表?(急急急急)
- 学delphi?
- 如何在点击表单的标题栏时不让表单击活?因为我不想让用户移动表单的位置!
- 如何让MDI窗体下的相同子窗体不重复开启
- 关于Query连接DBGrid显示数据库删除提示 table is read only问题
qry1.sql.text := 'INSERT INTO Database1.dbo.t_yg(井号,层位,样品位置,油质波长范围,油质荧光亮度,油质发光面积,胶质波长范围,胶质荧光亮度,胶质发光面积,沥青质波长范围,沥青质荧光亮度,沥青质发光面积,水波长范围,水荧光亮度,水发光面积,色差,分析结果)'
+ ' select jh,cw,ypwz,yzbcfw,yzygld,yzfgmj,jzbcfw,jzygld,jzfgmj,lqzbcfw,lqzygld,lqzfgmj,sbcfw,sygld,sfgmj,secha,txjs '
+ ' from DataBase2.dbo.tb';
qry1.execsql;