使用超过 2000+ 条记录数据库快速加载的替代方法-解网

问：

关于如何使用具有 2000+ 的记录更快地加载，是否有任何建议/建议？

加载数据时，系统在加载更多数据时似乎会冻结一秒钟。基本上我想要的是等待进度条完成加载所有数据记录或其他东西

    Sub loadcheck()
    DataGridView1.Rows.Clear()
    Try
        conn.Open()
        Dim cmd As New OleDbCommand("select * from tblstore ORDER by storecode, check_date, ID ASC", conn)
        dr = cmd.ExecuteReader
        While dr.Read
            DataGridView1.Rows.Add(dr.Item("ID"), dr.Item("storecode"), dr.Item("check_date"), dr.Item("check_num"), dr.Item("check_name"), dr.Item("check_memo"), dr.Item("check_amount"), dr.Item("date_release"), dr.Item("date_deposit"), dr.Item("status"))
        End While
        dr.Dispose()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    conn.Close()
End Sub

 Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
     loadcheck()

 End Sub

 Private Sub manageCheck_Load(sender As Object, e As EventArgs) Handles MyBase.Load
     managesupplier.BackgroundWorker1.RunWorkerAsync()
     Control.CheckForIllegalCrossThreadCalls = False
 End Sub

.NET 数据库 vb.net

Private Sub BackgroundWorker1_DoWork(sender As Object, e As DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    Using connection As New OleDbConnection("connection string here"),
          command As New OleDbCommand("SQL query here", connection)
        connection.Open()

        Using reader = command.ExecuteReader()
            Dim table As New DataTable

            table.Load(reader)
            e.Result = table
        End Using
    End Using
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    Dim table = DirectCast(e.Result, DataTable)

    DataGridView1.DataSource = table
End Sub

请注意，使用块来正确处理所有一次性物品。如果您不修改和保存数据，则可以使用数据读取器。如果要进行更改，请改用数据适配器，它可以双向移动数据。Using

实际上，在我看来，该属性无论如何都是类型，因此无需强制转换：DataSourceObjecte.Result

Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    DataGridView1.DataSource = e.Result
End Sub

我目前只能通过代码手动设置我的 datagridview。我有准备好的带有指定标题的 datagridview（以及一些我不需要的隐藏标题），但我对如何加载我的新数据表有些迷茫。它似乎将新 ID 等从数据库重新填充到数据网格。带有现成标头的 datagridview 变得毫无用处。它不会从 datagridiview 加载到我的标题下

0赞 jmcilhinney 9/26/2023

@NnekLecxe，如果您添加的列未填充，则一定没有按照已指示执行操作。您需要设置每列的，以告诉他们要绑定到数据源的哪个列/属性。仅添加所需的列，按照说明配置其绑定，然后在网格上设置为在设置 .现有网格列将绑定到指定的数据源列/属性，并且不会生成其他列。DataPropertyNameAutoGenerateColumnsFalseDataSource

上一个：如何检查 Double 类型的变量是否没有值。VB.NET

下一个：如何获取在Groupbox中选中的单选按钮，然后将其插入数据库 vb.net

使用超过 2000+ 条记录数据库快速加载的替代方法

alternative way to load fast with more than 2000+ records database

评论

评论