Запросы / ADO

Строки подключения ADO к базам данных

Декларирование адо - подключения
Dim MYCon As New ADODB.Connection

Если у вас эта строка вызывает ошибку при компиляции - добавьте в Ссылки - референсы на библиотеку : MS ADO 2.X (Microsoft Activex Data Objects 2.8 Library)
Рекомендуется устанавливать самые свежие версии библиотек.

Если нужно создать новое подключение к базе данных к которой уже подключен ADP - проект:
MYCon.Open CurrentProject.Connection.ConnectionString

Если подключение осуществляется к другой базе данных но на этом же сервере и под теми же именем и паролем - можно обойтись без создания нового подключения. Для этого следует использовать префиксы

обычный синтаксис запроса:
Select * from TABLE

С указанием владельца / схемы:
Select * from Dbo.TABLE

С указанием другой базы на сервере:
Select * from AnotgherBaseName.Dbo.TABLE

С указанием другого сервера
Select * from AnotgherServerName.AnotgherBaseName.Dbo.TABLE

Прим.: по результатам наблюдений запросы с указанием базы данных или сервера запускаются с более низким приоритетом (дольше выполняются но затрачивают меньше ресурсов в единицу времени)

Если нужно подключиться под другим именем или с использованием специфического драйвера: MYCon.Open Строка_Подключения_Из_Нижеизложенных_примеров

Примеры строк подключения:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=<MY_filename.mdb>" ' MS Access 2000 c указанием локального пути
"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=<MY_filename.mdb>" ' MS Access
"Provider=SQLOLEDB;Data Source=<SERVER_NAME>;database=<DB_NAME>;uid=<UID>;pwd=<PWD>;" ' MS SQL Server (OLEDB connection)
"driver={SQL Server};server=<SERVER_NAME>;uid=<UID>;pwd=<PWD>;database=<DATABASE_NAME>" ' MS SQL erver 6.x/7.x/2000 (ODBC connection)
"driver=MySQL;server=<SERVER_IP>;uid=<UID>;pwd=<PWD>;database=<DB_NAME>" 'MySQL "<DSN_NAME>" ' DSN -подключение
(заходите в панель управления, источники данных, создаете файловый DSN , настраиваете, сохраняете )
Подключение, с использованием двух драйверов DATASHAPE + OLEDB

ADOConnection.ConnectionString = "Provider=MSDataShape;Data Provider=SQLOLEDB.1;Data Source= <SERVER_NAME>;User ID=<USER_NAME>;Password=<PASSWORD>;Initial Catalog=<BASE_NAME>"
ADOConnection.Open
Строка для доверенного соединения (Работает если сервер использует смешанную схему авторизации,
доступ осуществляется по имени пользователя и паролю под которым пользователь зарегистрирован в домене)

"PROVIDER=SQLOLEDB.1;INITIAL CATALOG=<BASE_NAME> ;DATA SOURCE=<SERVER_NAME>;Trusted_Connection=Yes" ' MS SQL Server
строка для ASP - скрипта:
(еще раз напоминаю что ASP - Active Server Pages - скрипт для получения содержимого интернет - страницы )
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("</FolderName/MY_filename.mdb> ") ' MS Access 2000 c относительным путем

Более подробно о провайдерах данных и строках подключения можно почитать здесь (English)

ASP - пример открытия ОБНОВЛЯЕМОГО рекордсета:
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\<BRINKSTER_USER>\db\<DATABASE_NAME.mdb>"))
sSQL = "<select * from my_table>"
Set oRS = Server.CreateObject("ADODB.Recordset") 'Открытие обновляемого рекордсета (цифровые параметры означают: Динамический , с Оптимистической блокировкой)
oRS.Open
sSQL , oConn ,3,2,1

<ТЕКСТ В ТАКИХ СКОБКАХ> следует заменить на соответствующие параметры подключения

Создание строки коннекта с помощью udl

Способ предельно прост.