[asemshahen5]

PHP كود :

''' <summary>
    ''' Create Database For MS SQL Server
    ''' </summary>
    ''' <param name="DatabaseName">Database Name String اسم قاعدة البيانات</param>
    ''' <param name="DirectoryOfDatabase مسار المجلد الذي تريد إنشاء فاعدة البيانات فيه">Directory Of Database String</param>
    ''' <param name="CreateAndCode">Creat The Database And Write Code or Write Code تاكيد على انشاء قاعدة البيانات</param>
    ''' <returns>Return True And Sql Query String,Return False And Sql Query String</returns>'
    Function CreateDatabaseForMSSQLServer(ByVal DirectoryOfDatabase As String, ByVal DatabaseName As String, ByVal CreateAndCode As Boolean) As String
        'تعريف متغيير لوضع الاستعلام فيه'
        Dim SqlStrXT As String = String.Empty
        'تعريف الاتصال بقاعدة البيانات و قاعدة البيانات ماستر حصرا'
        Dim Con As New SqlConnection("Server =(local);database=master;integrated security=True")
        Try
        'تعريف متغيير سترنغ لحفظ مسار ملف م دي اف'
            Dim DIR1 As String = ""
            'تعريف متغيير لحفظ مسار ملف ال دي اف'
            Dim DIR2 As String = ""
            'تعريف داتا تيبل'
            Dim DTTable As New DataTable
            'تنظيف الداتا تيبل'
            DTTable.Clear()
            'التاكد من وجود مسار المجلد المراد وضع قاعدة البيانات فيه اذا لم ينشا لعد يقوم بانشائه'
            If Not IO.Directory.Exists(DirectoryOfDatabase & "\MyDATABASE_NAME") Then Directory.CreateDirectory(DirectoryOfDatabase & "\MyDATABASE_NAME")
            'و ضع المسار الخاص بملف ام دي اف مع اسم قاعدة البيانات'
            DIR1 = DirectoryOfDatabase & "\MyDATABASE_NAME\" & DatabaseName & ".mdf"
            'وضع مسار ملف ال دي اف مع اسم قاعدة البيانات'
            DIR2 = DirectoryOfDatabase & "\MyDATABASE_NAME\" & DatabaseName & "_log.ldf"
            'وضع الاستعلام مع المسارات و اسم قاعدة البيانات المراد انشائها'
            SqlStrXT = " CREATE DATABASE [" + DatabaseName + "] ON  PRIMARY ( NAME = N'" & DatabaseName & _
     "', FILENAME = N'" & DIR1 & "' , SIZE = 4096KB , MAXSIZE = UNLIMITED, FILEGROWTH = 1024KB ) LOG ON ( NAME = N'" & _
     DatabaseName & "_log', FILENAME = N'" & DIR2 & "' , SIZE = 832KB , MAXSIZE = 2048GB , FILEGROWTH = 10%)" & vbNewLine
            'التاكد من انك تريد انشاء قاعدة البيانات'
            If CreateAndCode Then
            'تعريف داتا ادبتر لتنفيذ الاستعلام او اذا اردت عرف كومند و اعمل له اكس كيوت نون كويري'
                Dim da As New SqlClient.SqlDataAdapter(SqlStrXT, Con)
                'التاكد من الاتصال اذا كان مغلق يقوم بفتحه'
                If Con.State = ConnectionState.Closed Then Con.Open()
                'تنفيذ الاستعلام'
                da.Fill(DTTable)
                'اغلاق الاتصال'
                If Con.State = ConnectionState.Open Then Con.Close()
            End If
            'رسالة بنص الاستعلام مع رسالة نجاح بناء قاعدة البيانات بالمسار المراد وضعها به'
            MsgBox(SqlStrXT & vbNewLine & "Database Created Successfully", MsgBoxStyle.Information, "")
            'اغلاق الاتصال اذا كان لايزال مفتوحا'
            If Con.State = ConnectionState.Open Then Con.Close()
            'ارجاع قيمة الاستعلام من الفانكشن'
            Return True & " - " & SqlStrXT '' &  vbNewLine  &  "Database Created Successfully"
        Catch ex As Exception
        'رسالة الخطا'
            MsgBox("Error : " & ex.Message, MsgBoxStyle.Critical, "Error")
            'اغلاق الاتصال اذا كان لايزال مفتوحا'
            If Con.State = ConnectionState.Open Then Con.Close()
            'ارجاع قيمة الاستعلام من الفانكشن'
            Return False & " - " & SqlStrXT
        End Try
    End Function