在vb连接mysql数据库查询

Imports MySql.Data.MySqlClient

Module Module1
    Sub Main()
        Dim connectionString As String = "Server=localhost;Database=testdb;Uid=root;Pwd=password;"
        Dim connection As New MySqlConnection(connectionString)
        Try
            connection.Open()
            Dim command As New MySqlCommand("SELECT * FROM users", connection)
            Dim reader As MySqlDataReader = command.ExecuteReader()
            While reader.Read()
                Console.WriteLine("ID: " & reader.GetInt32(0) & ", Name: " & reader.GetString(1))
            End While
            reader.Close()
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Sub
End Module