Excel этот запрос не возвращает данные

timist

2 / 2 / 0

Регистрация: 03.06.2012

Сообщений: 23

Метки нет (Все метки)

Странная ситуация с SQL запросом.
Есть база данных, из которой SQL запросом вытаскиваю результаты продаж за один день в Excel-таблицу.
Данные в формате «Фирма»; «Направление»; «Кол-во»; «Сумма». Запрос работает правильно, проверено много раз.
Вот только во время распродаж, когда много покупок попадаются дни, когда SQL запрос вытаскивает не все данные за день. Какой то зависимости найти не могу, так как бывает что запросом получаю ~ 150 записей, а иногда и 100 не проходят. Больше 200 записей быть физически не может, т.к. фирм меньше.
Может кто встречался с такой ситуацией, буду рад любой подсказке. С VBA не очень силен, это моя первая работа.

Сам SQL запрос.

1
2
3
4
5
6
7
8
9
10

  strS(1) = "SELECT "
  strS(1) = strS(1) + "p1.prop_name, p2.prop_name, "
  strS(1) = strS(1) + "Sum (Account_item.quantity), Sum(Account_item.ruble_price * Account_item.quantity) "
  strS(1) = strS(1) + "FROM Account_item, Account, goods INNER JOIN cross_property cp1 on (goods.ID=cp1.goods_id) "
  strS(1) = strS(1) + "INNER JOIN properties p1 on (cp1.prop_id=p1.id  AND p1.parent_id ='1997-06-30 23:25:50.671498') "
  strS(1) = strS(1) + "INNER JOIN cross_property cp2 on (goods.ID=cp2.goods_id) "
  strS(1) = strS(1) + "INNER JOIN properties p2 on (cp2.prop_id=p2.id  AND p2.parent_id = '1997-07-06 15:48:53.001999') "
  strS(1) = strS(1) + "WHERE ACCOUNT.ID = Account_item.account_id And Account_item.goods_id = goods.ID AND Account.state='C' " '
  strS(1) = strS(1) + "and ACCOUNT.datedoc = '" & Format(strCurrentDay, "yyyy-mm-dd") & "' and Account.deleted = '1' " '2011-03-14' "
  strS(1) = strS(1) + "GROUP BY p1.prop_name,  p2.prop_name"

Обработка запроса

1
2
3
4
5
6
7
8
9
10
11
12

  
  Dim Storage As Variant
 
  Dim wsStat As Workspace, coStat As Connection, rstRecord As Recordset, rstRec As Recordset, strS(7) As String
  Dim iCount As Long
 
  Set rstRec = coStat.OpenRecordset(strS(iNapr), dbOpenDynamic)
  rstRec.MoveLast
  iCount = Abs(rstRec.RecordCount)
  If iCount = 0 Then Exit For
  rstRec.MoveFirst
  Storage = rstRec.GetRows(iCount)

Пробовал этот запрос делать в iSQL отрабатывает всегда полностью. Получается проблема в посылке запроса из Excel’я? Я в тупике

34702 / 19224 / 4037

Регистрация: 12.02.2012

Сообщений: 32,180

Записей в блоге: 13

— не исключено. Проверь все переменные VBA, которые входят в SQL-запрос.

2 / 2 / 0

Регистрация: 03.06.2012

Сообщений: 23

34702 / 19224 / 4037

Регистрация: 12.02.2012

Сообщений: 32,180

Записей в блоге: 13

Alex77755

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

1

iCount = Abs(rstRec.RecordCount)

Встречается отрицательное количество записей?

timist

2 / 2 / 0

Регистрация: 03.06.2012

Сообщений: 23

Я ограничился этой частью, т.к. проблема где-то тут.
Переменная rstRec получает не все записи (я в окне Watches это проверял), а в массив Storage передает все свои данные полностью. Далее из массива заполняется Excelевская таблица, но там тоже все правильно отрабатывает.
Игрался с переменной coStat.QueryTimeout = 500, но бесполезно, в один день, когда много продаж было запрос так и не выполняется — выскакивает ошибка Run-time error 3669

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

 Set wsStat = CreateWorkspace("", "", "", dbUseODBC)
  Set coStat = wsStat.OpenConnection("", , , "ODBC;Database=Mainbase;UID=onstore;PWD=00000;DSN=mybase")
  coStat.QueryTimeout = 500
 
  Worksheets(strCurrentMonth).Visible = True
  Worksheets(strCurrentMonth & "_Ä").Visible = True
 
  For iNapr = 1 To 2
  Debug.Print strS(iNapr), TypeName(strS(iNapr));
  Set rstRec = coStat.OpenRecordset(strS(iNapr), dbOpenDynamic)
 
  rstRec.MoveLast
  iCount = Abs(rstRec.RecordCount)
  If iCount = 0 Then Exit For
  rstRec.MoveFirst
  Storage = rstRec.GetRows(iCount)
    
' Иногда значение переменной rstRec.RecordCount было больше чем фактическое кол-во записей, 
' соответственно и в массив передавалось меньше, поэтому переменной iCount 
' присваивается фактическая размерность массива  
  iCount = UBound(Storage, 2)
  
  For i = 0 To iCount
' Далее идет обработка записей массива

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

Ну так, вроде можно оставить запрос в базе и пользоваться его результатами?

mc-black

2784 / 716 / 106

Регистрация: 04.02.2011

Сообщений: 1,443

Довольно странно выглядит выражение:

1

Format(strCurrentDay, "yyyy-mm-dd")

Вероятно строковое представление даты переформатируется так, будто работаем с типом Date. Может попробовать как-то так:

1

Format(CDate(strCurrentDay), "yyyy-mm-dd")

Второе замечание по стилю. В VBA конкатенацию (объединение) строк пишут символом амперсанда ‘&’, а не ‘+’ во избежиния путаницы с типами данных.

Catstail

34702 / 19224 / 4037

Регистрация: 12.02.2012

Сообщений: 32,180

Записей в блоге: 13

Я же писал — покажи полный код обработки (а не кусок из середины). Так вот: не используй счетчик записей (он не всегда достоверен), лучше используй итерационный цикл:

1
2
3
4
5
6
7

   Do whie Not Rs.EOF
 
       ' обработка
 
       rs.moveNext
 
   Loop

Добавлено через 50 минут

— самое правильное — писать вот так:

1

Format$(CDate(strCurrentDay), "yyyy-mm-dd")

Все функции без доллара возвращают тип Variant (с долларом — строковый). Но все упорно пишут без доллара…

2784 / 716 / 106

Регистрация: 04.02.2011

Сообщений: 1,443

По большому счеты Вы правы. Там неявное преобразование типа при конкатенации с ‘&’ или с явным объявлением переменных, поэтому обычно проходит без ‘$’.

timist

2 / 2 / 0

Регистрация: 03.06.2012

Сообщений: 23

Изначально, была таблица и торговая программа, в торговой программе делался отчет за день и руками данные заносились в таблицу. Сейчас из Excel делает запрос в базу данных и оттуда вытаскивает все продажи и автоматически заносит в нужную дату и соответствующую фирму.
Вы предлагаете вернуться обратно. Я тоже не против , только фирм много и директора хотят автоматически собирать статистику.

Добавлено через 3 минуты

Продажи или есть (всегда) или их нет (1 января). Возвраты это тоже продажи, только данные там отрицательные. Обрабатываются нормально. По небольшим магазинам собирал статистику за несколько лет. Почти всегда все правильно.

Добавлено через 3 минуты

1

Format(strCurrentDay, "yyyy-mm-dd")

1

Format(CDate(strCurrentDay), "yyyy-mm-dd")

Поначалу перепробовал разные преобразования, чтобы запрос заработал. Сейчас файл работоспособный, только в некоторые дни продажи не стыкуются.
На будущее учту замечания. Спасибо.

Добавлено через 2 минуты

Здесь можно большие куски выкладывать вставкой? или надо файлик присоединять?

Добавлено через 2 минуты

Про это я вообще был не в курсе. В основном все методом подгона подсмотренного кода и методом тыка

Добавлено через 8 минут

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
58
59
60
61
62
63

  Set wsStat = CreateWorkspace("", "", "", dbUseODBC)
  Set coStat = wsStat.OpenConnection("", , , "ODBC;Database=Mainbase;UID=onstore;PWD=000000;DSN=mybase")
  coStat.QueryTimeout = 500
 
  Worksheets(strCurrentMonth).Visible = True
  Worksheets(strCurrentMonth & "_Ä").Visible = True
 
  For iNapr = 1 To 2
  Debug.Print strS(iNapr), TypeName(strS(iNapr));
  Set rstRec = coStat.OpenRecordset(strS(iNapr), dbOpenDynamic)
 
  rstRec.MoveLast
  iCount = Abs(rstRec.RecordCount)
  If iCount = 0 Then Exit For
  rstRec.MoveFirst
  Storage = rstRec.GetRows(iCount)
  
  Worksheets(strCurrentMonth).Activate
  Worksheets(strCurrentMonth).Rows("1:2000").Hidden = False
  noData = True
  
  iCount = UBound(Storage, 2)
  
  For i = 0 To iCount
    With Worksheets(strCurrentMonth).Range("b:b")
 
      Set c = .Find("start" & Storage(0, i), LookIn:=xlValues)
      str4 = "b" + CStr(c.Row) + ":"
      Set c = .Find("new" & Storage(0, i), LookIn:=xlValues)
      str4 = str4 + "b" + CStr(c.Row) + ""
    End With
    With Worksheets(strCurrentMonth).Range(str4)
       
      Set c = .Find(Storage(1, i), LookAt:=xlWhole, LookIn:=xlValues)  'Ïîèñê ôèðìû â òàáëèöå
      If c Is Nothing Then
        AddBrendToStat   'Äîáàâëåíèå íîâîé ôèðìû
        Set c = .Find(Storage(1, i), LookIn:=xlValues)  'Ïîèñê äîáàâëåííîé íîâîé ôèðìû
      End If
      iRow = c.Row
      iColums = CInt(Format(strCurrentDay, "dd")) + 4
      Cells(iRow, iColums).Value = Storage(2, i)  'Ââîä ïðîäàííîãî êîëè÷åñòâà
      Cells(iRow + 1, iColums).Value = (Storage(3, i) / bytCurs) 'Ââîä ïðîäàííîé ñóììû
          
  ' ïîäñ÷åò ñóìì ïî ýòàæàì
      With Worksheets("Ôèëèàë")
      Select Case iNapr
        Case 1
          Set c = .Range("a:b").Find("Ôèðìû")
          strStartGroup = "a" + CStr(c.Row + 1) + ""
          Set c = .Range("a:b").Find("finish")
          strEndGroup = "b" + CStr(c.Row - 1) + ""
        Case 2
          Set c = .Range("e:f").Find("Ôèðìû")
          strStartGroup = "e" + CStr(c.Row + 1) + ""
          Set c = .Range("e:f").Find("finish")
          strEndGroup = "f" + CStr(c.Row - 1) + ""
        End Select
        Set c = Worksheets("Ôèëèàë").Range(strStartGroup & ":" & strEndGroup).Find(Storage(1, i), LookAt:=xlWhole, LookIn:=xlValues)
        sngHall(1, Worksheets("Ôèëèàë").Cells(c.Row, c.Column + 1).Value) = sngHall(1, Worksheets("Ôèëèàë").Cells(c.Row, c.Column + 1).Value) + CSng(Storage(3, i))
      End With
    
    End With
  Next i

Надеюсь этого хватит. Дальше идет запрос по наличным и кредитным оплатам. Собственно с ними я результат и сравниваю. Ну и конечно торговой программой перепроверяю.

Catstail

34702 / 19224 / 4037

Регистрация: 12.02.2012

Сообщений: 32,180

Записей в блоге: 13

Попробуй отказаться от цикла по i (со счетчиком) и реализуй обработку так:

1
2
3
4
5
6
7
8
9

   rstRec.MoveFirst
 
   Do While Not rstRec.EOF
 
       ' далее твои строки 25 - 62
 
       rtsRec.MoveNext
 
   Loop

Скорее всего, ошибка исчезнет. А причина ошибки, мне кажется, в том, что при выполнении кода:

1
2

  rstRec.MoveLast
  iCount = Abs(rstRec.RecordCount)

SQL-сервер недоформировал recordset. Поэтому RecordCount может быть неактульным (меньше реального)

timist

2 / 2 / 0

Регистрация: 03.06.2012

Сообщений: 23

1
2
3
4
5

   rstRec.MoveFirst
   Do While Not rstRec.EOF
       ' далее твои строки 25 - 62
       rtsRec.MoveNext
   Loop

1
2

  rstRec.MoveLast
  iCount = Abs(rstRec.RecordCount)

Я результат запроса передаю в массив

1

Storage = rstRec.GetRows(iCount)

а потом работаю с четырьмя полями каждой записи, а как обращаться к необходимому полю каждой записи переменнойrstRec я не знаю. Возможно ли это?

ЗЫ У меня были случаи когда

1

iCount = Abs(rstRec.RecordCount)

равнялась например 120, а при передачи данных в массив

1

Storage = rstRec.GetRows(iCount)

размерность массива была 120, но данных там почему то содержалось только 100. Поэтому чтобы массив обрабатывался без ошибок я добавил

1

iCount = UBound(Storage, 2)

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

2 / 2 / 0

Регистрация: 03.06.2012

Сообщений: 23

Про RecordCount: я именно это и хотел сказать, но не точно высказался. У вас лучше получилось ответить на свой вопрос . Т.к. у меня еще нет опыта, то iCount = Abs(rstRec.RecordCount) подглядел у кого-то в примерах.
По базе: формат .db, по поводу запроса в базе я читал, но прав у меня на это нет, поэтому я даже и не мучился.

Alex77755

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

Перед определением количества записей в наборе попробуй сделать не один переход в начало, а сначала в конец, а потом в начало

1
2

rstRec.MoveLast
rstRec.MoveFirst

34702 / 19224 / 4037

Регистрация: 12.02.2012

Сообщений: 32,180

Записей в блоге: 13

— да зачем его определять? Лучше сразу цикл по recordSet-у!

11482 / 3773 / 677

Регистрация: 13.02.2009

Сообщений: 11,145

26777 / 14456 / 3192

Регистрация: 28.04.2012

Сообщений: 15,782

Не глюки. Особенности, да. Автор использует DAO-рекордсет, в котором только после обращения к последней записи набора, значение свойства RecordCount становится равным полному числу неудаленных записей в объекте Recordset. Поэтому для принудительного обращения к последней записи используют MoveLast. И возврат в начало MoveFirst для прохождения цикла по рекордсету.

timist

2 / 2 / 0

Регистрация: 03.06.2012

Сообщений: 23

1
2

rstRec.MoveLast
rstRec.MoveFirst

Стал просматривать досконально переменную rstRec после запроса и после MoveLast и обнаружил, что и вправда rstRec.RecordCount после MoveLast увеличивается, в принципе в моей случае даже не надо MoveFirst делать, после него уже ничего не меняется.
К сожалению, ошибка не исправилась, данные получаются не полностью.

Но я заметил, что после запроса счетчик записей rstRec.RecordCount становится отрицательным, после MoveLast увеличивается и становится положительным: тогда данные получаются полностью. А вот когда rstRec.RecordCount остается почему то отрицательным, тогда 100% что часть данных потеряется.

Добавлено через 4 минуты

А как мне обратиться к каждой записи? Когда я передаю данные в массив, то обрабатываю их как Storage(x, y). В переменной rstRec не нашел всех значений запроса.
Например, как обратиться к записи Storage(2, 14) в случае цикла по recordSet?