Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript / 7 сообщений из 7, страница 1 из 1
18.03.2020, 11:23
    #39938617
mr.greenXX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript
Есть скрипты VBScript для работы с Базой на Access, на ноут буке все шикарно работает: запускаю скрипт он отрабатывает внутренние скрипты и выдает отчет.
При установке на другой бук скрипт ругается - см принт скрин
Подскажите в чем косяк?
...
Рейтинг: 0 / 0
18.03.2020, 18:01
    #39938854
Focha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript
mr.greenXX
Есть скрипты VBScript для работы с Базой на Access, на ноут буке все шикарно работает: запускаю скрипт он отрабатывает внутренние скрипты и выдает отчет.
При установке на другой бук скрипт ругается - см принт скрин
Подскажите в чем косяк?

А можно код и в какой строке ошибка
...
Рейтинг: 0 / 0
18.03.2020, 20:05
    #39938893
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript
mr.greenXX,

вроде все понятно - на ПК нет возможности обратиться через CreateObject к некоему CT, который используется скриптом.
...
Рейтинг: 0 / 0
23.03.2020, 11:33
    #39940209
mr.greenXX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript
The_Prist, я разобрался там - запустил от админа.
Но дальше следующих затык, в скрипте есть под скрипты которые ни как не хотят запускаться.
Ввел контрольные строчки для поиска, не могу понять что не хватает ему??? Подскажите
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

app.PutInfo 0, "TestPoint_5"
job.SetAttributeValue "Наименование изделия", answ(1)

app.PutInfo 0, "TestPoint_6"
Ramka

app.PutInfo 0, "TestPoint_7"
Include ("OutFont.vbs")

app.PutInfo 0, "TestPoint_8"
Include ("visayk1.vbs") ' скрипт проверяет наличие перемычек, не подключенных с одного конца

app.PutInfo 0, "TestPoint_9"
If answ(11) Then Include ("get_all_dev.vbs") ' скрипт проверяет приборы с одинаковым позиционным обозначением

app.PutInfo 0, "TestPoint_10"
If answ(11) Then Include ("Поиск 2х.vbs")

app.PutInfo 0, "TestPoint_11"
If answ(11) Then Include ("t_prov.vbs")

app.PutInfo 0, "TestPoint_12"
If answ(12) Then Include ("t_podkl.vbs")

app.PutInfo 0, "TestPoint_13"
If answ(13) Then Include ("t_klemm.vbs")

app.PutInfo 0, "TestPoint_14"
...
Рейтинг: 0 / 0
25.03.2020, 14:39
    #39941011
mr.greenXX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript
Focha,указал ошибки и код, очень признателен за помощь
...
Рейтинг: 0 / 0
30.03.2020, 16:37
    #39942294
Focha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript
mr.greenXX
Focha,указал ошибки и код, очень признателен за помощь

то есть я помог?
...
Рейтинг: 0 / 0
01.04.2020, 14:17
    #39942849
mr.greenXX
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBScript
Focha,неа )) я сам дошел по этому вопросу.
Сейчас там другая проблема образовалась, из скрипта не получается вызвать запуск EXCEL
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBScript / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]