想把SQL中的数据在其它文件中展现(比如EXCEL)?不知道是不是这个意思,如果是的话,可以用VBA或VB写个东西:Sub aa() Dim cn As New ADODB.Connection Dim rs As New Recordset Str1 = "select 区域,内=SUM(case when 新替换区内外='替换区内' then 1 else 0 end ),外=SUM(case when 新替换区内外='替换区外' then 1 else 0 end ) from 宏站 group by 区域"
strcn = "Provider=sqloledb;Database=test;Uid=sa;Pwd=30687724;data source=127.0.0.1,1433;" cn.Open strcn rs.Open Str1, cn Dim i For i = 1 To rs.Fields.Count Cells(1, i) = rs.Fields(i - 1).Name Range("a2").CopyFromRecordset rs Next i Str1 = "select 区域,内=SUM(case when 新替换区内外='替换区内' then 1 else 0 end ),外=SUM(case when 新替换区内外='替换区外' then 1 else 0 end ) from 宏站 group by 区域" 你想用什么就写什么吧,当然还可以用BCP把表导入来。
数据库生成文件,你把你想要的东西查询到一个视图或者一个语句 用bcp 导出
Dim cn As New ADODB.Connection
Dim rs As New Recordset
Str1 = "select 区域,内=SUM(case when 新替换区内外='替换区内' then 1 else 0 end ),外=SUM(case when 新替换区内外='替换区外' then 1 else 0 end ) from 宏站 group by 区域"
strcn = "Provider=sqloledb;Database=test;Uid=sa;Pwd=30687724;data source=127.0.0.1,1433;"
cn.Open strcn
rs.Open Str1, cn
Dim i
For i = 1 To rs.Fields.Count
Cells(1, i) = rs.Fields(i - 1).Name
Range("a2").CopyFromRecordset rs
Next i
Str1 = "select 区域,内=SUM(case when 新替换区内外='替换区内' then 1 else 0 end ),外=SUM(case when 新替换区内外='替换区外' then 1 else 0 end ) from 宏站 group by 区域" 你想用什么就写什么吧,当然还可以用BCP把表导入来。
先安装SQL SERVER再继续下面的想法吧