VB 如何把查询到的结果赋值给一个变量或控件里？
OptionExplicitDimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSub交班_Click...
Option Explicit
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub 交班_Click()
Call openconn
rs.Open "select Count(*) from 一号线 where 质量 = '破损'", conn
Call closeconn
Form2.Show 1
End Sub
我不知道我的查询语句对不对，我要的结果是查询"一号线"质量 字段为 破损的数据并统计好条数，在把这个统计好的条数 赋值给一个变量或者TEXT1.TEXT。哪位大神能帮我修改一下。 展开
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub 交班_Click()
Call openconn
rs.Open "select Count(*) from 一号线 where 质量 = '破损'", conn
Call closeconn
Form2.Show 1
End Sub
我不知道我的查询语句对不对，我要的结果是查询"一号线"质量 字段为 破损的数据并统计好条数，在把这个统计好的条数 赋值给一个变量或者TEXT1.TEXT。哪位大神能帮我修改一下。 展开
1个回答
展开全部
要将sql查询结果输出 直接操作rs对象 取取其字段内容即可
rs（0） text1.text= rs（0）
更多追问追答
追问
你说的字段内容是字段名称？还有那个rs(0是啥意思啊)
谢谢，我明白rs(0)啥意思了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
