VBA连接Oracle和SQL.pdfVIP

VBA操作数据库 连接Oracle数据库 Dim cn As ADODB.Connection Set cn = New ADODB.Connection 码;Persist Security Info=True cn.Execute (执行的数据库更新语句) 通过表或者查询创建数据集 Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset rs.Open 表名, cn, adOpenKeyset, adLockOptimistic MsgBox rs.RecordCount rs.Close rs.Open Select 字段 From 表名 Where 条件, cn, adOpenKeyset, adLockOptimistic MsgBox rs.RecordCount 关闭数据集和数据连接 rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub ADODB方式连接SqlServer数据库 数据库连接方法： Public Function conn_sqlServer(ByVal serverIP As String, _ userid As String, _ password As String, _ database As String) As Connection Dim sConStr As String sConStr = driver=sql server; _ server= serverIP _ ;Uid= userid _ ;Pwd= password _ ;Database= database Set conn = New ADODB.Connection conn.Open sConStr If conn Is Nothing Then MsgBox 连接已关闭 Exit Function Else Set conn_sqlServer = conn End If End Function 其中，各参数代表的意义如下： 码、database：数据库的实例名。 关闭数据库连接方法代码如下 Public Function closeConnection(ByVal conn As Connection) If conn Is Nothing Then MsgBox 链接已关闭 Else conn.Close End If End Function 其中，参数 conn ：要关闭的连接。 执行查询语句的方法代码如下：（返回rs数据集） Recordset Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset If conn Is Nothing Then MsgBox 连接关闭 Else rs.Open querySql, conn, 1, 3 End If Set executeQuery = rs End Function 其中，参数 conn ：数据库连接、querySql ：查询语句。返回值为查询结果集。 执行非查询语句的方法代码如下：（成功则提交执行，否则不提交执行） As Boolean Dim excuteResult As Boolean excuteResult = False Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset conn.BeginTrans If conn Is Nothing Then MsgBox 连接关闭 Else Set rs = conn.Execute(updateSql) End If If rs Is Nothing Then msgbox 查询结果为空 Else excuteResult = True conn.CommitTrans End If excuteUpdateDatabase = excuteResult End Function 回false 。 开启事务方法代码如下 Public Function begin_trans(ByVal conn As Connection) If conn Is Nothing Then MsgBox conn is nothing Else conn.BeginTrans End If End Function 其中，参数 conn ：数据库连接。 提交事务的方