如何顯示在數據庫記錄在GridView在vb.net

Question

Private Sub frmSearchRecords_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   
    Dim cmd As New MySqlCommand   
    Dim dr As MySqlDataReader   
    cmd.Connection = con   
    connect()   
    cmd.CommandText = "select * from tblconsumer order by ConsumerID" 
    dr = cmd.ExecuteReader 
    While dr.Read 
     With grdView 
      .Rows.Add() 
      .Rows(.RowCount - 1).Cells(0).Value = dr(0).ToString 
      .Rows(.RowCount - 1).Cells(1).Value = dr(1).ToString 
      .Rows(.RowCount - 1).Cells(2).Value = dr(2).ToString 
      .Rows(.RowCount - 1).Cells(3).Value = dr(3).ToString 
      .Rows(.RowCount - 1).Cells(4).Value = dr(4).ToString 
      .Rows(.RowCount - 1).Cells(5).Value = dr(5).ToString 
      .Rows(.RowCount - 1).Cells(6).Value = dr(6).ToString 
     End With 
    End While 
    disconnect() 
    End Sub 

有人能幫助我解決這個，我有這個GridView的數據庫，我不能加載在這個GridView控件在數據庫中的記錄

Answer 1

代碼適用形式Windows窗體並不適用於Asp.net 按照以下方法或尤里Galanter方法

Private Sub frmSearchRecords_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load   
    Dim cmd As New MySqlCommand   
    Dim dr As MySqlDataReader   
    Dim dt As New DataTable 
    Dim da As SqlDataAdapter 
    cmd.Connection = con   
    connect()   
    cmd.CommandText = "select * from tblconsumer order by ConsumerID" 
    da = New SqlDataAdapter(cmd) 
    da.Fill(dt) 
    If Not dt IsNothing Andalso dt.Rows.Count >0 Then 
    grdView.DataSource =dt 
    grdView.DataBind() 
    End If 
    disconnect() 
End Sub