该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
If IsNull(rs2.Fields(i)) Then
MSFlexGrid3.TextMatrix(j2, i + 1) = ""
Else
MSFlexGrid3.TextMatrix(j2, i + 1) = rs2.Fields(i)
End If
Next i
n2 = n2 + 1
j2 = j2 + 1
rs2.MoveNext
Text9.Text = n2
Wend
'End Sub
'Private Sub Command5_Click()
rs2.MoveFirst
sql3 = "select * from 机顶盒回传信息 where 收看结束时间 between (#" & Text3.Text & "#) and (#" & Text5.Text & "#) And 频道信息 = " + " '" + Text6 + "'"
'流入人数的计算
'Set cn = New ADODB.Connection '创建新的连接对象
'cn.Open "DSN=gf" '打开数据源 dsn:Data Source Name
Set rs3 = cn.Execute(sql3) 'Execte:执行指定的查询、SQL语句,存储过程或特定提供者的文本等内容
Dim j3 As Integer
Dim n3 As Integer
j3 = 1
n3 = 0
If rs3.EOF = True Then
'MsgBox "库中无此记录!", vbInformation + vbOKOnly, "错误信息"
Text10.Text = 0
End If
While rs3.EOF = False
MSFlexGrid4.Rows = j3 + 1
For i = 0 To 4
If IsNull(rs3.Fields(i)) Then
MSFlexGrid4.TextMatrix(j3, i + 1) = ""
Else
MSFlexGrid4.TextMatrix(j3, i + 1) = rs3.Fields(i)
End If
Next i
n3 = n3 + 1
j3 = j3 + 1
rs3.MoveNext
Text10.Text = n3
Wend
'End Sub
'Private Sub Command6_Click()
rs3.MoveFirst
sql4 = "select * from 机顶盒回传信息 where 收看开始时间 between (#" & Text5.Text & "#) and (#" & Text4.Text & "#) And 频道信息 = " + " '" + Text6 + "'"
'流入人数的计算
'Set cn = New ADODB.Connection '创建新的连接对象
' cn.Open "DSN=gf" '打开数据源 dsn:Data Source Name
Set rs4 = cn.Execute(sql4) 'Execte:执行指定的查询、SQL语句,存储过程或特定提供者的文本等内容
Dim j4 As Integer
Dim n4 As Integer
j4 = 1
n4 = 0
If rs4.EOF = True Then
'MsgBox "库中无此记录!", vbInformation + vbOKOnly, "错误信息"
Text11.Text = 0
End If
While rs4.EOF = False
MSFlexGrid1.Rows = j4 + 1
For i = 0 To 4
If IsNull(rs4.Fields(i)) Then
MSFlexGrid5.TextMatrix(j4, i + 1) = ""
Else
MSFlexGrid5.TextMatrix(j4, i + 1) = rs4.Fields(i)
End If
Next i
n4 = n4 + 1
j4 = j4 + 1
rs4.MoveNext
Tex11.Text = n4
Wend
'End Sub
'Private Sub Command7_Click()
rs4.MoveFirst
sql5 = "select * from 机顶盒回传信息 where 收看结束时间 between (#" & Text5.Text & "#) and (#" & Text4.Text & "#) And 频道信息 = " + " '" + Text6 + "'"
'流入人数的计算
'Set cn = New ADODB.Connection '创建新的连接对象
' cn.Open "DSN=gf" '打开数据源 dsn:Data Source Name
Set rs5 = cn.Execute(sql5) 'Execte:执行指定的查询、SQL语句,存储过程或特定提供者的文本等内容
Dim j5 As Integer
Dim n5 As Integer
j5 = 1
n5 = 0
If rs5.EOF = True Then
'MsgBox "库中无此记录!", vbInformation + vbOKOnly, "错误信息"
Text12.Text = 0
End If
While rs5.EOF = False
MSFlexGrid6.Rows = j5 + 1
For i = 0 To 4
If IsNull(rs5.Fields(i)) Then
MSFlexGrid6.TextMatrix(j5, i + 1) = ""