Imports MySql.Data.MySqlClient

Public Class form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim conn = New MySqlConnection()
        conn.ConnectionString = "server=" & txtServer.Text & ";" _
                & "user id=" & txtUsername.Text & ";"
                & "password=" & txtPassWord.Text & ";" _
                & "database=northwind"
        Try
            conn.Open()
            MessageBox.Show("Connection Opened Successfully")
            conn.Close()
        Catch myerror As MySqlException
            MessageBox.Show("Error Connecting to Database: " & myerror.Message)
        Finally
            conn.Dispose()
        End Try
    End Sub

End Class

[이 게시물은 오원장님에 의해 2013-02-28 16:42:18 오피스팁에서 이동 됨]