oracle vba 数组_VBA连接Oracle和SQL

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