那位帮我看下这段代码,结果怎么老是为0

Question

Dim mycon As ADODB.Connection
Dim myrs1 As ADODB.Recordset
Dim myrs2 As ADODB.Recordset
Dim strSQL1 As String
Dim strSQL2 As String
Dim y1 As Integer
Private Sub Command2_Click()
Text1.Text = y1
End SubPrivate Sub Form_Load()
Set mycon = New ADODB.Connection  '新建一个connection
mycon.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=aaa;Mode=Read" '连接数据库
mycon.Open  '打开数据库
End SubPrivate Sub Check3_Click()
'开始导线高度的评估
If Check3.Value = 1 Then
   strSQL1 = "select count(*) as count1 from 结果 where 5500>=导线高度>5800"
   strSQL2 = "select count(*) as count2 from 结果 where 5800>=导线高度>6100"
   Set myrs1 = mycon.Execute(strSQL1)
   Set myrs2 = mycon.Execute(strSQL2)
   X1 = myrs1("count1")
   X2 = myrs2("count2")
   y1 = X1 + X2
Else
  
  y1 = 0End IfEnd Sub
我的数据库中,明明有两个满足条件的,那就是说text的结果为2,怎么我调试的时候,老是为0呢?

Answer 1

Private Sub Command2_Click()
Check3_Click
Text1.Text = y1
End Sub

Answer 2

Private Sub Command2_Click()
Check3.Value = 1
Check3_Click
Text1.Text = y1
End Sub

Answer 3

是不是数据库有问题啊,555,还是位0应该是执行
y1 = X1 + X2后这零的，置个断点查一下每一项的值

Answer 4

两个问题，都在同一个查询字符串上：
strSQL1 = "select count(*) as count1 from 结果 where 5500>=导线高度>5800"
strSQL2 = "select count(*) as count2 from 结果 where 5800>=导线高度>6100"
1.导线高度既然要小于等于5500，那为什么还会大于5800呢？下面的strSQL2里也是这个问题，明显的逻辑错误。但是这不是主要错误。
2.主要错误是，你用如此条件对比的话（就像：“5500>=导线高度>5800”这种对比方式），那也会出现问题，这样的话，你为什么不改成：
strSQL1 = "select count(*) as count1 from 结果 where 导线高度>=5500 AND 导线高度<5800"
strSQL2 = "select count(*) as count1 from 结果 where 导线高度>=5800 AND 导线高度<6100"
这样试试。

Answer 5

还是位0，是不是下面这句话有点小问题
Private Sub Command2_Click()
Check3.Value = 1
Check3_Click
Text1.Text = y1
End Sub这个好象不行吧．那只要我点击command就　就选择了check3,我调试的时候也发现了，即使你没有选择，点击command后，也选中了check3.

Answer 6

VB的调试功能看来你要好好学一下!象这个用设置断点法或者逐步跟踪法应该很容易找到问题所在的.
建议看一下VB调试环境的用法

Answer 7

小弟做毕业设计,只有两个月的时间,只能看些比较基本的东西,所以很仓促,马上就要交毕业设计了,同学推荐我来这里,的确这里比我到的我收藏夹里面20多个其他的论坛都棒.我的程序就是一个评估系统,
只要懂了一个评估方法,其他的就一样了,所以我现在是把导线的评判方法做出来,其他的就ok了,所以我的好多问题,在前辈看来的确很幼稚,但是对我来说还是有点吃力,请各位前辈多多谅解!
现在起码可以顺利通过编译,但是就是结果不大对劲,不知那位前辈愿意棒我调试一下,我把数据库发到您的email中.

Answer 8

我得email是：caixianfa◎TOM.COM
试试看把