• Lazik
  • Участник
  • Неактивен
  • На форуме с 8 апреля 2008
  • Сообщений: 24

Re: Использование библиотеки скриптов

Здравствуйте уважаемые разработчики.
В библиотеке макросов CSDN_DESEAN_Library есть процедура
ExportToAccess() , не могли бы вы подсказать почему при экспорте
одних объектов (например Mesuriments)  все происходит нормально, а при экспорте других (например PlantDepartments) происходит ошибка : «Ошибка синтаксиса при определении поля ».

  • На форуме с 1 октября 2003
  • Сообщений: 501

Re: Использование библиотеки скриптов

В окне справочника Скриптовых модулей есть макрос Проверка выгрузки справочников, который демонстрирует работу этого модуля.
Или Вы использовали вызов процедуры из своего макроса?










PS. Было бы неплохо, если бы Вы заполнили в графе "Откуда" вашего профиля наименование своего предприятия. Спасибо.

  • Lazik
  • Участник
  • Неактивен
  • На форуме с 8 апреля 2008
  • Сообщений: 24

Re: Использование библиотеки скриптов

Использую вызов процедуры из своего макроса.

  • На форуме с 1 октября 2003
  • Сообщений: 501

Re: Использование библиотеки скриптов

Значит в нем и проблема?

  • Lazik
  • Участник
  • Неактивен
  • На форуме с 8 апреля 2008
  • Сообщений: 24

Re: Использование библиотеки скриптов

Да, тогда в отладчике почему он выдаёт теже ошибки?
Кстати,при запуске макроса "Проверка выгрузки справочников" происходит тоже ошибка,без разници какой справочник экспортировать.

  • Lazik
  • Участник
  • Неактивен
  • На форуме с 8 апреля 2008
  • Сообщений: 24

Re: Использование библиотеки скриптов

Здравствуйте уважаемые разработчики.
Проанализировав в отладчике процедуру ExportToAccess() библиотеки CSDN_DESEAN_Library
при  экспорте объекта “Users” можно увидеть следующее:

переменная  sHeader получает следующие значение :  "Пользователь,Уволен,Комментарий,Имя,Отчество,Фамилия,,Телефон,E-mail,Адрес,Идентификатор роли,Имя роли".   

переменная  sHeaders :
"Пользователь VARCHAR(255),Уволен VARCHAR(255),Комментарий VARCHAR(255),Имя VARCHAR(255),Отчество VARCHAR(255),Фамилия VARCHAR(255), VARCHAR(255),Телефон VARCHAR(255),E-mail VARCHAR(255),Адрес VARCHAR(255),Идентификатор роли VARCHAR(255),Имя роли VARCHAR(255)"

Следуя отсюда нижеуказанный кусок кода выдаёт ошибку синтаксиса при создании поля, потому что не может создать пустое поле с типом VARCHAR(255).

'создаем таблицу
    ADODB.Execute "CREATE TABLE " & sTableName & " (" & sHeaders & ")"
    If Err.Number <> 0 Then Call MsgBox (Err.Description, vbCritical,"Экспорт") : ADODB.Close : Exit Sub

В других же случаях это же ошибка происходит когда в начале поля есть символы «№»

  • На форуме с 1 октября 2003
  • Сообщений: 501

Re: Использование библиотеки скриптов

Сергей Девятериков писал(а):
PS. Было бы неплохо, если бы Вы заполнили в графе "Откуда" вашего профиля наименование своего предприятия. Спасибо.

  • Lazik
  • Участник
  • Неактивен
  • На форуме с 8 апреля 2008
  • Сообщений: 24

Re: Использование библиотеки скриптов

Вся информация заполнялась на этапе рнгистрации учётной записи.
Где и что надо указать ещё?

  • На форуме с 1 октября 2003
  • Сообщений: 501

Re: Использование библиотеки скриптов

системе Access не нравятся имена колонок с пробелами и тире, поэтому я модифицировал цикл создания списка колонок:

    'создаем шапку будущей таблицы экспорта
    For I = 1 To TCSModule.PropertiesCount - 1
        If Not TCSModule.Properties(I).PropType = ptModule Then
            HeaderCaption = TCSModule.Properties(I).Caption
            If Trim(HeaderCaption) = "" Then HeaderCaption = "Header" & Cstr(i)
            HeaderCaption = Replace( HeaderCaption, " ", "_" )
            HeaderCaption = Replace( HeaderCaption, "-", "_" )
            sHeaders = sHeaders & HeaderCaption  & " VARCHAR(255),"
            sHeader = sHeader & HeaderCaption & ","
            End If
        Next           
    sHeaders = left(sHeaders,len(sHeaders)-1)
    sHeader = left(sHeader,len(sHeader)-1)