VBA中连接SQLSERVER数据库例子
<p>我们在使用excel编程时，很多时候都需要使用数据库。</p><p>那么如何连接数据库然后从数据库读取数据呢？</p>
<p>VBA 连接 SQL SERVER 数据库 实例:</p>
<div class="jb51code">
<pre class="brush:vb;">
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=;Password=;Initial Catalog=;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</pre>
</div>
<p></p>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>删除sqlserver数据库日志和没有日志的数据库恢复办法</li><li>SqlServer修改数据库文件及日志文件存放位置</li><li>SqlServer2008 数据库同步的两种方式(发布、订阅使用方法)</li><li>VB语言使用ADO连接、操作SQLServer数据库教程</li><li>SqlServer数据库提示 “tempdb” 的日志已满 问题解决方案</li><li>用Java连接sqlserver数据库时候几个jar包的区别分析</li><li>SQLServer无法打开用户默认数据库 登录失败错误4064的解决方法</li><li>SQL SERVER数据库表记录只保留N天图文教程</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]