Select the product you need help with

�� - Microsoft SQL Server �- Microsoft Excel

��

�� Microsoft Excel �� Pubs, �� - Microsoft SQL Server.

ActiveX Data Objects ?(ADO) �� . �� . �� ADO ��:

   �������          �����
   -----------------------------------------------------------------------
   Connection      ������ ������ ����� �������.
   Recordset       ������ ������� ��������.
   Command         ������ ��������� ������� �� ������ SQL  
                   ����� �� ����.

�� Recordset �� ADO, �� Connection �- Recordset.

��

�� Microsoft SQL Server, �� Pubs.

Microsoft �� :

�� Visual Basic for Applications �� Office.
�� .
�� Excel.
�� Relational Database Management Systems ?(RDBMS).
�� SELECT �� Structured Query Language ?(SQL)

�� ADO

�� Excel. �� SQLExtract.xls.
�� Visual Basic Editor �� VBA �� .
�� �� , �� ��.
�� Microsoft ActiveX Data Objects Library .

��

�� .
�� DataExtract.

�� :

??
' Create a connection object.
Dim cnPubs As ADODB.Connection
Set cnPubs = New ADODB.Connection

' Provide the connection string.
Dim strConn As String

'Use the SQL Server OLE DB Provider.
strConn = "PROVIDER=SQLOLEDB;"

'Connect to the Pubs database on the local server.
strConn = strConn & "DATA SOURCE=(local);INITIAL CATALOG=pubs;"

'Use an integrated login.
strConn = strConn & " INTEGRATED SECURITY=sspi;"

'Now open the connection.
cnPubs.Open strConn

��

�� :

??
' Create a recordset object.
Dim rsPubs As ADODB.Recordset
Set rsPubs = New ADODB.Recordset

With rsPubs
	' Assign the Connection object.
	.ActiveConnection = cnPubs
	' Extract the required records.
	.Open "SELECT * FROM Authors"
	' Copy the records into cell A1 on Sheet1.
	Sheet1.Range("A1").CopyFromRecordset rsPubs
	
	' Tidy up
	.Close
End With

cnPubs.Close
Set rsPubs = Nothing
Set cnPubs = Nothing

��