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

1、首先打开SQL Server数据库，准备一个要导入的数据表，如下图所示，数据表中插入一些数据

2、接下来打开Excel软件，点击数据菜单，然后选择其他来源下面的来自SQL Server选项

3、然后会d出数据库连接向导界面，在输入框里面输入服务器名称，也就是计算机名

4、接下来就会出现导入内容的具体设置界面了，我们选择要导入表，并且选择一个空白单元格位置作为数据的导入位置

5、最后点击确定按钮，我们就可以看到SQL Server中的数据就导入进Excel里了

---