none
Проблемы с языковой привязкой RRS feed

  • Общие обсуждения

  • Приложение разработано в VB6.0, языковая привязка к русскому языку, на ряде компьютеров с различными версиями Windows работает стабильно, но на ряд машин не запускается. При просмотре обращений к реестру и файловой системе выяснил, что программа ищет файл vb6ru.dll но не находит, после чего завершается по ошибке 2147024703. Проверил все компьютеры в том числе где работает и не работает файла vb6ru.dll нигде нет. Но языковая привязка жизненно необходима - база данных, запросы SQL. Привязка к языку как раз прописывается в запросах. При запуске в отладке при подключении к базе в момент инициирования обращения к языку происходит поиск файла vb6ru.dll, но не находит. Про машину где разрабатывается я не говорю - все стабильно, как и на ряде других. Впервые сталкнулся с данной проблемой.

    Если сможете помочь, прошу уведомить на адрес электронной почты dnl_software@list.ru!

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

    Dim UsRec As New Recordset
    Dim UsCon As New Connection
    Dim ConfFile As String
    Dim ts, f
    Set ss = CreateObject("Scripting.FileSystemObject")
    ConfFile = CurDB & "\dnl001.dbf"
      If ss.FileExists(ConfFile) Then

    'на следующей строчке происходит вышеописанное.

    'stroka - глобальная строковая переменная типа STRING

     'CurDB - глобальная строковая переменная типа STRING 

    UsCon.ConnectionString = "Provider=VFPOLEDB.1;Data Source=" & Stroka & ";Password='';Collating Sequence=RUSSIAN" 
    UsCon.CursorLocation = adUseClient
    UsCon.Mode = adModeShareDenyRead
    UsCon.Open
    Set UsRec = UsCon.Execute("SELECT kname FROM dnl001")
    With UsRec
    If Not .EOF Then
    .MoveFirst
    Me.txUsersList.AddItem ""
    Do While Not .EOF
    Me.txUsersList.AddItem dnl002(!kname)
    .MoveNext
    Loop
    Else
    CurrentUser = ""
    MsgBox "Отсутствуют пользователи!" & vbCr _
    & "Для работы, создайте пользователей, начиная с АДМИНИСТРАТОРА!", vbCritical, "ОШИБКА!"
    Authoring = True
    cmdOK_Click
    End If
    End With
    UsCon.Close
    End If


    24 декабря 2013 г. 12:03