在oracle中怎么将查询到的数据插入到另一个表中？

在oracle中将查询到的数据插入到另一个表中：

1、Insert into t_tab

2、select * from  s_tab where 条件

Oracle Database，又名Oracle RDBMS，或简称Oracle。

是甲骨文公司的一款关系数据库管理系统。它是在数据库领域一直处于领先地位的产品。可以说Oracle数据库系统是目前世界上流行的关系数据库管理系统，系统可移植性好、使用方便、功能强，适用于各类大、中、小、微机环境。

它是一种高效率、可靠性好的 适应高吞吐量的数据库解决方案。

前两天接到一个需求——需要编程将SQL Server中的数据插入至Oracle 数据大约有 多万条记录 开始的时候我采取了直接构建SQL插入的方式 结果耗时太长 为了提高性能我上网找了资料 最终采用DataAdapter批量插入至Oracle 提高了性能

代码如下

一 直接构建SQL语句插入

 

VB NET

         sw Start()

         Read Z J from SQL Server

         Dim sqlCmd As New SqlCommand()

         sqlCmd Connection = sqlConnection

         sqlCmd CommandText = SELECT * FROM  Z J

         Dim sqlDr As SqlDataReader

         sqlDr = sqlCmd ExecuteReader()

         Dim cmdInsertZ J As New OracleCommand()

         cmdInsertZ J Connection = oraConnection

         cmdInsertZ J CommandText = BuildSQLStatement(SQLType Insert z j )

         Dim plantLever material oldMaterialNum materialDescription As Object

         While sqlDr Read()

             plantLever = ReadSqlDataReader(sqlDr )

             material = ReadSqlDataReader(sqlDr )

             oldMaterialNum = ReadSqlDataReader(sqlDr )

             materialDescription = ReadSqlDataReader(sqlDr )

              Insert to Oracle table Z J

             cmdInsertZ J Parameters AddWithValue( :plantLever plantLever)

             cmdInsertZ J Parameters AddWithValue( :material material)

             cmdInsertZ J Parameters AddWithValue( :oldMaterialNum oldMaterialNum)

             cmdInsertZ J Parameters AddWithValue( :materialDescription materialDescription)

             cmdInsertZ J ExecuteNonQuery()

         End While

         sw Stop()

         Loger Info( Reading z j form sql sever used sw Elapsed TotalSeconds ToString())

 

二 采用DataAdapter实现批量插入

 

VB NET

         sw Start()

         Read Z J from SQL Server

         Dim sqlCmd As New SqlCommand()

         sqlCmd Connection = sqlConnection

         sqlCmd CommandText = SELECT * FROM  Z J

         Dim sqlDr As SqlDataReader

         sqlDr = sqlCmd ExecuteReader()

         Dim cmdInsertZ J As New OracleCommand()

         cmdInsertZ J Connection = oraConnection

         cmdInsertZ J CommandText = BuildSQLStatement(SQLType Insert z j )

         Dim dtSqlZ J As New DataTable

         dtSqlZ J Columns Add( plantLever )

         dtSqlZ J Columns Add( material )

         dtSqlZ J Columns Add( oldMaterialNum )

         dtSqlZ J Columns Add( materialDescription )

         Dim plantLever material oldMaterialNum materialDescription As Object

         While sqlDr Read()

             plantLever = ReadSqlDataReader(sqlDr )

             material = ReadSqlDataReader(sqlDr )

             oldMaterialNum = ReadSqlDataReader(sqlDr )

             materialDescription = ReadSqlDataReader(sqlDr )

             dtSqlZ J Rows Add(plantLever material oldMaterialNum materialDescription)

         End While

         sw Stop()

         Loger Info( Reading z j form sql sever used sw Elapsed TotalSeconds ToString())

         sw Start()

         Dim oraDa As New OracleDataAdapter()

         oraDa InsertCommand = cmdInsertZ J

         oraDa InsertCommand Parameters Add( :plantLever OracleType Char plantLever )

         oraDa InsertCommand Parameters Add( :material OracleType Char material )

         oraDa InsertCommand Parameters Add( :oldMaterialNum OracleType Char oldMaterialNum )

         oraDa InsertCommand Parameters Add( :materialDescription OracleType Char materialDescription )

         oraDa InsertCommand UpdatedRowSource = UpdateRowSource None

         oraDa UpdateBatchSize =     Adjust the batch size based on testing result

         oraDa Update(dtSqlZ J)

         sw Stop()

lishixinzhi/Article/program/Oracle/201311/18480

---