تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net
#1
Information 
اعزائي المبرمجين ....


كيف يمكنني انشاء قاعدة بيانات وجدول وحقول بالجدول عن طريق كود من داخل الفيجوال بيسك 2008 ؟

(توضيح) : اقصد إضافة الجدول بكود برمجي وليس عن طريق أي معالجات او انشائه عن طريق ال accsess نفسه وتسمية قاعدة البيانات وجدولها وحقولها

امل افادتي

Huh Huh Huh
الرد }}}
تم الشكر بواسطة:
#2
اخي الفاضل
لبناء قاعدة البيانات من خلال الاكواد ... ستحتاج للاعتماد على مكتبة 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


أتمنى أن اكون قد افدتك ... والله الموفق
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة: asemshahen5 , علاء الكبابي
#3
راجع هذه المشاركه. ففيها التعامل بشكل جيد مع قاعده اكسس. وانشاء جداول وحقول .
يمكنك وضع قاعده فارغه في ريسورس البرنامج . وكتابتها على القرص
الرد }}}
تم الشكر بواسطة:
#4
اشكر لكم تعاونكم انحلت المشكلة
الرد }}}
تم الشكر بواسطة:
#5
(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


أتمنى أن اكون قد افدتك ... والله الموفق
الرد }}}
تم الشكر بواسطة: علاء الكبابي


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعلام من عدة جداول لقاعدة بيانات اكسس Adel27213 1 702 07-11-23, 08:27 AM
آخر رد: justforit
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,581 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  [SQL] استفسار عن طريقة تحزم قواعد بيانات MSSQL مع البرنامج VB.NET2019 salemq 2 530 18-05-23, 03:02 AM
آخر رد: سعود
  ما معني بيانات تقع بين الرمز[] في حقل في داتا بيس bassant 3 672 03-04-23, 11:53 PM
آخر رد: sanyor77
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,009 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,799 07-11-22, 10:27 PM
آخر رد: Am7
  [عنوان معدل]حفظ بيانات listbox fhad24 36 12,240 08-10-22, 06:55 PM
آخر رد: رضوان الجماعي
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,126 22-04-22, 07:27 PM
آخر رد: strongriseman
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,264 17-11-21, 10:09 AM
آخر رد: سعود
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم