Листинг 3

Объект Connection в ADO заменяет объекты Database и DBEngine из DAO. Например, можно вернуть набор записей, создав функцию «заворачивания», которая может вызываться из любого клиента или любого раздела кода. Объект Command в данном примере вызывает хранимую процедуру, но вы можете изменить ее для своих конкретных целей.

VB5, VB6

Function RetrieveRecordSet() As ADODB.Recordset 
   Dim rsset As ADODB.Recordset
   Dim cn As ADODB.Connection
   Dim connectstring As String
   Dim anerror As ADODB.Error
   Dim Sql As String
   Dim cmdStoredProc As New ADODB.Command
   ‘
   cmdStoredProc.Prepared = False
   cmdStoredProc.CommandText = “getauthorinfo”
   cmdStoredProc.CommandType = adCmdStoredProc
   connectstring = “Driver=SQL “ & _
“Server;Server=FASDEVSPHINX;Database=pubs;UID=sa;”
   ‘
   Set cn = New ADODB.Connection
   cn.ConnectionString = connectstring
   cn.CursorLocation = adUseClient
   cn.Open
   ‘
   Set cmdStoredProc.ActiveConnection = cn
   Set rsset = cmdStoredProc.Execute
   Set RetrieveRecordSet = rsset
End Function