介绍
在VBA中，可以通过ADO（ActiveX Data Objects）来连接MSSQL数据库。本文将为大家分步骤详细介绍如何在VBA中读取MSSQL数据库。
步骤1：创建连接对象
要连接MSSQL数据库，首先需要创建连接对象。下面是一个简单的示例代码：
Dim cn As New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB;Data Source=myServerName;Initial Catalog=myDatabaseName;User ID=myUsername;Password=myPassword;"
cn.Open
以上代码使用了SQLOLEDB提供程序，但还有其他提供程序可供选择。
ConnectionString属性中的参数如下：
Data Source：数据库服务器名称或IP地址。
Initial Catalog：要连接的数据库名称。
User ID：连接数据库时使用的用户名。
Password：连接数据库时使用的密码。
步骤2：执行SQL查询
2.1 执行SELECT查询
要执行SELECT查询，可以使用Recordset对象。下面是一个示例代码：
Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM myTable", cn
Do While Not rs.EOF
Debug.Print rs("columnName")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
以上代码会打印myTable表中columnName列的所有值。可以根据需要修改查询条件和输出方式。
2.2 执行INSERT/UPDATE/DELETE操作
要执行INSERT/UPDATE/DELETE操作，可以使用Execute方法。以下是一个示例代码：
cn.Execute "INSERT INTO myTable (columnName) VALUES ('value')"
以上代码会向myTable表中的columnName列插入新值。
步骤3：关闭连接
当完成对数据库的操作后，应该关闭连接。下面是一个示例代码：
cn.Close
Set cn = Nothing
总结
通过以上步骤，我们可以在VBA中轻松地连接到MSSQL数据库，并执行各种查询和操作。这种技术可以在需要自动化处理MSSQL数据时非常有用。