Вопрос: Вопрос...

Добавлено: 06.06.03 14:07

Автор вопроса:  Дeнис

1) Имею две программы: построитель и проигрыватель тестов. Оба идут без проблем на компьютерах с VB. Оба используют одинаковые dll и тп. Но на компах без VB, после установки, идёт только построитель. Проигрыватель выдаёт ошибку Run Time Error 429 Active X component cant create Object в том месте, где аналогичная процедура построителя работает безупречно... Вот код процедуры построителя: '******************************************************** Private Sub Form_Load() NumberFile = 0 ReDim TestFiles(0) Dim NextFile As String Screen.MousePointer = 11 ReDim TestFiles(1) NextFile = Dir$(App.Path & "\TBase\*.tsd") While NextFile <> "" NumberFile = NumberFile + 1 ReDim Preserve TestFiles(NumberFile) TestFiles(NumberFile) = NextFile NextFile = Dir$ Wend ViewInfo Screen.MousePointer = 0 End Sub '******************************************************** '******************************************************** Private Sub ViewInfo() Dim i As Integer Dim dbLocation As String If NumberFile = 0 Then cmdDel.Enabled = False cmdEdit.Enabled = False Exit Sub End If For i = 1 To NumberFile dbLocation = App.Path & "\TBase\" & TestFiles(i) Set dbTestProp = OpenDatabase(dbLocation, dbDenyRead) Set rsProp = dbTestProp.OpenRecordset("TableProp", dbOpenDynaset, dbDenyRead) lstSpisok.AddItem rsProp!NameTest lstSpisok.ItemData(lstSpisok.NewIndex) = i Next i End Sub '******************************************************** Плеер: '******************************************************** Private Sub Form_Load() NumberFile = 0 ReDim TestFiles(0) PathBase = "" Me.Show Dim NextFile As String Screen.MousePointer = 11 ReDim TestFiles(1) NextFile = Dir$(App.Path & "\TBase\*.tsd") While NextFile <> "" NumberFile = NumberFile + 1 ReDim Preserve TestFiles(NumberFile) TestFiles(NumberFile) = NextFile NextFile = Dir$ Wend ViewInfo Screen.MousePointer = 0 End Sub '******************************************************** '******************************************************** Private Sub ViewInfo() Dim i As Integer Dim dbLocation As String For i = 1 To NumberFile dbLocation = App.Path & "\TBase\" & TestFiles(i) Set dbTestProp = OpenDatabase(dbLocation, dbDenyRead) Set rsProp = dbTestProp.OpenRecordset("TableProp", dbOpenDynaset, dbDenyRead) lstSpisok.AddItem rsProp!NameTest lstSpisok.ItemData(lstSpisok.NewIndex) = i Next i End Sub '******************************************************** Практически одинаковые процедуры..... но...??? Ответить

Ответы

Всего ответов: 2

Номер ответа: 1 Автор ответа:  Дeнис Вопросов: 14 Ответов: 42	Профиль | | #1	Добавлено: 06.06.03 14:37
	Вот сижу и думаю, что дело вовсе не в ошибке в коде программы.... Но в чём? актив иксов я не юзаю в данных программах... Ответить

Номер ответа: 2 Автор ответа:  ZeroX ICQ: 220401330  Вопросов: 47 Ответов: 406	Профиль | | #2	Добавлено: 06.06.03 17:45
	А dao360.dll ты ActiveX библиотекой не считаешь? Ответить

Страница: 1 |