Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / использование ADODB в Excell-e / 2 сообщений из 2, страница 1 из 1
27.02.2004, 12:30
    #32424017
grinya
grinya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
использование ADODB в Excell-e
видел здесь несколько примеров по подключению к MSSQL из Excell-я, но свой почему то не хочет запускаться (идет ругань на объявление ADODB.Connection - "User-defined type not defined"). С принципами работы VBA в Екселе я практически не знаком, так что подскажите, плиз, где чего я не правильно объявил:

В описании Листа, на котором стоит кнопка, у меня следующее:
Код: plaintext
1.
2.
Private Sub CommandButton1_Click()
    Call МакросИмпорта
End Sub


В модуле1 - описание Макроса
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub МакросИмпорта()
Dim Cnn As ADODB.Connection
Dim Cmd As ADODB.Command
Dim Prm As ADODB.Parameter

Set Cnn = New ADODB.Connection
Cnn.Open  "File Name="  & App.Path &  "\filtr.udl" 
Cmd.ActiveConnection = Cnn
Cmd.CommandText =  "dbo.uspw_ImportBills" 
Cmd.CommandType = adCmdStoredProc
Set Prm = Cmd.CreateParameter( "@Cod" , adInteger, adParamInput, ,  12345 )
Cmd.Parameters.Append Prm
Cmd.Execute
Set Prm = Nothing
Set Cmd = Nothing
Set Cnn = Nothing
End Sub


В Tools->Preferences активны все теже библитеки, что и в adp-проекте на Accesse, работающим с MSSQL через ADO; Файл filtr.udl нормально настроился и тест соединения работает.

З.Ы. Пробовал по разному объявлять ADODB.Connection, переносить объявления из макроса в лист, переносить всю логику в Sub CommandButton1_Click(), что-то все не то...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.02.2004, 13:18
    #32424147
grinya
grinya
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
использование ADODB в Excell-e
Извиняюсь, затупил. Все таки не поставил в Preferences
- MS ActiveX DataObject2.1 Library для АДО.
Вопрос снят.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / использование ADODB в Excell-e / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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