我正在尝试使用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,因此请尽量简化说明。
当你跑步 SQL.RunQuery("SELECT Name" & "FROM" ""User"")
您确定它填满了DSSQL.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)
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句