Как подключиться к БД через vb.net?

Question

У меня есть следующий код, msgBox, который говорит, что "БД изменена", никогда не появляется, и я получаю сообщения, как следует в ближайшем окне.

Но, наконец, форма загружается, и я не могу знать, была ли создана моя БД или нет!

 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    Dim strConn As String = "Data Source=localhost;Initial Catalog=master;Integrated Security=True"

    Dim conn As New SqlConnection(strConn)        
    conn.Open()
    Try

        conn.ChangeDatabase("productsDB")
        MsgBox("DB changed")
    Catch ex As Exception
        Try
            Dim command1 As New SqlCommand("CREATE DATABASE productsDB", conn)
            command1.ExecuteNonQuery()

            command1.Connection.ChangeDatabase("productsDB")

            Dim command2 As New SqlCommand("CREATE TABLE products ([id][int],[name][char](30),[quantity][int],[dealer_price][int],[unit_price][int])", conn)
            command2.ExecuteNonQuery()
        Catch ex2 As Exception
            MsgBox(ex2.Message)
        End Try
    End Try


End Sub

Answer 1

Это может быть полезно, если вы создаете экземпляр соединения, а также открываете его внутри блока try, чтобы увидеть выбрасываемое вами исключение.

Dim conn as SqlConnection
Try
  conn = new SqlConnection(strConn)
  con.Open()
  ...
Catch ex As Exception
  MsgBox.Show(ex.Message)
End Try