复制代码 代码如下:

--配置权限

EXEC 'show ', 1;

GO

;

GO

EXEC 'Ad Hoc ', 1;

GO

;

GO

SQL 和EXCEL的数据导入导出

1、在SQL 里查询Excel数据:

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

复制代码 代码如下:

*

FROM ( '.Jet.OLEDB.4.0',

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

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

*

FROM ( '.Jet.OLEDB.4.0',

'Data ="c:\\.xls";User ID=Admin;=; =Excel 5.0')...

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

2、将Excel的数据导入SQL :

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

复制代码 代码如下:

* into

FROM ( '.Jet.OLEDB.4.0',

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

实例:

复制代码 代码如下:

* into

FROM ( '.Jet.OLEDB.4.0',

'Data ="c:\\.xls";User ID=Admin;=; =Excel 5.0')...

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

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

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

T-SQL代码：

复制代码 代码如下:

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

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

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

实例:

复制代码 代码如下:

EXEC .. 'bcp .dbo. out c:\temp1.xls -c -q -S"" -U"sa" -P"sa"'

EXEC .. 'bcp " , FROM pubs.. ORDER BY " C:\ .xls -c - -Usa -'

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

复制代码 代码如下:

Dim cn As New ADODB.

cn.open "={SQL };=;=;UID=sa;WD=123;"

cn. ".. 'bcp " col1, col2 FROM 库名.dbo.表名" E:\DT.xls -c - -Usa -'"

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

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

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

复制代码 代码如下:

into ( '.Jet.OLEDB.4.0',

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

T-SQL代码：

复制代码 代码如下:

INTO

('.JET.OLEDB.4.0',

' =Excel 8.0;Data =C:\\.xls')...[$]

(, ) (20, 'Test')