EXCEL表格链接SQLSEVER数据库

Sub 数据库连接()

Set Cnn = CreateObject("ADODB.Connection")

Set rs = CreateObject("ADODB.Recordset")

Cnn.ConnectionString = "Provider=SQLOLEDB;Persist Security Info=True;User ID=sa;Password=123456;Initial Catalog=运营数据库; Data Source =10.10.1.156"

Cnn.Open

Sql = "select 行业,SUM(帐存辅助数量)as 数量 from 运营数据库.dbo.行业分析$ group by 行业 order by 数量 desc"

Set rs = Cnn.Execute(Sql)

For i = 0 To rs.Fields.Count - 1

Cells(1, i + 1) = rs.Fields(i).Name

Range("a2").CopyFromRecordset rs

End Sub

巴特西