Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: 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
Автор ответа:
 Smith



ICQ: adamis@list.ru 

Вопросов: 153
Ответов: 3632
 Профиль | | #2 Добавлено: 24.07.09 18:46
И в референсах библиотека адо должна быть подключена.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам