sql server2000数据库中的信息如何导出

yusheng622 2011-08-10 02:53:34
sql server2000数据库中的信息如何导出，导出成csv还是excel文件好弄呢？怎么弄呢？
...全文
236 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
hansonblog 2011-08-26
  • 打赏
  • 举报
 回复
楼上的是我改进后的过程版本，导出来的数据进行格式美化。
下面这个是原版的。看看。在程序里的调用方法是这样的：



    cn = ConAcc

    ExporToExcel “SQL 查询字符串”






Public Function ExporToExcel(strOpen As String)

'*********************************************************

'* 名称：ExporToExcel

'* 功能：导出数据到EXCEL

'* 用法：ExporToExcel(sql查询字符串)

'*********************************************************

Dim Rs_Data As New ADODB.Recordset

Dim Irowcount As Integer

Dim Icolcount As Integer



 StbInfo ("正在联系EXCEL,准备创建并定义工作表...")

    Dim xlApp As New Excel.Application

    Dim xlBook As Excel.Workbook

    Dim xlSheet As Excel.Worksheet

    Dim xlQuery As Excel.QueryTable

    

On Error Resume Next

    With Rs_Data

        If .State = adStateOpen Then

            .Close

        End If

    

        .ActiveConnection = cn

        .CursorLocation = adUseClient

        .CursorType = adOpenStatic

        .LockType = adLockReadOnly

        .Source = strOpen

        .Open

    End With

    StbInfo ("正在向excel的工作表中添加数据...请稍候...")

    With Rs_Data

        If .RecordCount < 1 Then

            MsgBox "没有记录可以导出，请确认数据源记录是否为空!", vbInformation, "错误："

            StbInfo ("记录为空，不能导出。")

            Exit Function

        End If

        '记录总数

        Irowcount = .RecordCount

        '字段总数

        Icolcount = .Fields.Count

    End With

    

    Set xlApp = CreateObject("Excel.Application")

    Set xlBook = Nothing

    Set xlSheet = Nothing

    Set xlBook = xlApp.Workbooks().Add

    Set xlSheet = xlBook.Worksheets("sheet1")

    xlApp.Visible = True

    

    '添加查询语句，导入EXCEL数据

    Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a2"))

    

    With xlQuery

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = True

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .PreserveColumnInfo = True

    End With

    

    xlQuery.FieldNames = True '显示字段名

    xlQuery.Refresh

    

    With xlSheet

        

        .Range(.Cells(1, 1), .Cells(1, Icolcount + 1)).Font.Name = "微软雅黑"

        .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Size = 14

        .Range(.Cells(1, 2), .Cells(1, Icolcount)).Font.Bold = True

        '.Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount + 1)).Font.Size = 10



        .Columns.Width = 300

        '标题字体加粗

        .Range(.Cells(2, 1), .Cells(Irowcount + 2, Icolcount)).Borders.LineStyle = xlContinuous

        .Range(.Cells(2, 1), .Cells(Irowcount + 2, Icolcount)).Font.Name = "微软雅黑"

        .Range(.Cells(2, 1), .Cells(Irowcount + 2, Icolcount)).Font.Size = 9

        

        '.Range(.Cells(2, 1), .Cells(Irowcount + 2, Icolcount)).Font.Color = vbRed

        '设表格边框样式

    End With

   

    xlApp.Application.Visible = True

    If Prt = True Then xlApp.Worksheets.PrintPreview

    xlApp.DisplayAlerts = False

    Set xlApp = Nothing  '"交还控制给Excel

    Set xlBook = Nothing

    Set xlSheet = Nothing

    xlApp.Quit

End Function
hansonblog 2011-08-26
  • 打赏
  • 举报
 回复
VB CODE可以吗，虽然帮不上，你可以参考下代码逻辑的嘛：



Public Function ExporToExcel(strOpen As String, Optional FormatingSwitch As Boolean, Optional FormatingColumns As String, Optional ColorScaleSwitch As Boolean, Optional ColorScaleRange As String)

'*********************************************************

'* 名称：ExporToExcel

'* 功能：导出数据到EXCEL

'* 用法：ExporToExcel(sql查询字符串)

'*********************************************************

Dim Rs_Data As New ADODB.Recordset

Dim Irowcount As Integer

Dim Icolcount As Integer



    StbInfo ("正在联系EXCEL,准备创建并定义工作表...")

    Dim xlApp As New excel.Application

    Dim xlBook As excel.workbook

    Dim xlSheet As excel.Worksheet

    Dim xlQuery As excel.QueryTable

    

On Error Resume Next

    With Rs_Data

        If .State = adStateOpen Then

            .Close

        End If

    

        .ActiveConnection = cn

        .CursorLocation = adUseClient

        .CursorType = adOpenStatic

        .LockType = adLockReadOnly

        .Source = strOpen

        .Open

    End With

    StbInfo ("正在向excel的工作表中添加数据...请稍候...")

    With Rs_Data

        If .RecordCount < 1 Then

            MsgBox "没有记录可以导出，请确认数据源记录是否为空!", vbInformation, "错误："

            Exit Function

        End If

        '记录总数

        Irowcount = .RecordCount

        '字段总数

        Icolcount = .Fields.Count

    End With

    

    Set xlApp = CreateObject("Excel.Application")

    Set xlBook = Nothing

    Set xlSheet = Nothing

    Set xlBook = xlApp.Workbooks().Add

    Set xlSheet = xlBook.Worksheets("sheet1")

    xlApp.Visible = True

    

    '添加查询语句，导入EXCEL数据

    Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a1"))

    

    With xlQuery

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = True

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .PreserveColumnInfo = True

    End With

    

    xlQuery.FieldNames = True '显示字段名

    xlQuery.Refresh

    

    With xlSheet

        

        .Range(.Cells(1, 1), .Cells(1, Icolcount + 1)).Font.Name = "微软雅黑"

        .Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Size = 10

        .Range(.Cells(1, 2), .Cells(1, Icolcount)).Font.Bold = True

        .Columns.Width = 300

        '标题字体加粗

        .Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous

        .Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Font.Name = "微软雅黑"

        .Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Font.Size = 9

        

        '开启应用TableStyle

        .Range("A1").Select

        .ListObjects.Add(xlSrcRange, .Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)), , xlYes).Name = _

            "HansonTempTable"

        .Range("HansonTempTable[#All]").Select

        .ListObjects("HansonTempTable").TableStyle = _

            "TableStyleMedium5"

        

        '开启首行分隔

        .Rows("2:2").Select

        xlApp.ActiveWindow.FreezePanes = True

        

        

        '开启ConditionalFormattings

        If FormatingSwitch = True Then

            .Columns(FormatingColumns).Select

            xlApp.Selection.FormatConditions.AddDatabar

            xlApp.Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = True

            xlApp.Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

            

            With xlApp.Selection.FormatConditions(1)

                .MinPoint.Modify newtype:=xlConditionValueLowestValue

                .MaxPoint.Modify newtype:=xlConditionValueHighestValue

            End With

            With xlApp.Selection.FormatConditions(1).BarColor

                .Color = 5920255

                .TintAndShade = 0

            End With

        End If

        

        

        If ColorScaleSwitch = True Then

            .Columns(ColorScaleRange).Select

            xlApp.Selection.FormatConditions.AddColorScale ColorScaleType:=3

            xlApp.Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority

            xlApp.Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _

                xlConditionValueLowestValue

            With xlApp.Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor

                .Color = 7039480

                .TintAndShade = 0

            End With

            

            xlApp.Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _

                xlConditionValuePercentile

            xlApp.Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50

            With xlApp.Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor

                .Color = 8711167

                .TintAndShade = 0

            End With

            xlApp.Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _

                xlConditionValueHighestValue

            With xlApp.Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor

                .Color = 13011546

                .TintAndShade = 0

            End With

        End If

        

    End With

    

    xlApp.Range("A1").Select

    

    xlApp.Application.StatusBar = "Data from Hanson e-Pull System exported.Total Row Counts:" & Irowcount

    xlApp.Application.Visible = True

    xlApp.DisplayAlerts = False

    Set xlApp = Nothing  '"交还控制给Excel

    Set xlBook = Nothing

    Set xlSheet = Nothing

    xlApp.Quit



    StbInfo ("导出成功！")

End Function
yusheng622 2011-08-26
  • 打赏
  • 举报
 回复
要实现数据库是在服务器上，web查询页面查出结果导到本地！有木有人帮个忙呢？
yusheng622 2011-08-26
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 acherat 的回复:]
SQL code

SQL SERVER 和EXCEL的数据导入导出
1、在SQL SERVER里查询Excel数据:
-- ======================================================
SELECT *
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\……
[/Quote]

怎么没有人来啊！
luqing200862 2011-08-10
  • 打赏
  • 举报
 回复
j f'
快溜 2011-08-10
  • 打赏
  • 举报
 回复 
--导出excel

SELECT * 

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0', 

'Data Source="c:\test.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
AcHerat 2011-08-10
  • 打赏
  • 举报
 回复
导出哪种文件要看楼主选择的了。
AcHerat 2011-08-10
  • 打赏
  • 举报
 回复 


SQL SERVER 和EXCEL的数据导入导出

1、在SQL SERVER里查询Excel数据:

-- ======================================================

SELECT * 

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

下面是个查询的示例，它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。

SELECT * 

FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',

  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

-------------------------------------------------------------------------------------------------



2、将Excel的数据导入SQL server :

-- ======================================================

SELECT * into newtable

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

  'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

实例:

SELECT * into newtable

FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions

-------------------------------------------------------------------------------------------------



3、将SQL SERVER中查询到的数据导成一个Excel文件

-- ======================================================

T-SQL代码：

EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'

参数：S 是SQL服务器名；U是用户；P是密码

说明：还可以导出文本文件等多种格式

实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'

EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'

在VB6中应用ADO导出EXCEL文件代码： 

Dim cn  As New ADODB.Connection

cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"

cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"

------------------------------------------------------------------------------------------------



4、在SQL SERVER里往Excel插入数据:

-- ======================================================

insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',

'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)



T-SQL代码：

INSERT INTO  

OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',  

'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]  

(bestand, produkt) VALUES (20, 'Test')


一会会有人贴个比较全的上来的。
SQL SERVER数据库数据的导入与导出
SQL SERVER数据库数据的导入与导出 一、SQL SERVER数据库数据的导出 1.使用数据库操作进行数据导出 优点：可以自己编写sql，比较灵活，可以输出想要的字段 缺点：因Excel版本不同，导出的数据条数有上限，单表超过65535条数据，多的数据就无法正常导出。 数据库名—右键任务—导出数据 输入数据库ip,用户名，密码，选择需要导出数据的数据库 选择要导出的Excel及版本 选择导出模式 单表导出、使用sql导出，选择完毕之后，点击下一步即可 2.使用Excel进行数据导出 优点：单表
sqlserver导出数据库步骤
要导出数据库，你需要执行以下步骤：1. 使用SQL Server Management Studio(SSMS)连接到要导出的数据库。2. 右键单击要导出的数据库，然后选择“任务”>“导出数据”。3. 在“源”部分，选择要导出的数据库，然后点击“下一步”。4. 在“目标”部分，选择要将数据导出到的位置，然后点击“下一步”。5. 在“选项”部分，选择要导出的数据库的属性，然后点击“下一步”。6...
sql server导入、导出数据库
快速导入导出SQLServer数据库，仅需这几步
sql server2017 数据库导出表所有数据
sql server 2017数据库导出表所有数据sql server数据库导出表里所有数据 sql server数据库导出表里所有数据 步骤： 1连接数据库>选择需要导出数据的数据库>任务>生成脚本; 2点击下一步，选择特定数据库对象>选择需要导出的数据表，下一步; 3选择高级>要编写脚本的数据的类型：仅限数据>保存到新建查询窗口>下一步>下一步>完成（这时候会自动打开一个新的查询窗口，里面就是数据表的insert 数据）。 1、连接数据库>
导出SQLserver数据库表和数据
1.首先打开sql server，找到需要导出的数据库 2.单击右键，选择任务 -> 生成脚本 3.选择下一步 4.等待一会加载后，选择具体数据库对象，然后选择需要的表，，之后继续点击下一步 5.点击高级选项 6.在打开的窗口中找到要编写脚本的数据的类型，更改为架构和数据，，之后点击确定 7.选择输出的路径，选择好后，点击下一步 8.继续点击下一步 9.数据库中的表和数据就导出完毕了。 ...
疑难问题

22,209

社区成员

121,731

社区内容

发帖
与我相关
我的任务
社区描述
MS-SQL Server 疑难问题
社区管理员
  • 疑难问题社区
  • 尘觉
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章