vb 获取mysql表第一行数据

Imports MySql.Data.MySqlClient
Imports System.Data

Public Sub GetFirstRowFromTable()
    Dim connectionString As String = "Server=your_server;Database=your_database;Uid=your_username;Pwd=your_password;"
    Dim sqlQuery As String = "SELECT * FROM your_table LIMIT 1"

    Using connection As New MySqlConnection(connectionString)
        Try
            connection.Open()
            Dim command As New MySqlCommand(sqlQuery, connection)
            Dim reader As MySqlDataReader = command.ExecuteReader()

            If reader.HasRows Then
                reader.Read() ' Move to the first row
                ' Access the data using reader.GetValue(index) or reader["columnName"]
                Dim firstColumnValue As String = reader.GetString(0) ' Assuming the first column is of type VARCHAR
                Console.WriteLine("First column value: " & firstColumnValue)
            Else
                Console.WriteLine("No rows found.")
            End If

            reader.Close()
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        Finally
            connection.Close()
        End Try
    End Using
End Sub