![]() |
#3 |
Участник
|
текст макроса
Private Sub CommandButton1_Click() Dim ax As AxaptaCOMConnector.Axapta2 On Error GoTo er1 Set ax = New AxaptaCOMConnector.Axapta2 ax.Logon2 "логин", "пароль", "", "", "", "", "Путь к файлу клиенту, который находится на моем компьютере" ax.Logoff Set ax = Nothing On Error GoTo 0 Exit Sub er1: MsgBox ("Ошибка № " & Err.Number & " " & Err.Description) ax.Logoff Set ax = Nothing Exit Sub On Error Resume Next Resume End Sub текст первого сообщения Ошибка №-2147467259 Не хватает лицензионных прав: Запустить Microsoft Axapta Невозможно, поскольку к системе подключено больше пользователей, чем дозволено лицензионными правами. Перед поключениемперезапустите Microsoft Axapta Business Connector. Вторая ошибка (повторяется после первой ошибки) Ошибка № -2147467259 Ошибка SQL: Операцией SQL сгенерировано сообщение о следующих ошибках: [Microsoft][Диспетчер драйверовODBC] связь используется. Connect information Was: Usering = [sa], Database = [axdb], Server = [aos2],dsn =[ ], Other = [ ] Коментарий: пользователь и каталог во второй ошибке, почему то указывается неверно. |
|