Oracle
Dim aDS As OraDynaset
Set aDS = OraDB.DbCreateDynaset(aSql, ORADYN_READONLY + ORADYN_NOCACHE)
Set aDS = OraDB.DbCreateDynaset(aSql, ORADYN_READONLY)
OraDB.ExecuteSQL (aSql)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
参照設定:
Oracle Data Control
Oracle InProc Server 5.0 Type Library
ADO
Dim aRs As ADODB.Recordset
Set aRs = New ADODB.Recordset
aRs.Open aSql, adServerCN, adOpenDynamic
adServerCN.Execute (aSql)
Set aRs = New ADODB.Recordset
aRs.Open aSql, adServerCN, adOpenKeyset, adLockOptimistic
Set aRs = New ADODB.Recordset
aRs.Open aSql, adServerCN, adOpenStatic, adLockReadOnly
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
参照設定:
Microsoft ActiveX Data Object 2.7 Library
DAO
Public WS As Workspace
WS.BeginTrans
WS.CommitTrans
WS.Rollback
Dim aRS As Recordset
Db.Execute aSQL
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
参照設定:
Microsoft DAO 3.51 Object Library
Microsoft DAO 3.60 Object Library