Sub ClientServerX1()

	Dim dbsCurrent As Database
	Dim qdfPassThrough As QueryDef
	Dim qdfLocal As QueryDef
	Dim rstTopFive As Recordset
	Dim strMessage As String

	' Открывает базу данных, для которой будут 
	' созданы объекты QueryDef.
	Set dbsCurrent = OpenDatabase( "DB1.mdb" )

	' Создает запрос к серверу для загрузки данных 
	' из базы данных Microsoft SQL Server.
	Set qdfPassThrough = _
		dbsCurrent.CreateQueryDef( "ВсеНазвания" )
	qdfPassThrough.Connect = _

 "ODBC;DATABASE=pubs;UID=sa;PWD=;DSN=Publishers" 
	qdfPassThrough.SQL =  "SELECT * FROM titles "  & _
		 "ORDER BY ytd_sales DESC" 
	qdfPassThrough.ReturnsRecords = True

	' Создает временный объект QueryDef для загрузки
	' данных из запроса к серверу.
	Set qdfLocal = dbsCurrent.CreateQueryDef( "")
	qdfLocal.SQL = " SELECT TOP  5  title FROM ВсеНазвания "

	Set rstTopFive = qdfLocal.OpenRecordset()

	' Отображает результаты запросов.
	With rstTopFive

strMessage = _
			"Первые 5 бестселлеров:" & vbCr

		Do While Not .EOF
			strMessage = strMessage & "    " & !Title & _
				vbCr
			.MoveNext
		Loop

		If .RecordCount > 5 Then
			strMessage = strMessage & _
				"(В списке " & _
				vbCr & .RecordCount & _
				" книг, так как несколько имеют одинаковые результаты)"
		End If

		MsgBox strMessage
		.Close
	End With

	' Удаляет новый запрос к серверу, созданный только для 

' демонстрации.
	dbsCurrent.QueryDefs.Delete " ВсеНазвания"
	dbsCurrent.Close

End Sub

Connection (ADO for Visual C++ Syntax)


Methods

BeginTrans(long *TransactionLevel)

CommitTrans(void)

RollbackTrans(void)

Cancel(void)

Close(void)

Execute(BSTR CommandText, VARIANT *RecordsAffected, long Options, 
            _ADORecordset **ppiRset)

Open(BSTR ConnectionString, BSTR UserID, BSTR Password, long Options)

OpenSchema(SchemaEnum Schema, VARIANT Restrictions, VARIANT SchemaID,
             _ADORecordset **pprset)

Properties

get_Attributes(long *plAttr)
put_Attributes(long lAttr)

get_CommandTimeout(LONG *plTimeout)
put_CommandTimeout(LONG lTimeout)

get_ConnectionString(BSTR *pbstr)
put_ConnectionString(BSTR bstr)

get_ConnectionTimeout(LONG *plTimeout)
put_ConnectionTimeout(LONG lTimeout)

get_CursorLocation(CursorLocationEnum *plCursorLoc)
put_CursorLocation(CursorLocationEnum lCursorLoc)

get_DefaultDatabase(BSTR *pbstr)
put_DefaultDatabase(BSTR bstr)

get_IsolationLevel(IsolationLevelEnum *Level)
put_IsolationLevel(IsolationLevelEnum Level)

get_Mode(ConnectModeEnum *plMode)
put_Mode(ConnectModeEnum lMode)

get_Provider(BSTR *pbstr)
put_Provider(BSTR Provider)

get_State(LONG *plObjState)

get_Version(BSTR *pbstr)

get_Errors(ADOErrors **ppvObject)

Events

BeginTransComplete(LONG TransactionLevel, ADOError *pError, 
                        EventStatusEnum *adStatus, _ADOConnection *pConnection)

CommitTransComplete(ADOError *pError, EventStatusEnum *adStatus, 
                        _ADOConnection *pConnection)

ConnectComplete(ADOError *pError, EventStatusEnum *adStatus, 
                    _ADOConnection *pConnection)

Disconnect(EventStatusEnum *adStatus, _ADOConnection *pConnection)

ExecuteComplete(LONG RecordsAffected, ADOError *pError, 
                    EventStatusEnum *adStatus, _ADOCommand *pCommand, 
                    _ADORecordset *pRecordset, _ADOConnection *pConnection)

InfoMessage(ADOError *pError, EventStatusEnum *adStatus, 
                _ADOConnection *pConnection)

RollbackTransComplete(ADOError *pError, EventStatusEnum *adStatus, 
                            _ADOConnection *pConnection)

WillConnect(BSTR *ConnectionString, BSTR *UserID, BSTR *Password, 
                    long *Options, EventStatusEnum *adStatus, 
                    _ADOConnection *pConnection)

WillExecute(BSTR *Source, CursorTypeEnum *CursorType, 
                    LockTypeEnum *LockType, long *Options, 
                    EventStatusEnum *adStatus, _ADOCommand *pCommand, 
                    _ADORecordset *pRecordset, _ADOConnection *pConnection)