Datagridview vb не работает

Question

Я занимаюсь вычислением уровня A (я ужасен в программировании, поэтому поэтому здесь), и я последовал за учебником, чтобы получить datagridview для загрузки таблицы в базе данных, которую я имею связанных с проектом, и ничего не появляется в отладочной, все еще серой таблице.

Вот мой код:

Imports System.Data.OleDb 

Public Class Cards 
Dim con As New OleDbConnection 

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick 
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= |DataDirectory|\Cards.accdb" 
    con.Open() 
    datagridShow() 
End Sub 
Private Sub datagridShow() 
    Dim ds As New DataSet 
    Dim dt As New DataTable 
    ds.Tables.Add(dt) 
    Dim da As New OleDbDataAdapter 
    da = New OleDbDataAdapter("SELECT * FROM cards", con) 
    da.Fill(dt) 
    DataGridView1.DataSource = dt.DefaultView 
    con.Close() 
End Sub 
End Class 

Answer 1

«Если нет никаких данных в сетке Там нет никаких клеток к нажмите, чтобы ваш код не вызовет DataGridView1.CellContentClick Таким образом, вы никогда не ударит ваш метод DataGridView1_CellContentClick

«Я просто запустил ваш код, и все получилось. Я поставил строку подключения, чтобы проверить строку подключения.

«Я не уверен, почему вы загружаете сетку на контакт контакта с ячейкой.

«Попробуйте это и вызовите loadData на pageload или событие нажатия кнопки, это должно работать на вас.

Private Sub loadData() 
    con.ConnectionString = "Your Connection String" 
    con.Open() 

    datagridShow() 
End Sub 

Private Sub datagridShow() 
    Dim ds As New DataSet 
    Dim dt As New DataTable 
    ds.Tables.Add(dt) 
    Dim da As New OleDbDataAdapter 

    da = New OleDbDataAdapter("SELECT * FROM cards", con) 
    da.Fill(dt) 

    DataGridView1.DataSource = dt.DefaultView 

    con.Close() 

End Sub