Runtime Error 3228

[manoff]

Уважаемые Гуру, проблема в следущем

Пару лет назад писал небольшие отчетики из Access овских Баз данных, они успешно трудятся в другой маленькой южной стране ))
Но тут возникла необходимость немного печатную форму поменять - выслали мне вместе с базами.
Внимание... у них все работает, у меня же после ввода данных (Дату ввожу) вылетает с Runtime Error 3228 Выбранная последовательность сортировки не поддерживается операционной системой. Причем в разных двух отчетах в разных местах

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

   Set rstModels = dbs3in1.OpenRecordset("SELECT DISTINCT PO, Model, Unit, A FROM Cutting" _
    & " WHERE Date=#" & DateStr & "#" & " ORDER BY Unit,Model;") 'На этой строке вылетает в первом файле

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

Set rstCompleted = dbsSewing.OpenRecordset("Completed", dbOpenSnapshot) 'На этой во втором

Вот не вижу взаимосвязи....
Если нужны еще какие-то данные, с удовольствием предоставлю.

[Konst_One]

DateStr должен быть в таком виде:

"MM/DD/YYYY"

тогда все будет работать

PS
заключайте все поля в запросе в скобки, вот так: [Date]

[manoff]

Я этот кусок не выкладывал, но дата приводится в такой формат

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

    Dated1 = CDate(Dated.Text)
    DateStr = Month(Dated1) & "/" & Day(Dated1) & "/" & Year(Dated1)


Во втором случае мне не ясно почему именно в этой строке

Причем, что характерно у тех кто работает с базой все работает. И у меня раньше (в другой сети доменной) работало...

[alibek]

Попробуй еще формат #yyyy-mm-dd#, он более однозначный.
Но вообще-то больше похоже на проблемы с DAO. Какая у тебя версия используется на машине, где происходит ошибка?
Последняя версия (также поддерживающая юникод) -- 3.6.

[manoff]

Попробуй еще формат #yyyy-mm-dd#, он более однозначный.
Но вообще-то больше похоже на проблемы с DAO. Какая у тебя версия используется на машине, где происходит ошибка?
Последняя версия (также поддерживающая юникод) -- 3.6.

К сожалению в этом формате точно такая-же ошибка
Версия DAO 3.6

[alibek]

А покажи строку подключения, как ты к базе данных подключаешься?

[manoff]

А покажи строку подключения, как ты к базе данных подключаешься?

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

Const strFinish = "Finish.mdb"

    With Worksheets("Util2")
        strPath = .Cells(23, 1) 'Путь хранится на листе

    End With


   Set dbsFinish = Workspaces(0).OpenDatabase(strPath & strFinish)
    Set rstModels = dbsFinish.OpenRecordset("SELECT DISTINCT Model, Type, PO" _
    & " FROM Model INNER JOIN Data ON Model.Model_ID=Data.Model_ID" _
    & " WHERE Date=#" & DateStr & "# AND IsNull(Type)=0" _
    & " ORDER BY Model,PO, Type ;")



[Konst_One]

а где декларации?

Dim dbsFinish as ???
Dim rstModels as ???

хотелось бы посмотреть. открой References и проверь какие библиотеки у тебя подключены к проекту.

[manoff]

а где декларации?

Dim dbsFinish as ???
Dim rstModels as ???

хотелось бы посмотреть. открой References и проверь какие библиотеки у тебя подключены к проекту.

Прошу прощения, не включил эти строки в предыдущий пост

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


    Dim dbsFinish As Database
    Dim rstColors As Recordset
    Dim rstModels As Recordset



[Konst_One]

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

Dim dbsFinish As DAO.Database
Dim rstColors As DAO.Recordset
Dim rstModels As DAO.Recordset
Dim SQL as String
Dim sBase as String
   
sBase="C:\Data\Finish.mdb" 'подставьте влоб пусть к базе

Set dbsFinish = Workspaces(0).OpenDatabase(sBase)

If Not dbsFinish Is Nothing then

'укажите правильные префиксы (m,d) у полей , т.к. я не в курсе какие у вас поля в какой таблице
SQL="SELECT DISTINCT m.[Model], m.[Type], m.[PO] FROM [Model] m INNER JOIN Data d ON m.[Model_ID]=d.[Model_ID] WHERE d.[Date]=#2007-11-14# AND IsNull(m.[Type])=0 ORDER BY m.[Model],m.[PO],m.[Type]"

Set rstModels = dbsFinish.OpenRecordset(SQL)


else
   MsgBox "База отсутствует или ошибка подключения"
end if

[manoff]

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


'укажите правильные префиксы (m,d) у полей , т.к. я не в курсе какие у вас поля в какой таблице
SQL = "SELECT DISTINCT model.[Model], model.[Type], model.[PO] FROM model INNER JOIN Data ON model.[Model_ID]=Data.[Model_ID] WHERE Data.[Date]=#2007-11-14# AND IsNull(model.[Type])=0 ORDER BY model.[Model],model.[PO],model.[Type]"


Аналогичная ошибка при исполнении строки

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

Set rstModels = dbsFinish.OpenRecordset(SQL)

[Konst_One]

а в самом MSAccess в вашей базе Finish.mdb данный запрос отрабатывает?

вы неправильно исправили запрос, нужно так:

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

SQL = "SELECT DISTINCT model.[Model], model.[Type], model.[PO] FROM model INNER JOIN Data D ON model.[Model_ID]=D.[Model_ID] WHERE D.[Date]=#2007-11-14# AND IsNull(model.[Type])=0 ORDER BY model.[Model],model.[PO],model.[Type]"

[manoff]

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

Напутал немного с полями внося коррективы в Ваш запрос...
Вот Верный вариант, отлично работающий в самой акцессе

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

SELECT DISTINCT model.Model, model.Type, model.PO
FROM model INNER JOIN Data AS D ON model.Model_ID=D.Model_ID
WHERE Model.Date=#9/27/2007# And IsNull(model.Type)=0
ORDER BY model.Model, model.PO, model.Type;

[EUGY]

Вот мне не понятно, причем здесь формат даты или вообще синтакис SQL, когда указано на ошибку сортировки 3228.
Я, правда, бегло пробежался по поиску, но советы там такие:
1. переустановить MDAC.
2. CompactDatabase (JetEngine) в нужной кодировке.

[Konst_One]

MDAC конечно желательно установить последний, это понятно.
но проблема все равно не ясна, в Access ведь запрос работает.

попробуйте скачать MS Jet 4.0 споследним SP 8 и установить его заново:
http://msdn2.microsoft.com/en-us/data/aa937730.aspx

может пригодиться:
http://support.microsoft.com/kb/295334/

[manoff]

MDAC конечно желательно установить последний, это понятно.
но проблема все равно не ясна, в Access ведь запрос работает.

попробуйте скачать MS Jet 4.0 споследним SP 8 и установить его заново:
http://msdn2.microsoft.com/en-us/data/aa937730.aspx

может пригодиться:
http://support.microsoft.com/kb/295334/

MDAC самый последний 2.8 не дает качнуть Венда не совсем купленная )) качнул 2.7 нет результата
Jet последний, на всякий случай качнул, ставиться начинает и орет, что его ставить не надо...
Еще мысли есть господа? Может такое быть из-за запуска всего с сетевого диска? Но права точно в норме.

[Crio]

А может попробовать установить на компьютере язык той маленькой южной страны?

[manoff]

А может попробовать установить на компьютере язык той маленькой южной страны?

В базе то все на английском, а страна Камбоджия, хрен его знает на чем они говорят. Я эти базы для корейцев южных делал, года так 4 назад. Не было проблем никаких хотя половина юзверей в сети сидело на русской венде, треть на корейской, остальные на инглише


Блин, уже и локально попробовал и на другой машине и даже оффис XP раскопал ... Ничего не помогает

[Crio]

А на каком языке записи в самих базах? Я к тому, может у них какой-нибудь камбоджийский KOI-8 задействован, вот русский Windows его и не переваривает...

[manoff]

Да все по английски, могу скинуть кто хочет помочь сами базы (2 мега примерно).

[EUGY]

Мне интересно. Прикрепи.

[manoff]

Ужалось до 400 кб
Заранее спасибо тем кто посмотрит

[alibek]

База в версии Access 2000, юникод понимать должна.
MDAC можешь взять отсюда: http://www.macropool.de/en/download/mdac.html

[EUGY]

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


    Dim conn As ADODB.Connection
    Set conn = New ADODB.Connection
    conn.ConnectionString = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & probabasename
    conn.Open
    Debug.Print conn.Properties("Locale Identifier").Value


В базе Finish.mdb локал = 1042, а надо бы - 1033
После сжатия в самом акцессе (Сервис -> Служебные пр. ->Сжать и восстановить ..) локал сменился на 1033 и запрос из VB работает как надо.
Попытка сжать через JRO не увенчалась успехом.
Jet 2.6 ругается на старый формат базы, странно...
P.S. Кароче , ставим корейский MDAC :)

[manoff]

Преобразовал базы в формат 200-2003 и все заработало...
Спасибо всем кто откликнулся и помог