[aljzazy]

يجب ان تتأكد بالبداية بان قاعدة البيانات موجودة اة غير موجودة
على كل حال هذا الكود

PHP كود :

 Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
            Con.Open()
            Dim cb2 As String = "Select * from sysdatabases where name='drug'"
            Dim cmd As New SqlCommand(cb2)
            cmd.Connection = Con
            Dim rdr As SqlDataReader
            rdr = cmd.ExecuteReader()
            If rdr.Read() Then
                Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
                Con.Open()
                Dim cb1 As String = "Drop Database drug"
                cmd = New SqlCommand(cb1)
                cmd.Connection = Con
                cmd.ExecuteNonQuery()
                Con.Close()
                Con = New SqlConnection("Data source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True;MultipleActiveResultSets=True")
                Con.Open()
                Dim cb As String = "Create Database drug"
                cmd = New SqlCommand(cb)
                cmd.Connection = Con
                cmd.ExecuteNonQuery()
                Con.Close()
                Using sr As StreamReader = New StreamReader(Application.StartupPath & "\DATABASESCRIPT.sql")
                    st = sr.ReadToEnd()
                    Dim server As New Server(New ServerConnection(Con))
                    server.ConnectionContext.ExecuteNonQuery(st)
                End Using