[أبو عمر]

ربما لو كان طلبك واضحا لكانت الاجابات اقل وأسرع
من خلال الفيجوال بيسك تسطيع انشاء قاعدة بيانات بأكملها
يعني قاعدة بيانات وجداولها و حقول الجداول عدا الاستعلام الذي لا يعد سوى استخلاص بيانات حقول من جدول أو اكثر
فمثلا لانشاء قاعدة بيانات بخا جدول واحد يحوي ثلاثة حقول نتبع التالي
بالتوفيق للجميع
[/php]

PHP كود :

Imports System.Data.OleDb
Friend Class Form1
    Inherits System.Windows.Forms.Form
    'بداية من الريفرنس اضف المكتبة
    'Microsoft DAO 3.6 Object Library
    ' Microsoft Access 12.0 Object Library
    Sub CreateMyDatabase(ByRef DB_Name As String)
        Dim wrkDefault As dao.Workspace
        Dim dbsNew As dao.Database
        Dim DAODBEngine_definst As New dao.DBEngine
        wrkDefault = DAODBEngine_definst.Workspaces(0)
        dbsNew = wrkDefault.CreateDatabase(DB_Name, dao.LanguageConstants.dbLangGeneral, dao.DatabaseTypeEnum.dbEncrypt)
        'ننشيئ قاعدة البيانات
        dbsNew.Close()
        'ثم نغلقها
        CreateMyTableS(DB_Name)
        'نستدعى الدالة التى تنشيئ لنا الجداول فى قاعدة البيانات
        dbsNew = Nothing
        wrkDefault = Nothing
        'لتفريغ الذاكرة
    End Sub
    Sub CreateMyTableS(ByRef DBName As Object)
        Dim dbsMyData As dao.Database
        Dim tdfNew1 As dao.TableDef
        Dim DAODBEngine_definst As New dao.DBEngine
        dbsMyData = DAODBEngine_definst.OpenDatabase(DBName)
        'لفتح قاعدة البيانات
        With dbsMyData
            tdfNew1 = dbsMyData.CreateTableDef("Table1")
            'لإنشاء جدول دون إضافة أى حقول إليه
            With tdfNew1
                'انشاء الحقول كما ترى اسم الحقل ونوعه
                .Fields.Append(.CreateField("Number", dao.DataTypeEnum.dbInteger))
                .Fields.Append(.CreateField("items", dao.DataTypeEnum.dbText))
                .Fields.Append(.CreateField("Lion_Ksa", dao.DataTypeEnum.dbMemo))
            End With
            dbsMyData.TableDefs.Append(tdfNew1)
            dbsMyData.Close()
        End With
        'الان نأتي للاستعلام والاستعلام لن يخرج عن حقول الجداول ابدأ
        Dim ConnSTR As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Application.StartupPath + "\VB4Arab.mdb;Persist Security Info=False;"
        Dim connection As New OleDbConnection(ConnSTR)
        Dim command As New OleDbCommand()
        command.Connection = connection
        connection.Open()
        'هنا نختار الحقل والشرط للاستعلام
        'لاحظ انني حددت الحقل وكذلك الشرط والشرط هنا هو عدم تكرار نفس البيانات اكثر من مرة
        'الحقل ' Lion_Ksa
        'والشرط ' Distinct
        command.CommandText = "CREATE PROC FF AS SELECT Distinct Lion_Ksa FROM Table1 "
        command.ExecuteNonQuery()
        connection.Close()
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'تستطيع تغيير اسم و مسار  قاعدة البيانات حسب ما تريد
        CreateMyDatabase(Application.StartupPath + ("\VB4Arab"))
        MsgBox(" تم إنشاء قاعدة البيانات في المسار التالي " & vbCrLf & Application.StartupPath, MsgBoxStyle.Information, "")
    End Sub
End Class