vb将导入mysql数据

Imports System.Data.SqlClient
Imports MySql.Data.MySqlClient

Module Module1
    Sub Main()
        Dim connectionString As String = "Server=localhost;Database=mydatabase;Uid=myuser;Pwd=mypassword;"
        Dim connection As New MySqlConnection(connectionString)

        Try
            connection.Open()

            ' 创建数据表
            Dim createTableQuery As String = "CREATE TABLE IF NOT EXISTS users (id INT AUTO_INCREMENT PRIMARY KEY, name VARCHAR(255), age INT)"
            Dim createTableCommand As New MySqlCommand(createTableQuery, connection)
            createTableCommand.ExecuteNonQuery()

            ' 插入数据
            Dim insertQuery As String = "INSERT INTO users (name, age) VALUES (@name, @age)"
            Dim insertCommand As New MySqlCommand(insertQuery, connection)

            Dim parameters As New MySqlParameter()
            parameters.ParameterName = "@name"
            parameters.Value = "John Doe"
            insertCommand.Parameters.Add(parameters)

            parameters = New MySqlParameter()
            parameters.ParameterName = "@age"
            parameters.Value = 30
            insertCommand.Parameters.Add(parameters)

            insertCommand.ExecuteNonQuery()

            Console.WriteLine("Data inserted successfully!")
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Sub
End Module