Datagridview показать нет данных vb. net с SQL сервером - PullRequest
Новая
       10

Datagridview показать нет данных vb. net с SQL сервером

1 голос
/ 26 марта 2020 
Public Sub LoadAllTable_Items_InDirect(ByVal dgv As DataGridView, ByVal calstate As String)    
  Dim dt As New DataTable    
  Dim da As New SqlDataAdapter    
  dt.Clear()    
  da = New SqlDataAdapter("select * from ItemsView  where " & calstate & " = 'True'", sql.sqlcon)    
  da.Fill(dt)    
  dgv.AutoGenerateColumns = False    
  dgv.DataSource = dt    
End Sub

1 Ответ

0 голосов
/ 26 марта 2020

Вот пример кода для привязки сетки данных в VB. Net вы можете сравнить и исправить, если какая-либо часть отсутствует в вашем коде.

Я думаю, что вы пропускаете код части add columns как показано в моем примере кода. 

Private Sub BindGrid()
    Dim constring As String = "Data Source=.\SQL2005;Initial Catalog=Northwind;User id = sa;password=pass@123"
    Using con As New SqlConnection(constring)
        Using cmd As New SqlCommand("SELECT * FROM Customers", con)
            cmd.CommandType = CommandType.Text
            Using sda As New SqlDataAdapter(cmd)
                Using dt As New DataTable()
                    sda.Fill(dt)

                    'Set AutoGenerateColumns False
                    dataGridView1.AutoGenerateColumns = False

                    'Set Columns Count 
                    dataGridView1.ColumnCount = 3

                    'Add Columns
                    dataGridView1.Columns(0).Name = "CustomerId"
                    dataGridView1.Columns(0).HeaderText = "Customer Id"
                    dataGridView1.Columns(0).DataPropertyName = "CustomerID"

                    dataGridView1.Columns(1).Name = "Name"
                    dataGridView1.Columns(1).HeaderText = "Contact Name"
                    dataGridView1.Columns(1).DataPropertyName = "ContactName"

                    dataGridView1.Columns(2).Name = "Country"
                    dataGridView1.Columns(2).HeaderText = "Country"
                    dataGridView1.Columns(2).DataPropertyName = "Country"
                    dataGridView1.DataSource = dt
                End Using
            End Using
        End Using
    End Using
End Sub
...