Всем доброго дня.
Подскажите пожалуйста, кто знает, как обратиться к записи, которая имеет прерывание.
Поясню. Ведется архив данных, где в sql записывается раз в сутки значение и эти значения с 1 января по актуальную дату необходимо записать в столбец в Excel. Если запись производилась каждый день, то тут проблем нет, но если, например в какой то из дней ( 1 или несколько дней) записи не было по причине отключения сервера, то получается обратиться к данным только до момента отключения. Единственным способ, который удалось реализовать - это сделать 2 цикла: с 1.01 по день остановки и с дня возобновления работы по актуальный день. Так было в 2016 году. В коде можно это увидеть. Проблема в том, что при каждом прерывании есть необходимость переписывать код.
Теперь вопрос: как обратиться в одном цикле ко всем данным, а там где их нет, записать "0". Хочется сделать универсальный код, чтоб не приходилось дописывать при каждом сбое.
'
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
ЗАПОЛНЕНИЕ ДАННЫХ ПО ЧИЛЛЕРУ
'обращение к тегу
sSQL = "Tag:R,'Archive_Day\Sum_P_Load_CH','" + CStr(PrevYear) + "-01-02 02:10:00.000','" + _
CStr(ActYear) + "-" + CStr(ActMonth) + "-" + CStr(ActDay) + " 04:10:00.000'"
' connecting
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = sConnection
conn.CursorLocation = 3
conn.Open
' Getting data
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText = sSQL
Set oRs = oCom.Execute
'Working With data
oRs.MoveFirst
If PrevYear = 2016 Then
For i = 179 To 185
WS.Cells(i+3,10) = 0
Next
For i = 0 To 178
WS.Cells(i+3,10) = oRs.fields(2).Value
oRs.MoveNext
Next
For i = 186 To k
If Not(oRs.EOF) Then
WS.Cells(i+3,10) = oRs.fields(2).Value
oRs.MoveNext
Else
Exit For
End If
Next
Else
For i = 0 To k
If Not(oRs.EOF) Then
WS.Cells(i+3,10) = oRs.fields(2).Value
oRs.MoveNext
Else
Exit For
End If
Next
End If
' Clear objects
Set oCom = Nothing
oRs.Close
Set oRs = Nothing
conn.Close
Set conn = Nothing
