valeur nulle exception- Vb.Net

Question

Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click 
    Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & TextBox1.Text 
    Dim SQLString As String = "SELECT * FROM " & ComboBox1.Text 
    Dim OleDBConn1 As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection(ConnString) 
    Dim DataSet1 As New DataSet() 
    Dim OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(SQLString, OleDBConn1) 
    OleDBConn1.Open() 
    OleDbDataAdapter1.Update(DataSet1.Tables(ComboBox1.Text)) 
    DataSet1.AcceptChanges() 
    OleDBConn1.Close() 
End Sub 

Ce code soulève exception de la valeur NULL lorsque la mise à jour

Answer 1

Dim DataSet1 As New DataSet() 
Dim OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(SQLString, OleDBConn1) 
OleDBConn1.Open() 
OleDbDataAdapter1.Update(DataSet1.Tables(ComboBox1.Text)) 

Sur la première de ces quatre lignes que vous créez un DataSet et sur la quatrième ligne que vous essayez d'obtenir un DataTable à partir de ce nom. Comment exactement les deux lignes intervenantes créent-elles magiquement que DataTable dans le DataSet? La réponse est qu'ils ne le font pas. Vraisemblablement, vous avez déjà un DataSet qui contient le DataTable alors utilisez-le.