NullReferenceExeption был необработанным «Ссылка на объект не установлена ​​в экземпляр объекта».

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