تقييم الموضوع :
  • 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


أتمنى أن اكون قد افدتك ... والله الموفق
الرد }}}}
تم الشكر بواسطة:
#3
راجع هذه المشاركه. ففيها التعامل بشكل جيد مع قاعده اكسس. وانشاء جداول وحقول .
يمكنك وضع قاعده فارغه في ريسورس البرنامج . وكتابتها على القرص
الرد }}}}
تم الشكر بواسطة:
#4
اشكر لكم تعاونكم انحلت المشكلة
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [SQL] مشكلة تواجهنى عند محاولة استرجاع قاعده بيانات ahmedmansour 1 46 27-11-17, 09:39 PM
آخر رد: حريف برمجة
  [VB.NET] منذ أن بدأت في البرمجة لم أرى هذه الرسالة ACCESS sniperjawadino 9 315 03-11-17, 04:55 PM
آخر رد: أيمن الفخراني
  بيانات الصنف في الفاتورة atefkhalf2004 0 93 25-10-17, 07:34 PM
آخر رد: atefkhalf2004
  [VB.NET] اضافه الصور الى قاعدة البيانات رمنس الشوق 1 90 23-10-17, 03:22 AM
آخر رد: khodor1985
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 6 6,437 04-10-17, 10:08 PM
آخر رد: sofiane0552
  حذف سجلات من جدول فجأة atefkhalf2004 1 74 28-09-17, 08:27 PM
آخر رد: wale90
  مسار قاعدة البيانات اكسس Mostafa Yousry 6 1,780 24-09-17, 08:23 PM
آخر رد: alsouf
  [سؤال] مشكلة الاختلاف بين ترتيب الصفوف في قاعدة البيانات والداتا جريد فيو waelalmsry75 2 209 18-08-17, 05:40 PM
آخر رد: waelalmsry75
  ممكن تعديل كود انشاء قاعدة اكسس بالكود سعود 8 351 07-08-17, 11:26 PM
آخر رد: أبو نوره
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 345 19-07-17, 01:58 PM
آخر رد: Jounior_P

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


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