Как лечить run-time 430.... или запуск под 95??

@SpiritWalker · Регистрация: 01.01.2008

Студворк — интернет-сервис помощи студентам

Люди! сложилась мрачная ситуация... существует приложение, использующее АДО. Было написано на ВБ6.0 под 98SE. Создал дистрибутив с помощью P&D Wizard. Приложению суждено оказалось работать под вин 95. В процессе установки дистрибутива он поставил на машину с 95 компоненты Data Access 2.0, потом поставилось само приложение.
Комп был перезагружен и потом при запуске этого приложения выдается ошибка 430 run-time Error и пишет что класс не поддерживает автоматизацию и ... жмешь ок, приложение запускается но оно не работает... че делать?? спасите люди!
Код главной формы при загрузке... по видимому ругня начинается здесь:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub MDIForm_Load()
 
Me.ImageList1.ListImages. _
Add , 'view', LoadPicture(App.Path + 'imagescrdfle03.ico')
Me.ImageList1.ListImages. _
Add , 'add', LoadPicture(App.Path + 'imagespencil05.ico')
 
Me.Toolbar1.ImageList = Me.ImageList1
Me.Toolbar1.Buttons.Add , , , tbrSeparator
Me.Toolbar1.Buttons.Add 1, 'view', , tbrDefault, 'view'
Me.Toolbar1.Buttons.Add 2, 'add', , tbrDefault, 'add'
Me.Toolbar1.Buttons.Item(1).ToolTipText = 'Просмотр всех сотрудников'
Me.Toolbar1.Buttons.Item(2).ToolTipText = 'Ввод данных о сотруднике'
 
'Me.lists.Enabled = False
splash_screen.Show
DoEvents
Me.MousePointer = vbHourglass
Set cn_personal = New ADODB.Connection
Set cn_sprav = New ADODB.Connection
Set cn_address = New ADODB.Connection
Set rs_structb = New ADODB.Recordset
Set rs_fio = New ADODB.Recordset
Set rs_uchzav = New ADODB.Recordset
Set rs_nations = New ADODB.Recordset
Set rs_doljn = New ADODB.Recordset
Set rs_vidotp = New ADODB.Recordset
Set rs_turnoff = New ADODB.Recordset
 
cn_personal.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + App.Path + 'datapersonal.mdb;Persist Security Info=False'
cn_sprav.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + App.Path + 'datasprav.mdb;Persist Security Info=False'
cn_personal.Open
cn_sprav.Open
cn_address.ConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + App.Path + 'dataaddress.mdb;Persist Security Info=False'
cn_address.Open
 
'opening the databases in ADO
rs_fio.Open 'fio', cn_personal, adOpenStatic, adLockOptimistic
rs_uchzav.Open 'uchzav', cn_sprav, adOpenStatic, adLockOptimistic
rs_structb.Open 'structb', cn_sprav, adOpenStatic, adLockOptimistic
rs_nations.Open 'nac', cn_sprav, adOpenStatic, adLockOptimistic
rs_vidotp.Open 'vidotp', cn_sprav, adOpenStatic, adLockOptimistic
rs_turnoff.Open 'turnoff', cn_sprav, adOpenStatic, adLockOptimistic
rs_doljn.Open 'doljn', cn_sprav, adOpenStatic, adLockOptimistic
Me.MousePointer = vbNormal
Unload splash_screen
Set splash_screen = Nothing
End Sub

Заранее всем благодарен.

@SpiritWalker · 25.02.2008, 12:12 **[ТС]**

Проблему решил установкой на машине с 95 MDAC 2.0 и использования
Jet3.51...
Спасибо всем ответившим... вы очень помогли!

@Филин · 25.02.2008, 12:52

To: eddy. Ты правильно понял - проект изначально рассчитывался на Win98, но что-то там было не то... Даже VB-шный родной P&D Wizard c библиотеками не справился. Гад.
Под Win95 не пробовал... Не было необходимости.

25.02.2008, 14:30

2 eddy : Заказчик не принял программу. Пришлось удалить. Заказчика.

)) Так, что-ли?

Новые блоги и статьи Все статьи Все блоги /
Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@SpiritWalker 0 / 0 / 0 Регистрация: 01.01.2008 Сообщений: 106
	25.02.2008, 12:12 [ТС]
	Проблему решил установкой на машине с 95 MDAC 2.0 и использования Jet3.51... Спасибо всем ответившим... вы очень помогли! 0

@Филин 0 / 0 / 0 Регистрация: 27.11.2007 Сообщений: 60
	25.02.2008, 12:52
	To: eddy. Ты правильно понял - проект изначально рассчитывался на Win98, но что-то там было не то... Даже VB-шный родной P&D Wizard c библиотеками не справился. Гад. Под Win95 не пробовал... Не было необходимости. 0

Ghost
	25.02.2008, 14:30
	2 eddy : Заказчик не принял программу. Пришлось удалить. Заказчика. )) Так, что-ли?