IFDOToADOConnection接口

IFDOToADOConnection接口

IFDOToADOConnection接口(DataSourcesOleDB)

能够通过workspace从而创建或者连接到一个ADO connection. 它有2个方法，如下所示：

	Description
Connect	Connects a Workspace object to an ADO connection object.
CreateADOConnection	Creates an ADO connection from a Workspace.

 

 The Connect method connects a workspace object to an ADO (ActiveX Data Objects) connection object. The ADO connection object must exist BUT not be opened, before this method is called. If the ADO connection has any existing properties, they will be over-written.

Connect方法能够通过workspace连接到一个ADO connection, 而这个ADO connection对象是已经存在，并且是没打开的（被new了，但是还没open）。

Dim  m_fdoCon  As  IFDOToADOConnection
Set  m_fdoCon  =   New  FdoAdoConnection

Dim  m_adocon  as  adodb.connection
Set  m_adocon  -   New  adodb.connection

Dim  m_WrkSpcFact  As  IWorkspaceFactory 
Set  m_WrkSpcFact  =   New  AccessWorkspaceFactory
 
Dim  m_accWS  As  IWorkspace
Dim  sPath  as   string
' modify the path to the .mdb file accordingly.
sPath  =   " d:/data/access/us_states.mdb "
 
Set  m_accWS  =  m_WrkSpcFact.OpenFromFile( Trim (sPath),  0 )

m_fdoCon.Connect m_accWS, m_adocon

Dim  adors  as  adodb.recordset
Set  adors  =   new  adodb.recordset

adors.Open  " Select * from us_states " , m_adoCon, adOpenForwardOnly, adLockOptimistic

 

The CreateADOConnection method creates an ADO (ActiveX Data Objects) connection from a workspace object. The ADO connection object should not exist before this method is called.

 与connect方法相似，CreateADOConnection 方法能够通过workspace连接到一个ADO connection, 而这个ADO connection对象是还不存在的（被定义了，但是没new）。

Dim  m_fdoCon  As  IFDOToADOConnection
Set  m_fdoCon  =   New  FdoAdoConnection

Dim  m_adoCon  As  ADODB.connection

Dim  m_adors  As  ADODB.Recordset
Set  m_adors  =   New  ADODB.Recordset

Dim  m_accWS  As  IWorkspace
Dim  m_WrkSpcFact  As  IWorkspaceFactory

Dim  sPath  As   String , SQLstr  As   String

Set  m_WrkSpcFact  =   New  AccessWorkspaceFactory

' Modify the path to the .mdb file accordingly
sPath  =   " d:/data/access/us_states.mdb "
Set  m_accWS  =  m_WrkSpcFact.OpenFromFile( Trim (sPath),  0 )

Set  m_adoCon  =  m_fdoCon.CreateADOConnection(m_accWS)

SQLstr  =   " select * from us_states "
m_adors.Open SQLstr, m_adoCon, adOpenForwardOnly, adLockOptimistic
来自：http://www.cnblogs.com/iswszheng/archive/2009/05/15/1457474.html