[atefkhalf2004]

السادة الزملاء
هذا سكربت  ينشء  القاعدة علي المسار داخل السكول في القرص  c
كيف يتم الانشاء 
  RMS2db.rar (الحجم : 28.21 ك ب / التحميلات : 18) في مسار معين  وليكن مسار البرنامج (بجوار الملف التنفيذي)
هل التعديل في الاسكربت
ام في كود الفيجوال

PHP كود :

Sub CreateDB()
        'Try
        con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
            con.Open()
            Dim cb2 As String = "Select * from sysdatabases where name='RPOS_DB'"
                            cmd = New SqlCommand(cb2)
            cmd.Connection = con
            rdr = cmd.ExecuteReader()
            If rdr.Read() Then

                con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
                con.Open()
                Dim cb1 As String = "Drop Database RPOS_DB"
                cmd = New SqlCommand(cb1)
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                con.Close()
            'Try
            con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
                    con.Open()
                    Dim cb As String = "Create Database  " & Application.StartupPath & "\RPOS_DB"
                    cmd = New SqlCommand(cb)
                    cmd.Connection = con
                    cmd.ExecuteNonQuery()
                    con.Close()
                    Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DBScript.sql")
                        st = sr.ReadToEnd()
                        Dim server As New Server(New ServerConnection(con))
                        server.ConnectionContext.ExecuteNonQuery(st)
                    End Using
                'Catch ex As Exception
                '    MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                'End Try
                Else
                con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
                con.Open()
                Dim cb3 As String = "Create Database " & Application.StartupPath & "\RPOS_DB"
                cmd = New SqlCommand(cb3)
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                con.Close()
                Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DBScript.sql")
                    st = sr.ReadToEnd()
                    Dim server As New Server(New ServerConnection(con))
                    server.ConnectionContext.ExecuteNonQuery(st)
                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 


[boudyonline]

PHP كود :

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 


[atefkhalf2004]

شكرا لك
كثيرا
منتدي متميز
جاري التجربة

---

تم التنفيذ
تمام الكود
شكرا لك
ادي الهدف تماما

[atefkhalf2004]

استأذن حضرتك في
لو عايز اضعه في مجلد البرنامج
جربت
Dim dbdbname As String = Application.StartupPath & "\MyOrder_DB.mdf"

ولم ينجح
عايز ابدل المكان بدلا من d

[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 


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

[atefkhalf2004]

Additional information: Could not load file or assembly 'Microsoft.SqlServer.BatchParser, Version=10.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91' or one of its dependencies. The system cannot find the file specified.

ه1ا هو نص الرسالة الخطا

[DanSmith]

(16-03-23, 01:22 PM)atefkhalf2004 كتب : السادة الزملاء
هذا سكربت  ينشء  القاعدة علي المسار داخل السكول في القرص  c
كيف يتم الانشاء  في مسار معين  وليكن مسار البرنامج (بجوار الملف التنفيذي)
هل التعديل في الاسكربت
ام في كود الفيجوال

PHP كود :

Sub CreateDB()
        'Try
        con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
            con.Open()
            Dim cb2 As String = "Select * from sysdatabases where name='RPOS_DB'"
                            cmd = New SqlCommand(cb2)
            cmd.Connection = con
            rdr = cmd.ExecuteReader()
            If rdr.Read() Then

                con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
                con.Open()
                Dim cb1 As String = "Drop Database RPOS_DB"
                cmd = New SqlCommand(cb1)
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                con.Close()
            'Try
            con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
                    con.Open()
                    Dim cb As String = "Create Database  " & Application.StartupPath & "\RPOS_DB"
                    cmd = New SqlCommand(cb)
                    cmd.Connection = con
                    cmd.ExecuteNonQuery()
                    con.Close()
                    Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DBScript.sql")
                        st = sr.ReadToEnd()
                        Dim server As New Server(New ServerConnection(con))
                        server.ConnectionContext.ExecuteNonQuery(st)
                    End Using
                'Catch ex As Exception
                '    MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                'End Try
                Else
                con = New SqlConnection("Data source=" & cmbServerName.Text & ";Initial Catalog=master;Integrated Security=True;")
                con.Open()
                Dim cb3 As String = "Create Database " & Application.StartupPath & "\RPOS_DB"
                cmd = New SqlCommand(cb3)
                cmd.Connection = con
                cmd.ExecuteNonQuery()
                con.Close()
                Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DBScript.sql")
                    st = sr.ReadToEnd()
                    Dim server As New Server(New ServerConnection(con))
                    server.ConnectionContext.ExecuteNonQuery(st)
                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 


شكرا جدا كنت ابحث عن هذا الكود من زمان شكرا كثيرا