VB中怎样把mysql语句的查询结果赋值给text1

PrivateSubCommand1_Click()sql="select*fromtshxx"rs.Opensql,dbText1.Text=rs.????rs.Clo... Private Sub Command1_Click()
sql = "select * from tshxx"
rs.Open sql, db
Text1.Text = rs.????
rs.Close
db.Close
End Sub
其中表tshxx有id和name两个,
内容有001 aaa,002 bbb,003 ccc
怎么能让text1显示查询出来的详细结果
上面使用的变量已经在通用中声明过了,数据库也连接上了. 展开

 我来答

3个回答

#热议# 上班途中天气原因受伤算工伤吗？

czduanyh
2011-10-24 · TA获得超过442个赞

知道小有建树答主

回答量：360

采纳率：0%

帮助的人：314万

我也去答题访问个人页

关注

展开全部

Text1.Text = rs("id")
Text2.Text = rs("name")
或
Text1.Text = rs(1)
Text2.Text = rs(2)

更多追问追答
追问

但是他只显示了表中的111到text1,aaa到text2,剩下的两组就看不到了,
怎么能让他显示整列的数据呢
追答

你打算用什么控件显示数据?
追问

最好是能想excel那样的模式....也不知道是啥控件,最好是vb自己就有的,这样简单点..
追答

添加一个ListView 控件
Option Explicit
Private Sub Command1_Click()
    Dim itmX As Object
    sql = "select * from tshxx"
    rs.Open sql, db
    Do While Not rs.EOF
        Set itmX = ListView1.ListItems.Add(, , rs("id"))
        itmX.SubItems(1) = rs("name")
        rs.MoveNext
    Loop
    rs.Close
End Sub

Private Sub Form_Load()
    Dim clmX As Object
    ListView1.View = lvwReport ';报表类型
    ListView1.ListItems.Clear '；清除过期的列表项目
    If ListView1.ColumnHeaders.Count = 0 Then
        Set clmX = ListView1.ColumnHeaders.Add(, , "ID", ListView1.Width / 2)
        Set clmX = ListView1.ColumnHeaders.Add(, , "Name", ListView1.Width / 2)
    End If
End Sub
追问

十分感觉高手指点，高人能不能告诉我qq号啊。。。还有想请教您的时候