SQL-запрос, ерунда какая-то

[lord0n]

Код: Выделить всё


date1 = Format(cboMounth.ListIndex + 1, "00") & "/" & Format(x, "00") & "/" & cboYear.Text
.....   
RS.Open "select distinct f4 from [Excel-sheet$] where f1 = '" & date1 & "'", db, adOpenStatic, adLockOptimistic


при первом запуске выдает ошибку:
"Выбранная последовательность сортировки не поддерживается операционной системой"
при остальных запусках все нормально
не понимаю

[Konst_One]

может все-таки :

Код: Выделить всё

f1 = #" & date1 & "#"

если это Access

[lord0n]

если в акцесе то да
а это екселевская книга

[Konst_One]

и что?
все тоже самое

[Konst_One]

если конечно у тебя для столбца f1 явно не указан текстовый формат данных

[lord0n]

А у меня не получается задать никакой формат кроме текстового
даже если я специально задаю формат даты, rs открывается в текстовом формате

[Konst_One]

покажи свой код открытия ADO-соединения с файлом excel

[lord0n]

Код: Выделить всё


Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & lblDispTab.Caption & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""

Set oEx = CreateObject("excel.Application")
With oEx
.workbooks.Open FileName:=App.Path & "\KPI.xls", ReadOnly:=True

kolall = 0

For x = 1 To Left(kondate, 2)

    date1 = Format(x, "00") & "." & Format(cboMounth.ListIndex + 1, "00") & "." & cboYear.Text
    Set RS = New Recordset
   
    On Error Resume Next
    RS.Open "select distinct f4 from [Excel-sheet$] where f1 = '" & date1 & "'", db, adOpenStatic, adLockOptimistic
   
    .Windows("KPI.xls").Activate



[Andrey Fedorov]

при первом запуске выдает ошибку:
"Выбранная последовательность сортировки не поддерживается операционной системой"
при остальных запусках все нормально
не понимаю

В обработчике ошибок поставь для этой ошибки

Код: Выделить всё

Resume

[lord0n]

только этим и спасаюсь
но это не дело, надо чтоб по нормальному было

[Konst_One]

Код: Выделить всё

Dim rs as ADODB.Recordset
Dim db as ADODB.Connection
...
set db=New ADODB.Connection
set rs=New ADODB.Recordset

проверь какая библиотека у тебя работает

[mnzol]

Честно говоря точно не помню, но был какой-то bug у Билли, что тип поля определяется по первым скольки-то строкам и если есть варианты, то тип принимается за текст, а какие-либо установки ему в этом случае по барабану. Ну или что-то в этом роде ...

[lord0n]

Код: Выделить всё

Dim rs as ADODB.Recordset
Dim db as ADODB.Connection
...
set db=New ADODB.Connection
set rs=New ADODB.Recordset

проверь какая библиотека у тебя работает

Microsoft ActiveX Data Objects 2.0 Lib

[Konst_One]

итог - таков, нужно полное содержимое твоего экселевского файла, тогда и решение появится

[Konst_One]

Подключай ADO 2.5 как минимум

[lord0n]

итог - таков, нужно полное содержимое твоего экселевского файла, тогда и решение появится

[Konst_One]

у тебя ничего не выйдет таким способом, так как у тебя несколько строк в начале страницы занимает шапка документа. Один единственный вариант - сначала вырезать необходимый диапазон, сохранить его в новый sheet, а его уже открывать в рекордсете, тогда у тебя все будет ок.

[lord0n]

ясно
большое спасибо за помощь

[Andrey Fedorov]

у тебя ничего не выйдет таким способом, так как у тебя несколько строк в начале страницы занимает шапка документа. Один единственный вариант - сначала вырезать необходимый диапазон, сохранить его в новый sheet, а его уже открывать в рекордсете, тогда у тебя все будет ок.

Да нет - дело не в этом.

К примеру, у меня его xls-файл в Recordset открывается без проблем - в отдельном проекте. И в то же время DBF-ка в составе большого проекта открывается с вышеприведенной ошибкой (приходится использовать Resume). Разбираться в чем дело было не дюже охота - поэтому так и стоит, хотя, конечно, узнать истину хочется...

[Andrey Fedorov]

у тебя ничего не выйдет таким способом, так как у тебя несколько строк в начале страницы занимает шапка документа. Один единственный вариант - сначала вырезать необходимый диапазон, сохранить его в новый sheet, а его уже открывать в рекордсете, тогда у тебя все будет ок.

Шапка документа скорей всего влечет за собой то что в Recordset-e все колонки будут распознаны как строковые. Но Recordset откроется.

Кроме того запрос может быть написан в виде:

Код: Выделить всё

r.Open "SELECT * FROM [Расход$A5:Q22]", cn, adOpenStatic, adLockReadOnly

[lord0n]

с этим проблема:
это не полный файл (весь файл занимает 10 мб)
плюс к этому файл постоянно пополняется
из этого следует:
1. либо открывать простой (без where) рекордсет, затем вычислять конечную строку, затем его переоткрывать с пораметром A5:Qx
(x - последняя строка)
2. открывать сразу с параметром A5:Q65536, но у юзера для которого она предназначена очень слабая машина и я боюсь что будет долго открываться

[Andrey Fedorov]

2. открывать сразу с параметром A5:Q65536, но у юзера для которого она предназначена очень слабая машина и я боюсь что будет долго открываться

Ну ты попробуй - вряд ли он будет пытаться взять в Recordset несуществующие строки.

Ну и уводи эту задачу с Excel со временем...

[lord0n]

я бы с удовольствием все в базу засунул, но начальник не разрешает
грит что для операторов сложно будет, но отчет с использованием этого файла должен быть
вот такой директор

[Andrey Fedorov]

я бы с удовольствием все в базу засунул, но начальник не разрешает
грит что для операторов сложно будет, но отчет с использованием этого файла должен быть
вот такой директор

Дык сделай так чтобы удобно и просто все было было и покажи ему.
Там делов-то...

P.S Метод убеждает на 100%. Если, конечно, сам не намудришь

[lord0n]

дык, показывал - не хочет

[Andrey Fedorov]

дык, показывал - не хочет

Значит намудрил

[Konst_One]

не-а,у него тяжелый случай. там несколько столбцов с объединением в колонках D и E , из-за этого провайдер и дает ошибки, так как появляются пустые строки по столбцам A,B, C , но заполненные по D и E и тд

[Ennor]

5 копеек вдогонку. Вместо вот этого кошмара:

Код: Выделить всё

date1 = Format(cboMounth.ListIndex + 1, "00") & "/" & Format(x, "00") & "/" & cboYear.Text

используй функцию DateSerial().

[Konst_One]

вот посмотри, что выходит:

[Andrey Fedorov]

не-а,у него тяжелый случай. там несколько столбцов с объединением в колонках D и E , из-за этого провайдер и дает ошибки, так как появляются пустые строки по столбцам A,B, C , но заполненные по D и E и тд

Да никакой ошибки из-за этого не выдается. Попробуй с его табличкой:

Код: Выделить всё


    Dim cn As New ADODB.Connection
    Dim r As New ADODB.Recordset
    cn.CursorLocation = adUseClient
    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Properties![Extended Properties] = "Excel 8.0; HDR=No"
    cn.Properties![Data Source] = "C:\Temp\Таблица.xls"
    cn.Open
    r.Open "SELECT * FROM [Расход$A5:Q65536]", cn, adOpenStatic, adLockReadOnly

Природа ошибки совсем другая...