Откомпилированная программа не работает на других машинах

Помогите пожалуйста!!! У меня не работает на чужих машинах программа, причем если установить Visual Basic, то начинает работать, очевидно, на других комьютерах нет необходимых компонентов, которые ставятся с бейсиком, но как определить,каких именно (есть большие подозрения, что ошибку вызывает ADO), и где их скачать? Я в программировании новичек, и с такой проблемой не сталкивался...
вот неполный код, ошибка где то там должна быть...:

Private Sub Form_Load()
Dim klass As String
Dim predmet As String
Dim tema As String
Dim urok As String
Dim sum_ As String
Dim msg As String
Dim i As Integer
On Error GoTo ErrorM
'получаем путь к базе
Text5.Text = Reg1.GetValue(HKEY_CURRENT_USER, "Software\Prog_om", "bazename")
If Text5.Text = "" Then
b_name = App.Path & "/baze/baze.mdb"
Else
b_name = Text5.Text
End If
'соединяемся
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persi st Security Info=Falseata Source=" & _
b_name
Adodc1.RecordSource = "z_urok"
Adodc5.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persi st Security Info=Falseata Source=" & _
b_name
Adodc5.RecordSource = "z_s_u"
Set Text1.DataSource = Adodc1
Text1.DataField = "klass_u"
Set Text2.DataSource = Adodc1
Text2.DataField = "predmet_u"
Set Text3.DataSource = Adodc1
Text3.DataField = "tema_u"
Set Text4.DataSource = Adodc1
Text4.DataField = "urok_u"
Set Text8.DataSource = Adodc5
Text8.DataField = "Count-urok_u"
'присваиваем переменным значения из текстбоксов
klass = Text1.Text
predmet = Text2.Text
tema = Text3.Text
urok = Text4.Text
If Text8.Text = "" Then
sum_ = 1
Else
sum_ = Text8.Text - 1
End If
Form2.Show
Form2.TreeView1.ImageList = Form2.ImageList1
'заполняем узлы "класс" в форме 2
For i = 1 To sum_
If i = 1 Then
Form2.TreeView1.Nodes.Add , , klass, klass, 1
Else
End If
Adodc1.Recordset.MoveNext
If klass = Text1.Text Then
Else
klass = Text1.Text
Form2.TreeView1.Nodes.Add , , klass, klass, 1
End If
Next i

Adodc1.Recordset.MoveFirst
klass = Text1.Text

'заполняем узлы "предметы"
For i = 1 To sum_
On Error Resume Next
If i = 1 Then
Form2.TreeView1.Nodes.Add klass, tvwChild, klass & predmet, predmet, 2
Form2.TreeView1.Nodes.Item(klass).Expand ed = True
Else
End If
Adodc1.Recordset.MoveNext
If klass = Text1.Text And predmet = Text2.Text Then
Else
klass = Text1.Text
predmet = Text2.Text
Form2.TreeView1.Nodes.Add klass, tvwChild, klass & predmet, predmet, 2
Form2.TreeView1.Nodes.Item(klass).Expand ed = True
End If
Next i

...и так далее
И еще, может кто то знает, как выполнить привязку свойства Text у тексбокса к данным, которые в нем отображаются из базы данных, к которой программа подключена посредством DAO, т.е. если использовать ADO, то такое получается автоматически, и свойство text такое же, какое в текущей записи в базе, а с DAO значение text остается равным например Text1?

0

насколько я помню (давно этт было) в Визуал Васике есть программа для создания дистрибутива. Так вот если создать дистрибутив Вашей программы с помощью программы для создания дистрибутива, то с созданным дистрибутивом Вашей программы проблем с запуском (после инсталляции) на других компьютерах не будет.

0

После ее использования создается сильно кривой дистрибутив, который я не можу толком не на одном компе поставить... нашел одну одну причину, буду исправлять и пробовать)

Добавлено через 6 часов 19 минут 2 секунды
проблема решена. Использовал Package & Deployment Wizard, но при установке вылетает ошибка. Лечится так:

...нужно переписать setup1.exe - именно этот файл и использует setup.lst. Исходные тексты setup1.exe поставляются вместе с Visual Basic и находятся в папке \VB98\Wizards\PDWizard\Setup1\ Сделайте следующее: - Запустите Microsoft Visual Basic 6.0 - Откройте проект Setup1.vbp (в папке \VB98\Wizards\PDWizard\Setup1\ ) - Откройте для редактирования модуль basSetup1 (файл setup1.bas) - Внесите изменения в функцию ParseDateTime() Вот как она выглядит: Function ParseDateTime(ByVal strDateTime As String) As Date Dim Var As Variant Var = strDateTime If 0 = VariantChangeTypeEx(VarPtr(Var), VarPtr(Var), &H409, 0, vbDate) Then ParseDateTime = Var Else 'Raise same error as CDate Err.Raise 13 End If End Function Используемую здесь API функцию VariantChangeTypeEx() надо заменить на функциюCDate, которая используется для приведения строки в тип Date. Перепишите функцию ParseDateTime() в виде: Function ParseDateTime(ByVal strDateTime As String) As Date ParseDateTime=CDate(strDateTime) End Function Получилось короче и эффективнее. Теперь заново скомпилируйте проект Setup1.vbp и получившийся Setup1.exe перепишите в папку \Wizards\PDWizard\,заменив старый файл. Все! Можете смело использовать Package & Deployment Wizard для создания дистрибутива на Вашем руссифицированном компьютере.

0