منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السادة الزملاء
هذا سكربت ينشء القاعدة علي المسار داخل السكول في القرص c
كيف يتم الانشاء [attachment=28762]في مسار معين وليكن مسار البرنامج (بجوار الملف التنفيذي)
هل التعديل في الاسكربت
ام في كود الفيجوال

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 

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 

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

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

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

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

برجاء ايضا

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

شكرا

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 

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

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ا هو نص الرسالة الخطا

(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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

atefkhalf2004

boudyonline

atefkhalf2004

atefkhalf2004

atefkhalf2004

atefkhalf2004

DanSmith