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를 트리거하지 않습니다 그래서 클릭 할 셀이 없습니다

'방금 코드를 실행했고 효과가있었습니다. 연결 문자열을 연결 문자열에 넣었습니다.

'셀 연락처에서 그리드를로드하는 이유가 확실하지 않습니다.

'이것을 시도하고 pageload에서 loadData를 호출하거나 버튼 클릭 이벤트를 사용하면됩니다.

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