Sever
Зарегистрирован: 09.11.2009
Сообщения: 6
Откуда: Екатеринбург, ФГУП "Уралгеоинформ"
|
 Добавлено: Пн 29 Мар 2010 16:06 Заголовок сообщения: Ошибка "Object doesn't support this property or method" |
 |
|
Доброе время суток.
Возникла проблема с приложением "инмета" ( версия 1.9.97.0 )
Пусть в некоторм классе есть код на vb-скрипте:
| Код: | Dim aDataService, aObject
Set aDataService = CreateObject("InMetaCR.InMetaDataServiceClient")
aDataService.ServerURL = InMeta.AppBaseURL
Set aObject = aDataService.GetObjectInfo(ClassName, anID, FieldName)
|
При вызове функции GetObjectInfo() возникает следующая ошибка:
| Цитата: |
---------------------------
Ошибка загрузки XML: <?xml version="1.0" encoding="windows-1251"?>
<error>
<number>438</number>
<source>Microsoft VBScript runtime error</source>
<description>Object doesn't support this property or method: 'XStrUtils.XStrUtils'</description>
<call-context-html>
<![CDATA[
<b>Запрос информации по объектам (QueryHandler - objects)</b>
<blockquote>
<b>Класс (class)</b>: General/LetterTheme<br>
<b>Свойства (properties)</b>: Code<br>
<b>Представление (view)</b>: {{null}}<br>
<b>Начать с (start)</b>: 1<br>
<b>Количество (count)</b>: -1<br>
<b>Сортировать по (order-by)</b>:
</blockquote>
<b>Представление объекта</b>:
<blockquote>
<pre><font color=red>
<b>Не найдено представление объекта: "{{null}}"</b>
</font></pre>
</blockquote>
<b>Текст программы</b>:
<blockquote><pre>
function GetSQLCountText(ByVal sSQLSourceText)
dim i, s
s = sSQLSourceText
i = InStr(UCase(s), "ORDER BY")
If i > 0 Then
s = Mid(s, 1, i - 1)
GetSQLCountText = "SELECT Count(DISTINCT [idProperty])
|
Аналогичные ошибки возникают везде, где встречается функция "GetObjectInfo" ( в том числе и в формах поиска ).
Примечательно, что на другой машине, где установлено то же самое приложение, аналогичных ошибок не возникает. Все файлы полностью совпадают.
Структура баз даных - тоже. В порядке эксперимента пробовали подключать экземпляры приложения к БД с другой машины, но результата это не дало - изменений в работе приложений не произошло
Подскажите, в чем может быть причина, и как это можно исправить ( желательно, не переустанавливая приложение )
Заранее спасибо |
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
