Не могу соединиться с базой данных средствами Excel VBA
[SIZE=3]
В хелпе по VBA вычитал
[COLOR=green]
Dim cnnConn As ADODB.Connection
Set cnnConn = CreateObject("ADODB.Connection")
With cnnConn
.ConnectionString = _
"ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;
Database=96Sales"
.Open ...
End With
[/COLOR]
1. При дебаге ругается на 1-ю строку, что пользовательский тип не определен
2. Какой параметр в строке ConnectionString за что отвечает и где это взять?
3. Может кто даст линков на мою тему, ну очень надо.
Большое всем спасибо.
Алексей
[/SIZE]
В хелпе по VBA вычитал
[COLOR=green]
Dim cnnConn As ADODB.Connection
Set cnnConn = CreateObject("ADODB.Connection")
With cnnConn
.ConnectionString = _
"ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;
Database=96Sales"
.Open ...
End With
[/COLOR]
1. При дебаге ругается на 1-ю строку, что пользовательский тип не определен
2. Какой параметр в строке ConnectionString за что отвечает и где это взять?
3. Может кто даст линков на мою тему, ну очень надо.
Большое всем спасибо.
Алексей
[/SIZE]
Цитата:
Originally posted by free_lexx
В хелпе по VBA вычитал
[COLOR=green]
Dim cnnConn As ADODB.Connection
Set cnnConn = CreateObject("ADODB.Connection")
With cnnConn
.ConnectionString = _
"ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;
Database=96Sales"
.Open ...
End With
[/COLOR]
1. При дебаге ругается на 1-ю строку, что пользовательский тип не определен
2. Какой параметр в строке ConnectionString за что отвечает и где это взять?
3. Может кто даст линков на мою тему, ну очень надо.
Большое всем спасибо.
Алексей
В хелпе по VBA вычитал
[COLOR=green]
Dim cnnConn As ADODB.Connection
Set cnnConn = CreateObject("ADODB.Connection")
With cnnConn
.ConnectionString = _
"ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;
Database=96Sales"
.Open ...
End With
[/COLOR]
1. При дебаге ругается на 1-ю строку, что пользовательский тип не определен
2. Какой параметр в строке ConnectionString за что отвечает и где это взять?
3. Может кто даст линков на мою тему, ну очень надо.
Большое всем спасибо.
Алексей
[SIZE=4]А что тебе конкретно надо сделать?[/SIZE]
Цитата:
1. При дебаге ругается на 1-ю строку, что пользовательский тип не определен
Надо в Tools/References добавить ссылку на библиотеку по ADO, например: Microsoft ActiveX Data Objects 2.5 Library
Цитата:
Originally posted by free_lexx
[SIZE=3]
В хелпе по VBA вычитал
[COLOR=green]
Dim cnnConn As ADODB.Connection
Set cnnConn = CreateObject("ADODB.Connection")
With cnnConn
.ConnectionString = _
"ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;
Database=96Sales"
.Open ...
End With
[/COLOR]
1. При дебаге ругается на 1-ю строку, что пользовательский тип не определен
2. Какой параметр в строке ConnectionString за что отвечает и где это взять?
3. Может кто даст линков на мою тему, ну очень надо.
Большое всем спасибо.
Алексей
[/SIZE]
[SIZE=3]
В хелпе по VBA вычитал
[COLOR=green]
Dim cnnConn As ADODB.Connection
Set cnnConn = CreateObject("ADODB.Connection")
With cnnConn
.ConnectionString = _
"ODBC;DSN=96SalesData;UID=Rep21;PWD=NUyHwYQI;
Database=96Sales"
.Open ...
End With
[/COLOR]
1. При дебаге ругается на 1-ю строку, что пользовательский тип не определен
2. Какой параметр в строке ConnectionString за что отвечает и где это взять?
3. Может кто даст линков на мою тему, ну очень надо.
Большое всем спасибо.
Алексей
[/SIZE]
Надо подключить библиотеку
Microsoft ActiveX Data Objects (версия поновее)
в ссылках TOOLS->References