请VB+oracle高手改下代码

来源：百度知道 编辑：UC知道 时间：2024/06/14 01:25:25
rs.MoveNext
Do While Not rs.EOF
Date4 = rs("DRAWDATE")
m = DateDiff("n", Date3, Date4)
dateArray(i) = Date3
flag = 0
If m = 1 And m > 0 Then
dateArray(i) = Date3
dateArray(i + 1) = Date4
i = i + 1
n = n + m

Else
If n >= 15 Then
For j = 0 To i
Date5 = dateArray(j)
rs2.CursorType = adOpenKeyset
rs2.LockType = adLockOptimistic
rs2.Open "Select * from V_OVERRANGEL where trim(TAGNAM)='" & tagnam & "' AND DRAWDATE=TO_DATE('" & Date5 & "','yyyy-mm-dd hh24:mi:ss') ", ADOCC, , adCmdTable

我不会操作这种表，不过可以给你提个思路：先用一个变量T读出start_time列的数据，再把n>15改为n>T。

rs.MoveNext
Do While Not rs.EOF
Date4 = rs("DRAWDATE")
m = DateDiff("n", Date3, Date4)
dateArray(i) = Date3
flag = 0
If m = 1 And m > 0 Then
dateArray(i) = Date3
dateArray(i + 1) = Date4
i = i + 1
n = n + m

Else
If n >= 15 Then
For j = 0 To i
Date5 = dateArray(j)
rs2.CursorType = adOpenKeyset
rs2.LockType = adLockOptimistic
rs2.Open "Select * from V_OVERRANGEL where trim(TAGNAM)='" & tagnam & "' AND DRAWDATE=TO_DATE('" & Date5 & "','yyyy-mm-dd hh24:mi:ss') ", ADOCC, , adCmdTable
ADOCC.Execute "Insert into Trend_overrange(Tagnam,Drawdate,Result,Plant,Matcode,Range) values('" & rs2("Tagnam") & " ',TO_DATE('" & rs2("Drawdate") & "','yyyy-mm-dd hh24:mi:ss'),