Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Проблема с присваиванием. Добавлено: 17.04.06 12:47  

Автор вопроса:  Djmun | ICQ: 4401990 
Здравствуйте, у меня возникла проблема следующего характера:
Есть программе которая работает с базой на MS Access. Есть функция, которая присваивает меткам DataSource и DataField. И всё работает на компьютере где установлен VB6, но как только я запускаю скомпилированною екзешку на другой машине, и доходит до момента вызова этой функции, вылетает ошибка:
«Run-time error `713`
Class not registered
Looking for object with CLSID: {59245250-7A2F-11D0-9482-00A0C91110ED}»
Кто может, подскажите, пожалуйста в чем проблема, и как ёё решить?
Буду очень благодарен за помощь!
 

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 Djmun



ICQ: 4401990 

Вопросов: 16
Ответов: 33
 Профиль | | #1 Добавлено: 17.04.06 15:48
Вот фрагмент кода, если ето поможет розобратся!

Private Sub View_Click()
ast = ast + 1
If ast Mod 2 = 1 Then
view_st.Visible = True
Call filds
Else
view_st.Visible = False
End If
End Sub

а вот сама функция

Public Function filds()
    Set lname.DataSource = AdoMain
    lname.DataField = "last_name"
    Set fname.DataSource = AdoMain
    fname.DataField = "first_name"
    Set mname.DataSource = AdoMain
    mname.DataField = "middle_name"
    Set grup.DataSource = AdoMain
    grup.DataField = "Grup"
    Set lkyrs.DataSource = AdoMain
    lkyrs.DataField = "Kyrs"
    Set numb_stud.DataSource = AdoMain
    numb_stud.DataField = "number_stud"
    Set numb_zalik.DataSource = AdoMain
    numb_zalik.DataField = "number_zalik"
    Set address.DataSource = AdoMain
    address.DataField = "Address"
    Set telefon.DataSource = AdoMain
    telefon.DataField = "Telephone"
    Set mobile.DataSource = AdoMain
    mobile.DataField = "Mobile_telephone"
    Set lidstud.DataSource = AdoMain
    lidstud.DataField = "id_stud"
    Set lphotopath.DataSource = AdoMain
    lphotopath.DataField = "Photo"
    Set email.DataSource = AdoMain
    email.DataField = "e_mail"
End Function

Ответить

Номер ответа: 2
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #2 Добавлено: 17.04.06 19:55
есстно, класс не зарегестрирован на другом компе, идём у себя в реестр, ищем {59245250-7A2F-11D0-9482-00A0C91110ED} где-то во вложенных можно найти путь к этому класу... вот его и нужно с собой таскать, т.е. копировать вместе с прогой на другой компьютер. При этом там его ещё зарегестрировать надо... можно

cmd> regsvr32 <путь/имя файла того класса>

cmd - Console Must Die :)

Ответить

Номер ответа: 3
Автор ответа:
 Djmun



ICQ: 4401990 

Вопросов: 16
Ответов: 33
 Профиль | | #3 Добавлено: 17.04.06 21:37
2HACKER
Огромное спасибо тебе за подсказку!
Если тебе не трудно, напиши подробнее по очередность действий (более подробно), что б я смог запустить прогу и на других компах.
Наперед огромное спасибо!

Ответить

Номер ответа: 4
Автор ответа:
 Djmun



ICQ: 4401990 

Вопросов: 16
Ответов: 33
 Профиль | | #4 Добавлено: 18.04.06 12:26
2HACKER
СПАСИБО!
Всьо работает!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам