[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