VBA中连接SQLSERVER数据库例⼦
我们在使⽤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 Withexcel连接sql数据库教程
'关闭数据库连接和清空资源
Set ds = Nothing
conn.Close
Set conn = Nothing

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。