Question

我在尝试从mysql数据库中获取数据时遇到问题

我总是得到最后一张唱片。

如何同步获取datagridview上显示的所有记录

这是我的代码

请有人帮帮我

Public Class Form1

    Private RowCount As Integer = 0


    Private Sub bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
        ListBox1.Items.Add(e.UserState)
        ProgressBar1.Value = e.ProgressPercentage
        Label1.Text = "Processing row.. " + e.ProgressPercentage.ToString() 
        DataGridView1.Rows.Add(New Object() {f1, f2})
         Me.ProgressBar1.Maximum = RowCount 

    End Sub
    Dim ListText As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles go.Click
        go.Enabled = False
        cancel.Enabled = True
        ListBox1.Items.Clear()
        ProgressBar1.Value = 0
        BackgroundWorker1.WorkerReportsProgress = True
        BackgroundWorker1.WorkerSupportsCancellation = True
        BackgroundWorker1.RunWorkerAsync()
        Me.Cursor = Cursors.WaitCursor
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cancel.Click
        BackgroundWorker1.CancelAsync()
    End Sub

    Private Sub bgw_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        go.Enabled = True
        cancel.Enabled = False
        Me.Cursor = Cursors.Arrow

        DataGridView1.Refresh()
        DataGridView1.CurrentCell = DataGridView1(0, DataGridView1.Rows.Count - 1)
    End Sub
    Dim f1 As String
    Dim f2 As String
    Dim ds As New DataSet
    Dim command As MySqlCommand
    Dim reader As MySqlDataReader
    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
         GetRecordCount()
        Dim connetionString As String
        Dim connection As MySqlConnection
        Dim i As Integer = 0
        Dim sql As String
        connetionString = "Server=db4free.net;User Id=mouhcindinaoui;Password=$$$$$$;Database=mouhcindinaoui"

        sql = "SELECT id,nom FROM dep02 "
        connection = New MySqlConnection(connetionString)
        Try

            connection.Open()
            command = New MySqlCommand(sql, connection)
            reader = command.ExecuteReader()
            For Value As Integer = 0 To rowcount

                If reader.HasRows Then
                    Do While reader.Read()

                        f1 = reader.GetString("id")
                        f2 = reader.GetString("nom")

                    Loop
                End If
                ListText = String.Concat("Sequence #", Value)
                BackgroundWorker1.ReportProgress(Value, ListText)
                Thread.Sleep(10)

            Next
            reader.Close()
            command.Dispose()
            connection.Close()
        Catch ex As Exception
            '   MsgBox("Can not open connection ! ")
        End Try
    End Sub
    Private Sub GetRecordCount()
        Dim connetionString As String
        Dim connection As MySqlConnection
        Dim command As MySqlCommand
        Dim sql As String
        connetionString = "Server=db4free.net;User Id=mouhcindinaoui;Password=dinaouimouhcin1991;Database=mouhcindinaoui"

        sql = "Select count(*) from dep02"
        connection = New MySqlConnection(connetionString)
        command = New MySqlCommand(sql, connection)
        connection.Open()
        RowCount = CInt(command.ExecuteScalar())

    End Sub

End Class

Answer 1

您只在DataReader循环结束时调用ReportProgress。当然，此时用于设置网格中项目的两个变量f1和f2包含DataReader读取的最后一条记录的值。

您需要在DataReader循环中移动调用

    For Value As Integer = 0 To rowcount

        If reader.HasRows Then
            Do While reader.Read()

                f1 = reader.GetString("id")
                f2 = reader.GetString("nom")
                ListText = String.Concat("Sequence #", Value)
                BackgroundWorker1.ReportProgress(Value, ListText)
            Loop
        End If
        Thread.Sleep(10)
    Next

然而，调用GetRecordCount和rowcount变量的外部循环（和普通错误的）完全没用。 DataReader上的while循环不需要它，您可以通过简单增加局部变量来删除所有内容，以保持当前记录在datareader循环内的渐进性

Dim recNum = 1
If reader.HasRows Then
    Do While reader.Read()

        f1 = reader.GetString("id")
        f2 = reader.GetString("nom")

        ListText = String.Concat("Sequence #", recNum)
        BackgroundWorker1.ReportProgress(Value, ListText)
        recNum = recNum + 1
    Loop
End If

我想使用backgroudworker和dtagridview显示mysql数据

1 个答案: