当前位置：网站首页 > IT知识 > 正文

Excel常用技能分享与探讨(5-宏与VBA简介 VBA与数据库-二)

liuian 2025-06-13 14:49 75 浏览

以下是常见数据库软件的详细配置步骤，涵盖安装、驱动配置、服务启动及基本设置，确保VBA能够顺利连接：

一、Microsoft Access

适用场景：小型本地数据库，无需独立服务。

配置步骤：

安装Access：安装Office套件时勾选Access组件。

创建数据库文件

打开Access → 新建空白数据库 → 保存为.accdb或.mdb文件。

配置VBA连接（无需额外驱动）

使用默认的Jet/ACE引擎，连接字符串示例：

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Data.accdb;

ACE引擎版本兼容性

' 根据Office版本选择引擎
If Application.Version < 15 Then ' Office 2013及更早
    connStr = "Provider=Microsoft.ACE.OLEDB.12.0;"
Else
    connStr = "Provider=Microsoft.ACE.OLEDB.16.0;" 
End If
connStr = connStr & "Data Source=C:\Database.accdb;"

二、Microsoft SQL Server

适用场景：企业级数据库，支持高并发和复杂事务。

配置步骤：

安装SQL Server

下载SQL Server安装包（Developer版免费）。

安装时勾选以下组件：

-->数据库引擎服务（核心功能）。

-->SQL Server Management Studio (SSMS)（管理工具）。

-->SQL Server Native Client（驱动支持）。

启用混合身份验证模式

安装过程中选择混合模式（Windows身份验证和SQL Server身份验证），设置sa账户密码。

启用TCP/IP协议

打开SQL Server配置管理器 → SQL Server网络配置 → 启用TCP/IP协议。

开放防火墙端口

默认端口为1433，需在防火墙中允许入站规则。

测试连接

使用SSMS登录，服务器名输入.（本地）或IP地址（远程）。

VBA连接字符串

Windows身份验证：

Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;Integrated Security=SSPI;

SQL Server身份验证：

Provider=SQLOLEDB;Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=密码;

三、MySQL

适用场景：跨平台开源数据库，适合Web应用。

配置步骤：

安装MySQL Server

下载MySQL Community Server安装包。

安装时选择Developer Default（包含MySQL Workbench和驱动）。

配置Root用户密码

安装过程中设置root账户密码。

安装ODBC驱动

下载并安装MySQL Connector/ODBC（如8.0版本）。

创建测试数据库

使用MySQL Workbench执行：

CREATE DATABASE test; USE test; CREATE TABLE users (id INT, name VARCHAR(50));

配置ODBC数据源（可选）

打开ODBC数据源管理器（64位） → 系统DSN → 添加MySQL ODBC 8.0 Unicode Driver → 输入服务器、数据库名、账号密码。

VBA连接字符串

Driver={MySQL ODBC 8.0 Unicode Driver};Server=localhost;Database=test;User=root;Password=密码;

四、SQLite

适用场景：轻量级嵌入式数据库，无需服务。

配置步骤：

下载SQLite数据库文件

从官网下载预编译的sqlite3.dll和sqlite3.def。

安装ODBC驱动

下载并安装SQLite ODBC Driver（如
http://www.ch-werner.de/sqliteodbc）。

创建数据库文件

使用命令行或工具（如DB Browser for SQLite）创建.db文件。

配置ODBC数据源（可选）

在ODBC数据源管理器中添加SQLite驱动，指定数据库文件路径。

VBA连接字符串

Driver={SQLite3 ODBC Driver};Database=C:\test.db;

五、Oracle Database

适用场景：大型企业级数据库，高可用性。

配置步骤：

安装Oracle数据库

下载Oracle Database Express Edition（XE版免费）。

安装过程中设置管理员密码，并记住服务名（如XE）。

安装Oracle客户端工具

下载并安装Oracle Instant Client（包含ODBC驱动）。

配置TNSNAMES.ORA文件

编辑instantclient_xx\network\admin\tnsnames.ora，添加服务别名：

ORCL = (DESCRIPTION = (ADDRESS = (PROTOCOL = TCP)(HOST = localhost)(PORT = 1521)) (CONNECT_DATA = (SERVER = DEDICATED) (SERVICE_NAME = XE)))

测试连接

使用SQL*Plus或Oracle SQL Developer验证登录。

VBA连接字符串

Provider=OraOLEDB.Oracle;Data Source=ORCL;User ID=system;Password=密码;

六、常见配置问题与解决

1. 连接失败（错误代码：-2147467259）

原因：驱动未安装或连接字符串错误。
解决：

检查驱动是否安装（如ACE引擎、MySQL ODBC）。
使用ConnectionStrings.com核对连接字符串。

2. 数据库服务未启动（如SQL Server）

解决：
打开服务管理器（services.msc）→ 启动SQL Server (MSSQLSERVER)服务。

3. 权限不足（如MySQL用户无法访问）

解决：
执行GRANT ALL PRIVILEGES ON *.* TO 'user'@'%' WITH GRANT OPTION;并刷新权限。

4. 防火墙或端口阻塞

解决：

开放数据库默认端口（如SQL Server的1433、MySQL的3306）。
关闭防火墙或添加入站规则。

七、配置验证方法

使用管理工具测试

SQL Server：SSMS → 登录并执行SELECT 1。

MySQL：MySQL Workbench → 新建连接。

ODBC数据源测试

在ODBC数据源管理器中点击测试连接按钮。

VBA代码快速验证

Sub TestConnection() 
Dim conn As ADODB.Connection 
Set conn = New ADODB.Connection 
On Error Resume Next 
conn.Open "Your_Connection_String" 
If Err.Number = 0 Then 
    MsgBox "连接成功！"
Else 
    MsgBox "连接失败：" & Err.Description 
End If 
conn.Close 
End Sub

vba int