Question

我正在尝试使用VB生成的文本框来显示SQL数据库中的值/名称。我上周开始使用VB和SQL;我尝试使用名为GetUserInfo（）的自建方法来显示值，但它不会显示任何内容。

这是用于VB中文本框的段

Public Class user_selection_screen
Private SQL As SQLControl
Private Authuser As String

Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles box_user_selection.SelectedIndexChanged
  GetUserInfo()
End Sub

Public Sub GetUserInfo()
  SQL.RunQuery("SELECT Name" & "FROM" ""User"")

  For Each i As Object In SQL.SQLDS.Tables(0).Rows
    box_user_selection.Text = i.Item("Name" & vbCrLf)
  Next
End Sub

我上周开始学习VB和SQL，所以请尽可能简单地解释。

Answer 1

运行SQL.RunQuery("SELECT Name" & "FROM" ""User"")

时

您确定它会填充DS SQL.SQLDS.Tables(0).Rows吗？

如果是，那么，

Dim StrVal As String
For i = 0 To SQL.SQLDS.Tables(0).Rows.Count - 1
    StrVal = StrVal & SQL.SQLDS.Tables(0).Rows(i).Item("Name").ToString()
Next i

box_user_selection.Text = StrVal

查看您的SQLDS.Table是否真的返回一行Msgbox(SQL.SQLDS.Tables(0).Rows.Count)

Answer 2

确保您的SQLDS具有值。如果您的SQLDS是数据集，请通过datarow循环访问您的SQLDS表。见例子

    For Each dr As DataRow In SqlDs.Tables(0).Rows
        box_user_selection.Text = Convert.ToString(dr("Name"))
    Next

在vb文本框中显示SQL数据库列/行

2 个答案: