Итак, соединение мы устанавливать научились. Теперь мы с Вами попробуем получить запись из таблицы в SQL Server. Для этого нам нужна переменная типа Recordset.

Dim record As Recordset

Set record = New Recordset

Вот так ее можно создать. Но объект Recordset нужно связать с активным соединением. Для этого кстати и соединение нужно создать.

Set adoConnect = New ADODB.Connection

Dim strConnect As String

strConnect = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=Servers"

adoConnect.Open strConnect, "sa", "123"

Dim record As Recordset

Set record = New Recordset

record.ActiveConnection = adoConnect

Вот теперь можно обращаться с SQL оператором к базе данных, чтобы получить записи.

record.Open "select * from piple"

MsgBox record.Fields(1)

Методов получения результата много. Я, например, использовал Fields, который по номеру позволяет вернуть содержимое записи. Если знать имя поля, то можно получить содержимое используя имя поля. Вот так.

MsgBox record!Name

Естественно по набору записей можно двигаться. Есть методы всякие типа MoveNext и MovePrevious, есть и способ определения начала и конца записей. Вот так, например, можно пройти по всем полученным записям.

While record.EOF <> True

MsgBox record!Name

record.MoveNext

Wend