从 oraclebulkcopy 获取进度条的运行时答案

【问题标题】：get runtime from oraclebulkcopy for progressbar从 oraclebulkcopy 获取进度条的运行时
【发布时间】：2021-09-29 08:53:30
【问题描述】：

朋友们晚安，

我正在上传一个文件从重型 excel (200 MB) 到 oracle，我正在使用 BackgroundWorker1 在后台处理它，但我无法计算执行时间或执行 oraclebulkcopy 以能够循环和更新计数器并通过所需的时间它到一个进度条。

我正在尝试：

for i: 0 to row_file_excel
BackgroundWorker1.reportprogress (i)
next

但它没有返回想要的结果，我必须将 row_file_excel 替换为加载 oraclebulkcopy 所需的时间，但我不知道如何找到工作时间。

如果无法获得时间，我还能做什么？

我将不胜感激任何帮助

非常感谢，

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim _connString As String = "Data Source=(DESCRIPTION = (ADDRESS_LIST = (ADDRESS = (PROTOCOL = TCP)(HOST = 10.10.100.1)(PORT = 1521)))(CONNECT_DATA =(SERVICE_NAME = ORACLE))); User Id=USER; password=PASS;"
        Dim rutacarpeta As String
        Dim NombreArchivo As String
        Dim tablaBBDD As String
        'Dim ot As OracleTransaction = conn.BeginTransaction(IsolationLevel.ReadCommitted)
        Using conn As OracleConnection = New OracleConnection(_connString)
            conn.Open()
            Dim ot As OracleTransaction = conn.BeginTransaction(IsolationLevel.ReadCommitted)
            Try

                rutacarpeta = "C:\2021\"
                NombreArchivo = "FILE_0.xlsx"
                tablaBBDD = "FILE_TEST"
                Dim xlsxConn As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};Extended Properties='Excel 12.0 Xml;HDR=Yes;IMEX=1;';"
                xlsxConn = String.Format(xlsxConn, rutacarpeta + NombreArchivo).Trim()

                Using excel_con As OleDbConnection = New OleDbConnection(xlsxConn)
                    excel_con.Open()
                    'Dim hoja As String = excel_con.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing).Rows(0)()
                    Dim command As OleDbDataAdapter = New OleDbDataAdapter ("SELECT * FROM [FILE$]", excel_con)

                    Dim dtset As new dataset
                    command.fill(dtset)
                     dim dr as datatable =dtset.tables(0)
                     row_file_excel=dr.rows.count

                    Using bulkCopy As OracleBulkCopy = New OracleBulkCopy(conn)
                        bulkCopy.BulkCopyTimeout = 90000
                        bulkCopy.DestinationTableName = tablaBBDD

                  for i: 0 to row_file_excel '***here I want to calculate the execution time of the load (bulkCopy.WriteToServer(dr))******
                      BackgroundWorker1.reportprogress(i)
                  next                            

                   bulkCopy.WriteToServer(dr)

                        ot.Commit()

                        bulkCopy.Close()
                    End Using
                End Using

            Catch ex As Exception
                Try
                    ot.Rollback()
                Catch ex1 As Exception
                    MessageBox.Show(ex1.Message)
                End Try

                MessageBox.Show(ex.Message)

            End Try
        End Using
    End Sub

【问题讨论】：

标签： .net vb.net visual-studio visual-studio-2010 visual-studio-code

【解决方案1】：

我从未使用过OracleBulkCopy，所以我不会尝试编写详细的代码示例。我刚刚阅读了相关文档，因此我可以根据这些说明我认为您应该做什么。

当您检索数据时，您可以获得要导入的记录总数并将其分配给您的ProgressBar 的Maximum 属性。您可以设置NotifyAfter 属性并处理OracleBulkCopy 对象的RowsCopied 事件，以便在每次复制许多行时得到通知。您指定的数字越小，引发事件的频率越高，您的进度就越细，但您越会减慢整个过程。您可以将ProgressBar 的Value 增加每个事件上复制的行数。

我不确定事件处理程序的e 参数将为您提供什么。如果它提供了到目前为止复制的行数，那么您可以将其分配给 Value 属性。如果它不提供计数，那么您只需将 NotifyAfter 的值添加到 Value 属性即可。

【讨论】：