Visual-Basic-Forum VB-Paradise.de

Visual Basic Quellcode

Imports MySql.Data.MySqlClient
Imports MySql.Data.Types

Dim User As String = "user"
    Dim PWD As String = "pwd"
    Dim DSN As String = "dsn"
    Dim Server As String = "localhost"
    Dim strConn As String

    Dim objMySQL As MySqlConnection
    Dim objCommand As MySqlCommand

Visual Basic Quellcode

Try
            objMySQL = New MySqlConnection()
            objMySQL.ConnectionString = "server=" & Server & "; user id=" & User & "; password=" & PWD & "; database=test"
            objMySQL.Open()

            serverstatus = True
            Return True
        Catch ex As Exception
            MsgBox("Attempt to open database connection failed." + Chr(13) + ex.Message)

            Return False
        End Try