vb.net-2010 - NullReferenceException は未処理でした 「オブジェクト参照がオブジェクトのインスタンスに設定されていません。」

Question

これは私のojtの私のプロジェクトです。ds(DataSet) に問題があります。null であるというエラーが表示されます。この問題を解決するにはどうすればよいですか?

Private Sub RefreshData()
    If Not con.State = ConnectionState.Open Then
        con.Open()
    End If

    Dim dt As New DataTable("SELECT ID as [ID], " & _
                                         "fname as [NAME], lname " & _
                                     "FROM asdf ORDER by ID")
    If ds IsNot Nothing And ds.Tables("asdf") IsNot Nothing Then****this part is were i        get the error***
        da.Fill(dt, "asdf")
    End If
    con.Close()
    maxrows = ds.Tables("asdf").Rows.Count
    inc = -1
End Sub

Answer 1

DataTable コンストラクターは、オプションのデータ テーブルの名前を受け取ります。DataAdapter をインスタンス化する必要があります。

Private Sub RefreshData()
    Dim Sql="SELECT ID as [ID],fname as [NAME], lname FROM asdf ORDER by ID"
    Dim con as new OleDbConnection("your_connection_string_here")
    Dim da as new OleDbDataAdapter(Sql,con)
    Dim dt As New DataTable
    da.Fill(dt)
    ...
End Sub