2016-04-14 6 views
0

Ich erhalte die folgende Fehlermeldung, wenn ich die Daten in der Datenbank zu datagridview zeigen wollen:VB.NET Daten in der Datenbank zu Datagridview angezeigt

Objektverweis nicht auf eine Instanz eines Objekts festgelegt

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    connect() 
    Try 
     strsql = "select * from tbInfo" 
     cmd.CommandText = strsql 
     Dim da As New OleDbDataAdapter(strsql, conn) 
     Dim ds As New DataSet() 
     da.Fill(ds, "tbInfo") 
     DataGridView1.DataSource = ds.Tables(0) 
     conn.Close() 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 

End Sub 

und das ist das Modul:

Sub connect() 
    strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|datadirectory|\dbExam1.accdb" 
    conn = New OleDbConnection(strcon) 
    conn.Open() 

    If conn.State = ConnectionState.Open Then 
     MsgBox("CONNETED!") 
    End If 
End Sub 
+0

Entfernen Sie die Zeilen .Try, Catch, MessageBox, Ende Versuchen Sie den Code erneut auszuführen. Auf welcher Zeile steht der Fehler - da gibt es mehrere Möglichkeiten. Prost –

+0

Hallo, und willkommen zu Stack Overflow, Dies ist nur eine Nachricht, die ich an neue Mitglieder senden, um die Dinge ein wenig zu helfen. Die Lernkurve für einen neuen Benutzer ist als solche nicht steil, aber es ist nicht immer offensichtlich, wie man einen Stapel verwendet. Bitte nehmen Sie sich ein paar Minuten Zeit und schauen Sie sich hier ** [fragen] ** an und es ist auch wichtig, hier nachzusehen. ** [mcve] ** .. ** Auch wenn eine Antwort für Sie gültig ist, klicken Sie auf das Häkchen links von der Antwort, so dass die Frage als beantwortet markiert wird ** und dies stellt sicher, dass die Person, die sie gepostet hat, Reputation bekommt. Prost. –

Antwort

0

Wo Sie th erstellen e cmd variabel? Dies ist nicht notwendig, da Sie einen DataAdapater verwenden.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    connect() 
    Try 
    strsql = "select * from tbInfo" 
    'comment this line 
    'cmd.CommandText = strsql 
    Dim da As New OleDbDataAdapter(strsql, conn) 
    Dim ds As New DataSet() 
    da.Fill(ds, "tbInfo") 
    DataGridView1.DataSource = ds.Tables(0) 
    conn.Close() 
    Catch ex As Exception 
    MsgBox(ex.Message) 
    End Try 
    End Sub 

    Sub connect() 
    strcon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|datadirectory|\dbExam1.accdb" 
    conn = New OleDbConnection(strcon) 
    conn.Open() 

     If conn.State = ConnectionState.Open Then 
      MsgBox("CONNETED!") 
     End If 
    End Sub 
Verwandte Themen