用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的值,这样能看懂吗?
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那句话写成一行
你可以用
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那句话写成一行
用VB查询一个表中同时包含两个字段的记录,然后统计记录的数量.如何获取数量的值.
sql 统计一张表中每种类型的记录数量
SQL 统计 一段时间 按每小时统计 记录的数量
某数据表中包含1个日期型字段、1个备注型字段和1个逻辑型字段,则该数据表的记录长度为多少?
英语翻译1.定义一个函数,能查出,字段为“macro”,需要统计macro值为yes的记录个数.--入参:用户名,表名,
C++ 分别统计一个字符串中所包含的英文字母和汉字的数量
在CAD中如何统计相同字的数量,如图!统计ZH4的数量?
如何定义一个触发器我想删除数据库表中的记录,但是表中有与外表关联的字段,要删除这条记录,并把相关表的记录一起删除,想创建
生活中的数学 请你设计一个调查表,记录自己家一周内每天丢弃的塑料袋数量,并统计本家族这周内所有家庭每天
根据下表中粮库进出大米数量的记录,数出每天记录数学的意义.
excel中如何统计两组数相加大于20的数量
excel中如何统计特定内容的数量