VBA链接数据库

此次维护的项目须要根据Excel文件中条件，抽取数据库的信息，导出到CSV文件。

而后就给出了两种方案：1、直接链接数据库，写入本地文件。；2、WebService取得最终的信息，写入本地文件。

首先看直接链接数据库。

默认VBA环境是不支持链接数据库的，须要手动添加引用，以下图：

选择【Microsoft ActiveX Data Objects 2.8 Library】，打勾，按OK按钮返回。

若是图中表示的不同，尽可能选择高版本的。

VBA中采用ADODB的方式，定义三个变量

Dim conn As New ADODB.Connection

Dim cmd As New ADODB.command

Dim rs As New ADODB.Recordset

本次使用的SqlServer，链接字符串以下

Provider=SQLOLEDB;Server=数据库地址;User ID=用户;Password=密码;database=数据库名;Connection Reset=FALSE

设置链接字符串，并打开链接

conn.ConnectionString = strConn

conn.Open

设置Command的链接和sql语句

 Set cmd.ActiveConnection = conn

cmd.CommandText = strSQL

执行command，结果存放在rs里

Set rs = cmd.Execute

查询结果的表头信息在rs.Fields里

能够遍历一下，取出来放在Sheet1里，从单元格A1开始

For col = 0 To rs.Fields.Count - 1

        Worksheets("Sheet1").Range("A1").Offset(0, col).Value = rs.Fields(col).Name

Next

而后把结果放在第二行，从单元格A2开始

Worksheets("Sheet1").Range("A1").Offset(1, 0).CopyFromRecordset rs

到目前为止只是为了验证执行结果，下面开始写入CSV文件。

定义文件对象，文件对象的使用方法能够查看资料

Dim fs, f

    Set fs = CreateObject("Scripting.FileSystemObject")

    Set f = fs.OpenTextFile("c:\ｓａｍｐｌｅ.csv", 8, True)

定义临时变量，存放CSV的一行信息

    Dim csvRowText As String

    csvRowText = ""

首先把表头信息写入文件

    For col = 0 To rs.Fields.Count - 1

        If col = 0 Then

        csvRowText = rs.Fields(col).Name

        Else

        csvRowText = csvRowText + "," + rs.Fields(col).Name

        End If

    Next

f.writeline csvRowText

游标移到第一行

rs.MoveFirst

遍历结果集，防止全是数字时，在ｅｘｃｅｌ打开时，显示成数字，因此都加上双引号．

    While (rs.EOF = False)

        csvRowText = ""

        For col = 0 To rs.Fields.Count - 1

            If col = 0 Then

                csvRowText = """" + rs(col).Value + """"

            Else

                csvRowText = csvRowText + ",""" + rs(col).Value + """"

            End If

        Next

        f.writeline csvRowText

        rs.MoveNext

    Wend

    f.Close

关闭链接，释放资源

    Set rs = Nothing

    conn.Close

    Set conn = Nothing

以上就是VBA链接数据库时的查询操做，固然在高级语言里ADODB能作update，ｄｅｌｅｔｅ，insert，VBA里都能作到。

根据须要灵活便可。