手机
当前位置:查字典教程网 >编程开发 >vb >VBA中连接SQLSERVER数据库例子
VBA中连接SQLSERVER数据库例子
摘要:我们在使用excel编程时,很多时候都需要使用数据库。那么如何连接数据库然后从数据库读取数据呢?VBA连接SQLSERVER数据库实例:Di...

我们在使用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数据库例子】相关文章:

VB的32位程序在64位系统中出现文件和注册表自动转向的解决方法

VB简易记事本实现代码

vb简易计算器源码

VB6实现连接Access数据库的ADODB代码实现方法

什么是一个高效的软件

VB获取文件大小的方法

VB实现的16位和32位md5加密代码分享

VB实现的《QQ美女找茬游戏》作弊器实例

VB编程的八个优良习惯第1/2页

VB键盘鼠标无动作调用程序的尝试

精品推荐
分类导航