[mysql]经历每个行的视觉基本和在不同的标签写的每一行第一列的值

发布时间: 2017/1/2 23:57:45
注意事项: 本文中文内容可能为机器翻译,如要查看英文原文请点击上面连接.

我已经设法将第一行的值写入在 label1,但我不知道为什么不能将第二行的值进去成标签 2。这里是多远,我已经设法来

    myCommand.CommandText = "SELECT allText FROM tbltest"
    myDatareader = myCommand.ExecuteReader

    Do While myDatareader.Read()
        label1.Text = myDatareader(0).ToString()
        label2.Text = myDatareader(1).ToString()
    Loop

PS !我得到这个错误"指数超出数组的界限"。什么是我做错了?

PSS !亚历克斯的帮助下,我写了这些,它解决了问题。 它的作用是,它读取值并将其写入为面板中的标签。

解决方案

    Public Sub getit()
        Dim count As Integer = 0

        myCommand.CommandText = "SELECT allText FROM tbltest"
        myDatareader = myCommand.ExecuteReader

        Do While myDatareader.Read
            count += 1
            show(myDatareader(0).ToString, count)
        Loop
    End Sub

    Public Sub show(ByVal name As String, ByVal count As Integer)
        Dim allTextlabel As New Label()

        allTextlabel.Location = New Point(10, (45 * (count)) + 1)
        allTextlabel.Size = New Size(100, 25)
        allTextlabel.Name = "lbl_" & name.ToString
        allTextlabel.Text = name.ToString

        Panel1.Controls.Add(allTextlabel)
    End Sub

解决方法 1:

因为你要求的只是一列 myCommand.CommandText = "SELECT allText FROM tbltest"allText 你没有任何 myDatareader(1) 的索引为 0 的只是第一个myDatareader(0)

更新我不是很强,在 VB 中,但您可以尝试︰

Dim Phrase() as string
i=0

Do While myDatareader.Read()
    i=i+1
    Phrase(i) = myDatareader(0).ToString();
Loop

    label1.Text = Phrase(1).ToString()
    label2.Text = Phrase(2).ToString()
    label3.Text = Phrase(3).ToString()
    label4.Text = Phrase(4).ToString()
    label5.Text = Phrase(5).ToString()
赞助商