如何显示在数据库记录在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