mysql - 如何在文本框中显示来自 MySQL 的数据

Question

我需要显示一组来自 MySQL 的数据，就像 DataGridView 或 ListView 的功能一样，但使用多个 TextBox 控件。我的工作结果是来自一列的所有数据都集中在一个 TextBox 上。我不知道如何制作一个循环。

代码:

Imports System.Data
Imports MySql.Data.MySqlClient

Public Class Form1

    Dim con As MySqlConnection = New MySqlConnection("data source=localhost; user id=root; database=abc; password=")
    Dim query As String = "SELECT id,timein,timeout FROM emp"

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Using myCommand As New MySqlCommand("SELECT * FROM emp ORDER BY id ASC", con)
            Try
                con.Open()
                Using myData = myCommand.ExecuteReader()
                    If myData.HasRows Then
                        While myData.Read()
                            Dim idline = String.Format("{0}", myData.GetString(myData.GetOrdinal("id")), Environment.NewLine)
                            Dim inline = String.Format("{0}", myData.GetString(myData.GetOrdinal("timein")), Environment.NewLine)
                            Dim outline = String.Format("{0}", myData.GetString(myData.GetOrdinal("timeout")), Environment.NewLine)
                            idbox1.Text &= idline
                            idbox2.Text &= idline
                            idbox3.Text &= idline
                            timein1.Text &= inline
                            timein2.Text &= inline
                            timein3.Text &= inline
                            timeout1.Text &= inline
                            timeout2.Text &= inline
                            timeout3.Text &= inline
                        End While
                    End If
                End Using
            Catch ex As Exception
                MessageBox.Show(ex.ToString())
            End Try
        End Using
        con.Close()
    End Sub
End Class

Answer 1

这对我来说很好用。我得到了我需要做的。谢谢你的想法。"导入系统.数据导入 MySql.Data.MySqlClient

公开课Form2 Dim con As MySqlConnection = New MySqlConnection("data source=localhost; user id=root; database=abc; password=")

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim con As MySqlConnection = New MySqlConnection("data source=localhost; user id=root; database=abc; password=")
    Dim query As String = "SELECT id,timein,timeout FROM emp"
    con.Open()
    Dim dt As New DataTable
    Dim da As New MySqlDataAdapter("SELECT * FROM emp ORDER BY id ASC", con)
    da.Fill(dt)
    idbox1.Text = dt.Rows(0)("id").ToString()
    idbox2.Text = dt.Rows(1)("id").ToString()
    idbox3.Text = dt.Rows(2)("id").ToString()
    timein1.Text = dt.Rows(0)("timein").ToString()
    timein2.Text = dt.Rows(1)("timein").ToString()
    timein3.Text = dt.Rows(2)("timein").ToString()
    timeout1.Text = dt.Rows(0)("timeout").ToString()
    timeout2.Text = dt.Rows(1)("timeout").ToString()
    timeout3.Text = dt.Rows(2)("timeout").ToString()
    con.Close()
End Sub

下课"