Работа с БД

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

Sub Main
Dim Result As Integer
DIM dp_id as Long ' переменная, которая будет содержать id БД, к которой мы подключились
Dim outputStr as String
Dim connection As Long
Dim retcode As long
Dim query as String
Dim znach(1 To 6, 1 To 6001) As Variant

connection = SQLOpen("DRIVER={SQL Server};SERVER=MyServer;DATABASE=myDB;UID=;PWD=;",outputStr,prompt:=3) ' подключаемся к серверу и БД
' MyServer - название сервера
' myDB - название базы данных
' UID - пользователь, для подключения к БД
' PWD - пароль, для подключения к БД

query = "SELECT * FROM my_Table" 'Создаем правило, которое будем выполнять на сервере.

retcode = SQLExecQuery(connection,query) ' Выполняем наше правило на сервере

retcode = SQLRetrieve(connection:=connection,destination:=znach, columnNames:=1,rowNumbers:=1,maxRows:=6000, maxColumns:=6,fetchFirst:=0) ' загрузим массив значений, который сформировался нашим предыдущим запросом, в переменную “znach”

' Далее работаете с массивом...

' Для более детальной информации, работы функций с БД, смотрим Help

retcode = SQLClose(connection) ' Закрываем подключение к БД
End Sub