Не удается запустить прогу на другом компе

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
#set
Новичок
Новичок
 
Сообщения: 45
Зарегистрирован: 05.10.2006 (Чт) 11:06

Не удается запустить прогу на другом компе

Сообщение #set » 14.11.2006 (Вт) 12:03

System Error &H8007007E (-2147024770). Hе найден указанный модуль

Что делать с этой ошибкой?
Все dll вроде есть.

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 14.11.2006 (Вт) 12:42

Значит, зарегистрированы неверно.

#set
Новичок
Новичок
 
Сообщения: 45
Зарегистрирован: 05.10.2006 (Чт) 11:06

Сообщение #set » 14.11.2006 (Вт) 12:47

RayShade писал(а):Значит, зарегистрированы неверно.


Как понять неверно?

Как понять какая именно "неверно" зарегистрирована?

lister
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 389
Зарегистрирован: 15.01.2005 (Сб) 7:34
Откуда: Страна оления

Сообщение lister » 14.11.2006 (Вт) 13:27

Как вариант, снять регистрацию со всех dll и зарегистировать снова.

#set
Новичок
Новичок
 
Сообщения: 45
Зарегистрирован: 05.10.2006 (Чт) 11:06

Сообщение #set » 16.11.2006 (Чт) 2:33

Опять столкунлся с проблемой
Поставил vs2005net
Пришлось переделать всю прогу.
Думал после установки фреймворка на другом компе проблем не будет.
И опять немогу запустить прогу:(((
Не знаю как проверять на чем она затыкается - выяснял методом msgbox ... в итоге нашел строку где прога обращается к методу класса. На этом месте пишет "Обнаружена ошибка - приложение будет закрыто" и в коментариях вот такую хрень:
Код: Выделить всё
EventType clr20r3, P1 project1.exe, P2 1.0.2326.41468, P3 4468e276, P4 project1, P5 1.0.2326.41468, P6 4468e276, P7 44, P8 1ed, P9 system.io.filenotfoundexception, P10 NIL.


Создал пустой метод этого же класса - к нему обращается без проблем. А на этом вылетает:

Код: Выделить всё
    Public Sub DoReceptionTable(ByVal table As Short)
        Dim s As String
        Dim a, n, fld As Short
        Dim rtype As String
        Dim cn As New ADODB.Connection
        Dim resData As New ADODB.Recordset
        Dim resData2 As New ADODB.Recordset
        Dim tCard As String
        Dim nCard As String
        Dim wd As Boolean
        nCard = ""
        rtype = 0
        Select Case table
            Case Is = 1
                rtype = "r1"
                fld = 4
            Case Is = 2
                rtype = "r2"
                fld = 5
            Case Is = 3
                rtype = "r3"
                fld = 6
        End Select
        cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northerner;Data Source=" & GetServerName.ServerName()
        cn.Open()
        With resData
            .let_ActiveConnection(cn)
            If nCard = "" Then
                .Open("SELECT * FROM _Tickets WHERE IsPrint=0 and " & rtype & "<>0")
            End If
            .MoveFirst()
            n = 1
            While Not .EOF
                tCard = "000000" + .Fields(2).Value
                resData2.let_ActiveConnection(cn)
                resData2.Open("SELECT * FROM clients WHERE Card=" & tCard)
                For a = 0 To Form1.ArrPerCounter
                    If Arrays.PersonArray(a, 0) = .Fields(1).Value Then
                        Arrays.PersonArray(a, 3) = Arrays.PersonArray(a, 3) + .Fields(fld).Value
                        wd = True
                        Exit For
                    End If
                Next a
                If wd = False Then
                    s = RTrim(resData2.Fields(2).Value) & " " & RTrim(resData2.Fields(3).Value) & " " & RTrim(resData2.Fields(4).Value)
                    Arrays.PersonArray(Form1.ArrPerCounter, 0) = .Fields(1).Value
                    Arrays.PersonArray(Form1.ArrPerCounter, 1) = .Fields(2).Value
                    Arrays.PersonArray(Form1.ArrPerCounter, 2) = LTrim(s)
                    Arrays.PersonArray(Form1.ArrPerCounter, 3) = .Fields(fld).Value
                    Form1.ArrPerCounter = Form1.ArrPerCounter + 1
                End If
                wd = False
                .MoveNext()
                n = n + 1
                resData2.Close()
            End While
            cn.Close()
        End With
    End Sub


Подскажиет что не так? На моем компе все отлично пашет!

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 16.11.2006 (Чт) 8:11

на какой строке ошщибка то?
с другой стороны system.io.filenotfoundexception навевет мысли об отсутствии некоего файла, ищи в этом направлении
Весь мир матрица, а мы в нем потоки байтов!

#set
Новичок
Новичок
 
Сообщения: 45
Зарегистрирован: 05.10.2006 (Чт) 11:06

Сообщение #set » 16.11.2006 (Чт) 9:11

Дык я думал об этом... Но зацепки не нашел. Мож что подскажите.

#set
Новичок
Новичок
 
Сообщения: 45
Зарегистрирован: 05.10.2006 (Чт) 11:06

Сообщение #set » 16.11.2006 (Чт) 15:56

Нашел в чем проблема.
Если кому то интересно:

Все дело было в ADO
Переработал метод бля работы с ADO.NET и все поехало.
Единственное придется быстро осваивать а сроки горят.

Но одно для меня осталось загадкой - почему прога запускалась на моем компе и компилятор даже слово не мяукнул по поводу ADO - типо переделайте на ADO.net или смотри типо сюда. Я же мог недельку писать и не думать о том что вся писанина зря...
Вообщем этим я недоволен. :(

Кто интересуется - основные методы ADO.net
http://www.vbnet.ru/articles/showarticle.aspx?id=109


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 122

    TopList