ActiveX component can't creat object. Run-time error '429' - VB
Формулировка задачи:
На всех компах, где есть мои предыдущие творения на VB6, новая прога работает, а на "чистых" выдает такую ошибку в процессе загрузки. Инсталлируется нормально.
Может, кто подскажет чайнику, быстрей чем сам наощупь найду, какую библиотеку добавить что ли? Или как искать причину ошибки?
В проекте все просто: frame, command, combo-box, image, option, timer и считывание базы Access через объект DAO (без контрола).
Включил все, что встроенный Package & Deployment нашел.
Решение задачи: «ActiveX component can't creat object. Run-time error '429'»
textual
Листинг программы
Private Sub Form_Activate() On Error GoTo oshibka Dim stringLineNumber As String stringLineNumber = "Declarations" Const btZazor As Byte = 10: Const btIntZazor = 10 Dim StartLng As String Dim i As Byte, rw As Byte, stlb As Byte Dim btNumLet As Byte Dim ltrHeight As Long, ltrShir As Long 'height and width of single ltr-imageBox Dim OptModeNames As Variant OptModeNames = Array("Learn", "Pictures-Exam", "Letters-Exam") Dim mdb_path As String Dim mdb As Database Dim rcs As Recordset stringLineNumber = "ini and mdb" ' ****************** Run-time error 429 below ************************ mdb_path = aPath & "ChilDic.INI" 'экономия переменной StartLng = sGetINI(mdb_path, "Boot", "StartLng", "nol") If StartLng = "nol" Then StartLng = "...": MsgBox "Configuration Settings Key was not found. Default learning language set to...", vbInformation, "..." btMaxMistakeNum = Val(sGetINI(mdb_path, "Boot", "MaxAttemptsNumber", "3")): btMaxMistakeNum = btMaxMistakeNum - 1 bShowHint = CBool(sGetINI(mdb_path, "Options", "ShowHint", "False")) 'API decl. in modul mdb_path = aPath & "cMDB.mdb" If cdFilEx(mdb_path) Then Set mdb = OpenDatabase(mdb_path, , True) Set rcs = mdb.OpenRecordset("TbLNG", dbOpenSnapshot) With rcs Do While Not .EOF 'reading LNG-list from MDB cmbLNG.AddItem .Fields(0) If .Fields(0) = StartLng Then btNumLet = .Fields(1) .MoveNext Loop End With End If '************************************************************************************************************** '.....ниже продолжение кода и обработка ошибок в конце..
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д