IT学习网 - 爱学习 - 最具影响力综合资讯网站 -- 中国IT界的领航者!
热门关键字:      88888  as  xxx
站外
广告
站外
广告

VBA中连接SQLSERVER数据库例子

发布时间:2015-09-27 08:43文章来源:网络整理文章作者: 学习网点击次数:
这篇文章主要介绍了VBA中连接SQLSERVER数据库例子,VBA是指Visual Basic for Applications,是Visual Basic的一种宏语言,需要的朋友可以参考下

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

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

VBA 连接 SQL SERVER 数据库 实例:

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


VBA中连接SQLSERVER数据库例子
本文由 IT学习网 整理,转载请注明“转自IT学习网”,并附上链接。
原文链接:http://www.ourlove520.com/Programming/VB/123259.html

标签分类:

VBA连接SQLSERV
上一篇:上一篇:VB实现的16位和32位md5加密代码分享
下一篇: 下一篇:分享如何在VB中调用VC编写的DLL
无觅关联推荐,快速提升流量