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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 5 4,606 10-05-17, 03:13 PM
آخر رد: safalo
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 2 56 10-05-17, 12:49 PM
آخر رد: djelloul
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 68 17-04-17, 07:13 PM
آخر رد: djelloul
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 8 849 03-04-17, 02:48 AM
آخر رد: ابو إياد
  [سؤال] طلب صيغة عامة أو وظيفة لأضافة بيانات لقاعدة البيانات ؟ عبد الله 2 152 10-03-17, 09:36 AM
آخر رد: عبد الله
  استعادة قاعدة البيانات من ملف النسخة الإحتياطية djelloul 2 171 28-02-17, 03:27 PM
آخر رد: djelloul
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 9 9,237 28-02-17, 10:21 AM
آخر رد: وائل القطاوي
  نسخ جدول من قاعدة الي اخري مع الوصف atefkhalf2004 2 152 18-02-17, 01:34 AM
آخر رد: atefkhalf2004
  فتح قاعدة البيانات محفوظة ب باسس ورد في جملة الاتصال ahmed_elwerfalli 2 158 13-02-17, 05:27 PM
آخر رد: ahmed_elwerfalli
  قاعدة بيانات xml djelloul 2 168 06-02-17, 11:06 PM
آخر رد: djelloul

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


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