Tip My connection to Mysql DB

Che7tzs

Member
Joined
Sep 13, 2012
Messages
5
Programming Experience
5-10
Imports MySql.Data
Imports MySql.Data.MySqlClient
Module ConnectDB
    Public MysqlConn As New MySqlConnection
    Public Sub ConnectToDb()
        Try
            If MysqlConn.State = ConnectionState.Open Then MysqlConn.Close()
            MysqlConn.ConnectionString = "SERVER = localhost;DATABASE=rmsbfp;USERID=root;Password=ub3r"
            MysqlConn.Open()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
    Sub DisconnectToDb()
        MysqlConn.Close()
    End Sub
End Module
 
Back
Top