作业帮 > 综合 > 作业

用VB查询一个表中同时包含两个字段的记录,然后统计记录的数量.如何获取数量的值.

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/10 09:25:12
用VB查询一个表中同时包含两个字段的记录,然后统计记录的数量.如何获取数量的值.
strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Menjin;Data Source=WIN-3F96VLME8V7"
cnn.Open strcon
rst.Open "select * from Product",cnn,adOpenDynamic,adLockOptimistic
Set rsti = cnn.Execute("select * from Product where Class_A=' " & Trim(Cb_1.Text) & " 'and Class_B=' " & Trim(Cb_2.Text) & " ' ")
If Not rsti.BOF Then rsti.MoveFirst
Do While Not rsti.EOF
i = i + 1
rsti.MoveNext
Loop
' i = Int(rsti.RecordCount)
lab_bianhao.Caption = Trim(Cb_1.Text) & Trim(Cb_2.Text) & (i + 1)
我想获取i的值,这样能看懂吗?
你是不是想获得 Product table里,同时满足classa='a' and classb='b' 的记录有多少条?
你可以用
Set rsti = cnn.Execute("select count(*) from Product where Class_A=' " & Trim(Cb_1.Text) & " 'and Class_B=' " & Trim(Cb_2.Text) & " ' ")
i=rsti(0)
就是你要的结果了
再问: 还是不行唉,我能加你好友吗。QQ124201870 帮忙看看怎么回事
再答: 上班呢 不让上qq的 你说说是哪里不行?
再问: i的值不对啊 我的记录里面有四条记录 但是I还是显示0
再答: sub test() dim i%,sql$ Dim Conn As New ADODB.Connection Dim Rs As New ADODB.Recordset conn.open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Menjin;Data Source=WIN-3F96VLME8V7" sql="select * from Product where Class_A=' " & Trim(Cb_1.Text) & " 'and Class_B=' " & Trim(Cb_2.Text) & " ' " set rs=conn.execute(sql) msgbox rs(0) end sub 看下弹出来的是不是4
再问: 点击调试出现在这行 MsgBox Rs(0)
再答: sql="select * from Product where Class_A=' " & Trim(Cb_1.Text) & " 'and Class_B=' " & Trim(Cb_2.Text) & " ' " 那是recordset 里没有记录 检查下sql吧 你把' " & Trim(Cb_1.Text) & " '' " & Trim(Cb_2.Text) & " '换成hardcode 比如‘abc' 什么的 sql那句话写成一行