excel VBA 连数据库 oracle

Sub connect_数据库()

Dim strconnt As String

Set connt = New ADODB.Connection

Dim rs As Object

Set rs = New ADODB.Recordset

Dim sevip, Db, user, pwd As String

'设服务器地址、所连数据，及登录用户密码

sevip = "****"

Db = "****"

user = "****"

pwd = "****"

strconnt = "DRIVER={Microsoft ODBC for Oracle}Password=appsUser ID=appsData Source=demo" '

connt.ConnectionString = strconnt

connt.Open

End Sub

可以使用以下代码在EXCEL上使用VBA连接MYSQL数据库    ：

Dim strconnt As String

  strconnt = ""

  Set connt = New ADODB.Connection

  Dim sevip, Db, user, pwd As String

  '设服务器地址、所连数据，及登录用户密码

  sevip = "localhost"

  Db = “test"

  user = "root"

  pwd = "123456"

  strconnt = "DRIVER={MySql ODBC 5.3 Unicode Driver}SERVER=" & sevip & "Database=" & Db & "Uid=" & user & "Pwd=" & pwd & "Stmt=set names GBK"

  connt.ConnectionString = strconnt

  connt.Open

---