[atefkhalf2004]

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

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