[atefkhalf2004]

برجاء ايضا

كيفية تنفيذ الاسكربت الخاص بانشاء الجداول

شكرا

---

PHP كود :

Sub CreateDB()
        'Try
        Dim aaaa As String = Application.StartupPath & "\MyOrder_DB.mdf"
        Dim bbbb As String = Application.StartupPath & "\MyOrder_DB.ldf"

        Dim st1, st2 As String
        con = New SqlConnection("Data source=" & cs.Text & ";Initial Catalog=master;Integrated Security=True;")
        con.Open()
        Dim cb2 As String = "Select * from sysdatabases where name='MyOrder_DB'"
        cmd = New SqlCommand(cb2)
        cmd.Connection = con
        rdr = cmd.ExecuteReader()
        If rdr.Read() Then
            con = New SqlConnection("Server=(local)\netsdk;uid=sa;pwd=;database=master")
            con = New SqlConnection("Data source=" & cs.Text & ";Initial Catalog=master;Integrated Security=True;")
            con.Open()
            Dim cb1 As String = "Drop Database MyOrder_DB"
            cmd = New SqlCommand(cb1)
            cmd.Connection = con
            cmd.ExecuteNonQuery()
            con.Close()
            'Try

            con = New SqlConnection("Data source=DESKTOP-CBTJVUG;Initial Catalog=master;Integrated Security=True;")
            con.Open()
            'Dim cb As String = "Create Database  " & Application.StartupPath & "\MyOrder_DB COLLATE Arabic_100_CI_AI"
            Dim cb As String = "Create Database   MyOrder_DB ON PRIMARY (NAME = MyOrder_DB, FILENAME ='" & aaaa & "' ) LOG ON (NAME = MyOrder_DB_Log, FILENAME ='" & bbbb & "' ) "
            cmd = New SqlCommand(cb)
            cmd.Connection = con
            cmd.ExecuteNonQuery()
            con.Close()
            Using sr As StreamReader = New StreamReader(Application.StartupPath & "\scriptnew.sql")
                st1 = sr.ReadToEnd()
                Dim server As New Server(New ServerConnection(con))
                server.ConnectionContext.ExecuteNonQuery(st1)
                MsgBox("1")
            End Using
            'Catch ex As Exception
            '    MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            'End Try
        Else
            '            Dim str As String

            '            Dim myConn As SqlConnection = New SqlConnection("Server=(local)\netsdk;uid=sa;pwd=;database=master")

            '            str = "CREATE DATABASE MyDatabase ON PRIMARY (NAME = MyDatabase_Data, FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " &
            '"SIZE = 2MB, MAXSIZE = 10MB, FILEGROWTH = 10%) LOG ON (NAME = MyDatabase_Log, " &
            '"FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', SIZE = 1MB, MAXSIZE = 5MB, FILEGROWTH = 10%) "

            '            Dim myCommand As SqlCommand = New SqlCommand(str, myConn)

            'Try
            '    myConn.Open()
            '    myCommand.ExecuteNonQuery()
            '    MessageBox.Show("Database is created successfully", "MyProgram", MessageBoxButtons.OK, MessageBoxIcon.Information)
            'Catch ex As Exception
            '    MessageBox.Show(ex.ToString())
            'Finally
            '    If (myConn.State = ConnectionState.Open) Then
            '        myConn.Close()
            '    End If
            'End Try

            'con = New SqlConnection("Server=(local)\netsdk;uid=sa;pwd=;database=master")
            con = New SqlConnection("Data source=" & cs.Text & ";Initial Catalog=master;Integrated Security=True;")
            con.Open()
            'Dim cb3 As String = "Create Database  MyOrder_DB "
            Dim cb3 As String = "Create Database   MyOrder_DB ON PRIMARY (NAME = MyOrder_DB, FILENAME ='" & aaaa & "' ) LOG ON (NAME = MyOrder_DB_Log, FILENAME ='" & bbbb & "' ) "

            'File.WriteAllText(Application.StartupPath & "\", cb3)
            cmd = New SqlCommand(cb3)
            cmd.Connection = con
            cmd.ExecuteNonQuery()
            con.Close()
            MsgBox("2")
            Using sr As StreamReader = New StreamReader(Application.StartupPath & "\scriptnew.sql")
                st2 = sr.ReadToEnd()
                Dim server As New Server(New ServerConnection(con))
                server.ConnectionContext.ExecuteNonQuery(st2)
            End Using
        End If
        'Catch ex As Exception
        '    MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        'Finally
        '    If (con.State = ConnectionState.Open) Then
        '        con.Close()
        '    End If
        'End Try
    End Sub 


هذا الكود  ينشيء    القاعدة   ولا ينشء  الجداول
برجاء  التعديل
متبقي هذه النقطة
برجاء حل الموضوع
شكرا لكم جميعا