Доброго времени суток, коллеги!
Давно я не заходил сюда, но вот судьба подкинула проблемку и я понял, что без помощи наших гуру мне не обойтись. Может кто сталкивался уже мой проблемой и у него есть решение?
Суть проблемы в следующем:
Через ADODB пытаюсь получить данные с листа Excel с учетом фильтров по ряду полей и диапазону дат:
У меня на компьютере работает все прекрасно, но у знакомого в региональных настройках системы указан United Kingdom и кириллица в тексте Select-а отражается так:
Естественно селект ничего не возвращает.
Как можно устранить проблему "???" и "кракозябр"? Может кто подскажет?
Заранее благодарен за любую помощь.
Давно я не заходил сюда, но вот судьба подкинула проблемку и я понял, что без помощи наших гуру мне не обойтись. Может кто сталкивался уже мой проблемой и у него есть решение?
Суть проблемы в следующем:
Через ADODB пытаюсь получить данные с листа Excel с учетом фильтров по ряду полей и диапазону дат:
Код |
---|
fName = ThisWorkbook.Path & "\" & ThisWorkbook.Name Set objConnection = CreateObject("ADODB.Connection") Set objRecordset = CreateObject("ADODB.Recordset") objConnection.Open "Provider='Microsoft.ACE.OLEDB.12.0';Data Source=""" & fName & """;Extended Properties='Excel 12.0;HDR=Yes;IMEX=1';" objRecordset.Open "Select distinct [Order Number] FROM [" & tbl1 & "] WHERE Product = '" & prodName & "' and Status = '" & stat & "' " & _ "and (Commodity = '" & cmdty & "' or '" & cmdty & "' = '- ПО ВСЕМ') " & _ "and (Strategy = '" & strtgy & "' or '" & strtgy & "' = '- ПО ВСЕМ') " & _ "and [Est Mvt Date] >= #" & Format(estBeg, "DD\/MM\/YYYY") & "# " & _ " and [Est Mvt Date] < #" & Format(estFin, "DD\/MM\/YYYY") & "#", objConnection, adOpenStatic, adLockOptimistic, adCmdText |
У меня на компьютере работает все прекрасно, но у знакомого в региональных настройках системы указан United Kingdom и кириллица в тексте Select-а отражается так:
Естественно селект ничего не возвращает.
Как можно устранить проблему "???" и "кракозябр"? Может кто подскажет?
Заранее благодарен за любую помощь.
Учимся сами и помогаем другим...