该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

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) = ""