Блог

Я использую ASP.NET и SqlBulkCopy для копирования записей из файла Excel, который пользователь загружает на сайт, на Sql Server. Среднее количество строк составляет около 50. Я использую Windows Server 2016. Приведенный ниже код годами работал нормально, но в последнее время стал очень медленным и часто выходил из строя, и единственный способ исправить это — перезапустить IIS. Я хотел спросить, есть ли способ оптимизировать этот код или это может вызвать утечку памяти? Есть ли у вас какие-либо предложения о том, как это улучшить.. Спасибо

 Sub ImportFile(ByVal FileName As String)
    Try

        If fileuploadExcel.FileName <> "" Then
            Dim path = fileuploadExcel.PostedFile.FileName
            Dim tableName As String = "PCAReviews_Upload"
            Dim extension As String = System.IO.Path.GetExtension(fileuploadExcel.PostedFile.FileName)
            Dim excelConnectionString As String
            Dim conn As SqlConnection = New SqlConnection(connStr)

            excelConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:UsersFileUploads" amp; FileName amp; ";Extended Properties=Excel 8.0;Persist Security Info=False"
            
    Dim excelConnection As OleDbConnection = New OleDbConnection(excelConnectionString)
            conn.Open()

            Dim comm As SqlCommand = New SqlCommand("truncate table " amp; tableName, conn)
            Dim cmd As OleDbCommand = New OleDbCommand("SELECT Workgroup, [Last Name],  [First Name], [Titanium Number], [Phone Number], [Inbound-Outbound], [Date of the Call], [Time of the Call], [Duration of the Call], ID FROM [PCA_Sample_Temp$]", excelConnection)

            excelConnection.Open()

            Dim dr As OleDbDataReader
            dr = cmd.ExecuteReader()

            Dim sqlBulk As SqlBulkCopy = New SqlBulkCopy(connStr)

            'Set the destination table name
            sqlBulk.DestinationTableName = tableName
            sqlBulk.WriteToServer(dr)
            excelConnection.Close()
            excelConnection.Dispose()
            conn.Close()
            lblMessage.ForeColor = Drawing.Color.Green
            lblMessage.Text = "Import was successful!<br />"

        Else
            lblMessage.ForeColor = Drawing.Color.Red
            lblMessage.Text = "Please select Excel file to upload"
        End If
    Catch ex As Exception
        lblMessage.Text = ex.Message
        lblMessage.ForeColor = Drawing.Color.Red
    End Try

End Sub