明凯博客

关注网站技术,一个特立独行的程序员

VBA连接SQLSERVER 数据库实例的方法

我们在使用excel编程时,很多时候都需要使用数据库。

那么如何连接数据库然后从数据库读取数据呢?

VBA 连接 SQL SERVER 数据库 实例:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
    Dim strConn As String, strSQL As String
    Dim conn As ADODB.Connection
    Dim ds As ADODB.Recordset
    Dim col As Integer
 
    '连接数据库的字符串
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=[user];Password=[password];Initial Catalog=[database];Data Source=[数据库IP地址或数据库服务器名称];Connect Timeout=720; "
 
    '查询语句,如果sql语句很长可以用strSQL=strSQL+来连接分成多段的语句,如果语句很短可以只写在一行上。
     strSQL = "select * from Hy_KPI_Shop_Dept_WeekRpt "
     strSQL = strSQL+"where sdate='2014-01-01' order by sdate,shopid "
 
     Set conn = New ADODB.Connection
     Set ds = New ADODB.Recordset
 
    '打开数据库连接
     conn.Open strConn
 
    '该句和数据库连接字符串处的Connect Timeout=720,表示说如果语句运行时间很长,这两句可以延长vba的等待时间,没有这两句,vba往往会报查询超时。
     conn.CommandTimeout = 720
 
 
     With ds
    '根据查询语句获得数据
         .Open strSQL, conn
         '自动控制加入所有列标题
         For col = 0 To ds.Fields.Count - 1
 
    '请注意Offset(0, col)中的参数一定要正确,该句表示标题将会写在第一行,从A1单元格开始,如果不想写入标题行,可将下面这句注释掉。
     Worksheets("门店各课KPI周报").Range("A1").Offset(0, col).Value = ds.Fields(col).Name
         Next
 
    '加入所有行数据,该句表示查询结果将会写在第一行,从A1单元格开始,但是由于标题行写在第一行了,所以实际这一行从标题下的一行写入。
     Worksheets("sheet1").Range("A1").Offset(1, 0).CopyFromRecordset ds
     End With
    '关闭数据库连接和清空资源
     Set ds = Nothing
     conn.Close
     Set conn = Nothing

, , ,

相关文章

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注