VBA中连接SQLSERVER数据库例子

这篇文章主要介绍了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