تقييم الموضوع :
  • 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
اشكر لكم تعاونكم انحلت المشكلة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية ربط قاعدة بيانات اكسس 2007 بالفيجوال 2008 mohmedhosen 3 4,835 16-07-18, 08:48 PM
آخر رد: aridje34
  كيفية استرجاع جدول محدوف المتألق9 0 40 11-07-18, 08:34 PM
آخر رد: المتألق9
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 3 520 04-07-18, 02:18 PM
آخر رد: fareglarkt
  بحث و اظهار سجلات من قاعدة البيانات في حال تساوت اول 4 ارقام من text بالقيمه الموجود ahmed_elwerfalli 0 128 25-04-18, 04:12 PM
آخر رد: ahmed_elwerfalli
  [SQL] انشاء جدول جديد من عدة جداول ابو ملاك الخبير 0 189 07-03-18, 02:46 AM
آخر رد: ابو ملاك الخبير
Tongue ربط قاعدة بينات اكسل مع الفيجوال عمار عيثاوي 3 2,100 02-03-18, 05:13 PM
آخر رد: محمد بن عطية
  إضافة الصورة في قاعدة البيانات iFanfan 0 191 01-03-18, 06:02 PM
آخر رد: iFanfan
  بيانات الصنف في الفاتورة atefkhalf2004 1 295 13-02-18, 09:53 PM
آخر رد: atefkhalf2004
  كيف يمكن نسخ جدول من قاعدة بيانات الي اخري atefkhalf2004 9 235 30-01-18, 02:59 PM
آخر رد: atefkhalf2004
  معرفة اصدار نسخة قاعدة البيانات atefkhalf2004 8 218 27-01-18, 06:07 PM
آخر رد: أبو عمر

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


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