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
'**************************************************************************************************************
'.....ниже продолжение кода и обработка ошибок в конце..

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.25 из 5