Опять лыжи не едут, помогите :)

[Pantalone]

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

[Pantalone]

Люди, хелпайте плиз

[Konst_One]

покажи код, как ты обращаешься к табличке test1 в своем проекте, а то нет сейчас акцесса для проверки.

[Pantalone]

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

Dim sBaseFull As String

sBaseFull = "db.mdb"

Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet)

Set dbMain = wrkJet.OpenDatabase(sBaseFull, False, False)


      Dim str As String
      Dim rstWork As DAO.Recordset


    str = "SELECT * From Table1" 'затык вылезает тут



    Set rstWork = dbMain.OpenRecordset(str, 4)



    rstWork.Close
    Set rstWork = Nothing

[Gemini]

Я делаю так:
Коряво конечно но работает ...

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

Dim DAO_PASS
Dim DAO_REC

Set DAO_PASS = OpenDatabase(File, True, False, ";PWD=MyPass")
Set DAO_REC = DAO_PASS.OpenRecordset("Tovar", dbOpenDynaset)

DAO_REC.MoveFirst

do
text1.text = text1.text & vbCrLf & DAO_REC!info

DAO_REC.MoveNext

Loop Until DAO_REC.EOF


[Pantalone]

Gemini
Это к чему вообще? выложи свой пример я затесчу на указанных настройках. Так же оно не пашет на Kannada, Kazakh, Kyrgyz (Cyrillic), Quechua (Bolivia), Tatar, Zulu и может еще где-то.

[Debugger]

Pantalone, первый пост?
Мистика - но у меня тоже не работает.

[Pantalone]

Debugger
В смысле первый пост?

[Gemini]

Pantalone
Вот так у меня работает.

[Pantalone]

Gemini
Да, есть такое, отдельно таблицу открывает, но это не утешает

[Konst_One]

попробуй так:
SELECT * From [Table1]

если не поможет, то укажи имена полей:
SELECT [Field1],[Field2],... FROM [Table1]

[Pantalone]

Не помогает. Тут с локалями самой базы данных какие-то грабли.