[+yassen+]

السلام عليكم

أصدقائي كتب الكود التالي ووضعته في الكلاس

Imports System.Data.OleDb

Public Class DBConnect

    ' Public Con As New OleDbConnection("provider=Microsoft.ACE.OLEDB.12.0;Data source = |DataDirectory|\stordb.accdb")

    Public ds As DataSet

    Public da As OleDbDataAdapter

    Public dv As DataView

    Public Cmd As OleDbCommand

    Public sql As String

    Sub FillDataSet(sql As String, TableName As String)

        ds = New DataSet

        da = New OleDbDataAdapter(sql, Con)

        da.Fill(ds, TableName)

        dv = New DataView(ds.Tables(TableName))

    End Sub

End Class

والكود التالي في الفورم

Public Class Form1

    Dim MyConnect As DBConnect

   

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        MyConnect.FillDataSet("SELECT * FROM Store", "Store")

        DataGridView1.DataSource = MyConnect.dv

    End Sub

End Class

الكود في الأصل كان يتعامل مع قواعد البيانات من نوع سكول ولاكن عدلته ليتعامل مع قواعد البيانات أكسس ولاكن يظهر لي خطأ لم أعرف سببه وهذا محتواه

An unhandled exception of type 'System.NullReferenceException' occurred in WindowsApplication19.exe

Additional information: Object reference not set to an instance of an object.

أرجو المساعدة لو سمحتم