ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / использование ADODB в Excell-e
2 сообщений из 2, страница 1 из 1
использование ADODB в Excell-e
    #32424017
Фотография grinya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grinya
Участник
видел здесь несколько примеров по подключению к 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, 12:30
| Ответить | Цитировать | Написать  
использование ADODB в Excell-e
    #32424147
Фотография grinya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
grinya
Участник
Извиняюсь, затупил. Все таки не поставил в Preferences
- MS ActiveX DataObject2.1 Library для АДО.
Вопрос снят.
...
Рейтинг: 0 / 0
27.02.2004, 13:18
| Ответить | Цитировать | Написать  
2 сообщений из 2, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / использование ADODB в Excell-e
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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