| Вопрос: ADODB | Добавлено: 24.07.09 16:15 |
Автор вопроса:  Tegg2009
|
|
Всем привет.
Всплывает вот эта ошибка object variable or With block variable not set в этом месте cn.Open "Provider=microsoft.jet.oledb.4.0;datasource=c:\vb\se.mdb;persist security info=false" Подскажите ошибку плз.! Спасибо Dim cmd As ADODB.Command Dim cn As ADODB.Connection Dim SQL as String Set cn = New ADODB.Connection ' Это пример как открыть соединение с локальным MS SQL Server ' и присоеденится к БД Northwind, используя Windows Authentication ' Строку соединения можно посмотреть на http://connectionstrings.com/ cn.Open "Provider=microsoft.jet.oledb.4.0;datasource=c:\vb\se.mdb;persist security info=false" Set cmd = New ADODB.Command Set cmd.ActiveConnection = CN 'открытый объект ADODB.Connection cmd.CommandTimeout = 20 cmd.CommandType = adCmdText '************************************** SQL = "" SQL = SQL & "INSERT " SQL = SQL & "INTO ADD " SQL = SQL & " ( " SQL = SQL & " fild1 " SQL = SQL & " ) " SQL = SQL & "SELECT DISTINCT centre " SQL = SQL & "FROM FIRST " SQL = SQL & " INNER JOIN second " SQL = SQL & " ON first.centre=second.centre_2" cmd.CommandText = SQL cmd.Execute '******************************************* Set cmd = Nothingcn.Close Set cn = Nothing |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #1 | Добавлено: 24.07.09 18:43 |
|
Dim cmd As New ADODB.Command
Dim cn As New ADODB.Connection |
||
|
Номер ответа: 2 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #2 | Добавлено: 24.07.09 18:46 |
| И в референсах библиотека адо должна быть подключена. | ||
Страница: 1 |