知识大全 Oracle数据的批量插入

Posted 2022-07-15 知

篇首语：书本上的知识而外，尚须从生活的人生中获得知识。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Oracle数据的批量插入相关的知识，希望对你有一定的参考价值。

Oracle数据的批量插入 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　前两天接到一个需求——需要编程将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()

cha138/Article/program/Oracle/201311/18480