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, _