VB中，怎样将查询到的数据显示在datagrid中，然后全部插入到oracle的表里面

Question

我连接oracle的语句
If rt.State = adStateOpen Then rt.Close
On Error Resume Next
rt.Open "select * from 部门表", cn, 3, 3
Set DataGrid1.DataSource = rt
但是怎样将查出来的数据添加到 部门表_01里面
所有查询的数据都是显示在datagrid中
哪位大侠能帮忙

Answer 1

1,最直接的方法，读取datagrid每一格数据，存入“部门表_01”，写起来比较复杂，执行效率低的没人愿意这样写
2,通过循环将rt记录集逐条保存，代码看上去比较简洁，效率依然极低
3,写一个SELECT * INTO格式的sql的语句，将查询到的结果直接插入到"部门表_01"，简单高效追问

能不能给个代码参考，或者留个联系方式，如果成功，追加多少分都可以

追答

select * into 部门表_01 from 部门表
sql/plus或PL/SQL执行，可能会报"ORA-00905:缺失关键字"错误，T-SQL中正常。

如果报错误，就用insert into，这个要求"部门表_01"必须存在
insert into 部门表_01 select * from 部门表
既然定义了cn直接用cn.Execute sql 即可，如：cn.Execute "insert into 部门表_01 select * from 部门表"