vb高手帮忙，谢谢了

来源：百度知道 编辑：UC知道 时间：2024/05/17 07:46:46
Set rs = Nothing

For k = 0 To count - 1
tagnam = Trim(tagnamArray(k))
'rs.Open "Select Max(LASTTIME) RQ from TREND_COUNT where trim(TAGNAM)='" & tagnam & "'", ADOCC, , adCmdTable
' If rs("RQ") <> "" Then
'MsgBox tagnam
'Date1 = rs("RQ")
' End If
'Set rs = Nothing
rs.Open "Select * from TREND_OVERRANGE where trim(TAGNAM)='" & tagnam & "' AND DRAWDATE >= TO_DATE('" & Date1 & "','yyyy-mm-dd hh24:mi:ss') AND DRAWDATE < TO_DATE('" & Date2 & "','yyyy-mm-dd hh24:mi:ss') ORDER BY DRAWDATE", ADOCC, , adCmdTable
If Not rs.EOF Then
m = 0
Date3 = rs("DRAWDATE")
DateFirst = rs("DRAWDATE")
Str_rangeF

要帮什么啊.也不说清楚了
你不会一点都不懂吧?
那就很麻烦啊.你要看看基础先

Set rs = Nothing

For k = 0 To count - 1
tagnam = Trim(tagnamArray(k)) ‘Trim函数用来去掉字符串两边的空格
'rs.Open "Select Max(LASTTIME) RQ from TREND_COUNT where trim(TAGNAM)='" & tagnam & "'", ADOCC, , adCmdTable
' If rs("RQ") <> "" Then
'MsgBox tagnam
'Date1 = rs("RQ")
' End If
'Set rs = Nothing ’注释了的不用我解释吧？
rs.Open "Select * from TREND_OVERRANGE where trim(TAGNAM)='" & tagnam & "' AND DRAWDATE >= TO_DATE('" & Date1 & "','yyyy-mm-dd hh24:mi:ss') AND DRAWDATE < TO_DATE('" & Date2 & "','yyyy-mm-dd hh24:mi:ss') ORDER BY DRAWDATE", ADOCC, , adCmdTable ‘打开数据库
If Not rs.EOF Then 'rs.EOF表示rs为空，没有数据
m = 0
Date3 = rs("DRAWDATE")
DateFirst = rs("DRAWDATE")
Str_rangeF = T