Легкие вещи, на самом деле. Сначала вам нужно определить соединение и набор записей, которые вы будете использовать:
Set AdCn = CreateObject("ADODB.Connection")
Set AdRec = CreateObject("ADODB.Recordset")
После этого все о строке подключения:
connstr="Provider=SQLOLEDB.1;Data Source=" & server & ";Initial Catalog=" & database & ";user id = '" & uid & "';password='" & pwd & "'"
Строка состоит из нескольких частей:
Поставщик: тип устанавливаемого соединения, в данном случае SQL Server.
Источник данных: сервер, к которому вы подключаетесь.
Исходный каталог: имя базы данных.
идентификатор пользователя: ваше имя пользователя.
пароль: ваш пароль. ;)
Обратите внимание: если вы хотите использовать свои учетные данные для входа в Windows и запускаете скрипт локально, вы можете заменить следующие поля для имени пользователя и пароля:
Integrated Security=SSPI
Конечно, это не сработает, если вы используете свой скрипт на веб-сайте, поэтому вам придется явно использовать имя пользователя и пароль. Затем вы просто открываете набор записей, передаете SQL-запрос и записываете возвращенные данные в виде массива.
SQL="Select @@version as name"
AdRec.Open SQL, AdCn,1,1
queryReturn=Adrec("name")
Просто помните, что данные возвращаются в виде массива (часто двумерного, где результаты, которые вы хотите, на самом деле находятся во втором измерении массива!) И что вам может понадобиться либо Trim, чтобы убрать пробелы в конце результатов или проанализируйте результаты с помощью строковых функций, таких как Left. Лично я всегда обрезаю результат (), присваивая его переменной, так как я был укушен скрытыми пробелами больше раз, чем могу сосчитать.