عمل قاعدة بيانات 2003 بالفيجوال بيسك 2010

[اسلام الكبابى]

لدى قاعدة بيانات أكسيس 2003

وحملت قريبآ VB 2010

وأريد عمل أى برنامح صغير يظهر قاعدة البيانات(أو أحد جداولها) عند الضغط على زر معين

مع وضع قاعدة البيانات والبرنامج فى فولدر واحد (فى فولدر "NEW FOLDER" على الدسكتوب مثلآ)

ولكم ألف شكر

[د.كاف يار]

لنفترض ان القاعدة بجوار البرنامج الخاص بك 

تفضل هتين طريقتين للوصول لقاعدة البيانات

Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Data.mdb;")
            Using cmd As New OleDbCommand("SELECT * FROM EmployeeDATA;")
                Using sda As New OleDbDataAdapter
                    cmd.Connection = con
                    sda.SelectCommand = cmd
                    Using dt As New DataTable()
                        sda.Fill(dt)

                        GridView1.DataSource = dt
                        GridView1.DataBind()

                    End Using
                End Using
            End Using
        End Using

 

الطريقة الثانية عن طريق تتبع الفولدرات بدء من مكان التشغيل الى فولدر قاعدة البيانات على ان يكون مجلد مميز

Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Data.mdb;")
            Using cmd As New OleDbCommand("SELECT * FROM EmployeeDATA;")
                Using sda As New OleDbDataAdapter
                    cmd.Connection = con
                    sda.SelectCommand = cmd
                    Using dt As New DataTable()
                        sda.Fill(dt)

                        GridView1.DataSource = dt
                        GridView1.DataBind()

                    End Using
                End Using
            End Using
        End Using