Bir ızgara görünümünde veriler nasıl görüntülenir

Question

Veritabanından gridview'a veri görüntülemek istiyorum. Bununla birlikte, hata ayıkladığımda, veriler veri okuyucu tarafından okunur, ancak bunu kılavuza gösteremez. Bu konuda yardımcı olabilir misiniz? İşte kodum.

For içine kod bu noktada GridView6.RowCount = 0 başlangıcı yürütülmektedir asla

 Dim strSQL_ = "SELECT FDREF, FDESTKCODE, FDESTKEXP, FDEAMOUNT, FDEUNIT, FDEPRICE, " & _ 
      "FDETOTALPRICE, FMAREF FROM FICHEDETAIL WHERE FMAREF = '" & fmaref3_ & "'" 
    Dim dsx1 = New DataSet 
    Dim adx1 As New SqlClient.SqlDataAdapter(strSQL, objCon) 
    adx1.Fill(dsx1, "a") 
    Dim t1 As DataTable = dsx1.Tables("a") 
    mygrid.DataSource = dsx1.Tables("a") 

    objCon.Close() 

    Dim sqlCmd_ As New SqlCommand(strSQL_, objCon) 
    objCon.Open() 
    sqlCmd_.ExecuteNonQuery() 

    Dim dreader_ As SqlDataReader 
    dreader_ = sqlCmd_.ExecuteReader 

    If dreader_.Read Then 

     Dim a As Integer 
     For a = 0 To GridView6.RowCount - 1 
      Dim ref_ As String = dreader_.GetInt32(dreader_.GetOrdinal("FDREF")).ToString() 
      ref_ = dreader_.GetString(dreader_.GetOrdinal("FDESTKCODE")).ToString() 
      GridView6.SetRowCellValue(a, "FDESTKCODE", ref_) 
      ref_ = dreader_.GetString(dreader_.GetOrdinal("FDESTKEXP")).ToString() 
      GridView6.SetRowCellValue(a, "FDESTKEXP", ref_) 
      ref_ = dreader_.GetDouble(dreader_.GetOrdinal("FDEAMOUNT")).ToString() 
      GridView6.SetRowCellValue(a, "FDEAMOUNT", ref_) 
      ref_ = dreader_.GetString(dreader_.GetOrdinal("FDEUNIT")).ToString() 
      GridView6.SetRowCellValue(a, "FDEUNIT", ref_) 
      ref_ = dreader_.GetDecimal(dreader_.GetOrdinal("FDEPRICE")).ToString() 
      GridView6.SetRowCellValue(a, "FDEUNIT", ref_) 
      ref_ = dreader_.GetDecimal(dreader_.GetOrdinal("FDETOTALPRICE")).ToString() 
      GridView6.SetRowCellValue(a, "FDETOTALPRICE", ref_) 

     Next 
    End If 

Answer 1

.

Ben ne yapmak istiyorum Genellikle

Dim strSQL = "SELECT FDREF, FDESTKCODE, FDESTKEXP, FDEAMOUNT, FDEUNIT, FDEPRICE, " & _ 
      "FDETOTALPRICE, FMAREF FROM FICHEDETAIL WHERE FMAREF = '" & fmaref3_ & "'" 
    Dim dsx1 = New DataSet 
    Dim adx1 As New SqlClient.SqlDataAdapter(strSQL, objCon) 
    adx1.Fill(dsx1, "a") 
    Dim t1 As DataTable = dsx1.Tables("a") 
    mygrid.DataSource = t1 

    objCon.Close()