[sherf]

(10-12-15, 05:55 PM)boudyonline كتب : اخي الفاضل
لبناء قاعدة البيانات من خلال الاكواد ... ستحتاج للاعتماد على مكتبة ADOX

- أولا : قم باضافة ADOX : وذلك باضافتها كـ Reference  إلى مشروعك
- ثانيا : بعد ذلك أضف هذا Module  للفورم

Imports ADOX

Imports System.Data.OleDb

 

Public Class Form1

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim databaseName As String = "C:\AccessDB.mdb"

        Dim tableName As String = "MyTable"

 

        ' Part 1: Create Access Database file using ADOX

        Dim cat As ADOX.Catalog = New ADOX.Catalog()

        cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databaseName & ";Jet OLEDB:Engine Type=5")

        MessageBox.Show("تم انشاء قاعدة البيانات بنجاح")

        cat = Nothing

 

        ' Part 2: Create one Table using OLEDB Provider 

        Dim con As New OleDb.OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source =" & databaseName)

        con.Open()

        'Get database schema

        Dim dbSchema As DataTable = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, tableName, "TABLE"})

      con.Close()

 

        ' If the table exists, the count = 1

        If dbSchema.Rows.Count > 0 Then

            ' do whatever you want to do if the table exists

        Else

            'do whatever you want to do if the table does not exist

            ' e.g. create a table

            Dim cmd As New OleDb.OleDbCommand("CREATE TABLE [" + tableName + "] ([Field1] TEXT(10), [Field2] TEXT(10))", con)

            con.Open()

            cmd.ExecuteNonQuery()

            MessageBox.Show("تم انشاء الجداول بنجاح")

            con.Close()

        End If

    End Sub

 

End Class

أتمنى أن اكون قد افدتك ... والله الموفق