26          End While

27          sw.Stop()

28          Loger.Info("Reading z02j form sql sever used", sw.Elapsed.TotalSeconds.ToString())

二，采用 DataAdapter 实现批量插入

VB.NET

 1          sw.Start()

 2          ''''Read Z02J from SQL Server

 3          Dim sqlCmd As New SqlCommand()

 4          sqlCmd.Connection = sqlConnection

 5          sqlCmd.CommandText = "SELECT * FROM   Z02J"

 6

 7          Dim sqlDr As SqlDataReader

 8          sqlDr = sqlCmd.ExecuteReader()

 9

10          Dim cmdInsertZ02J As New OracleCommand()

11          cmdInsertZ02J.Connection = oraConnection

12          cmdInsertZ02J.CommandText = BuildSQLStatement(SQLType.Insert,"z02j")

13

14          Dim dtSqlZ02J As New DataTable

15          dtSqlZ02J.Columns.Add("plantLever")

16          dtSqlZ02J.Columns.Add("material")

17          dtSqlZ02J.Columns.Add("oldMaterialNum")

18          dtSqlZ02J.Columns.Add("materialDescription")

19

20          Dim plantLever, material, oldMaterialNum, materialDescription As Object

21          While sqlDr.Read()

22              plantLever = ReadSqlDataReader(sqlDr, 0, "")

23              material = ReadSqlDataReader(sqlDr, 1, "")

24              oldMaterialNum = ReadSqlDataReader(sqlDr, 2, "")

25              materialDescription = ReadSqlDataReader(sqlDr, 3, "")

26              dtSqlZ02J.Rows.Add(plantLever, material, oldMaterialNum, materialDescription)

27          End While

28          sw.Stop()