SQL SERVER 与ACCESS、EXCEL的数据转换

 

--Excel导入到SQL的一个新思路:
/*
比如Excel有两列,A列和B列需要导入到SQL表中,反正我已经有几年不用DTS之类的工具了。
在Excel中的新的一列中,直接写公式 =CONCATENATE("Insert #tmp values('",A1,"','",B1,"')") 
把每一行都设成同样的公式(双击即可完成)。 把整列复制下来,放到查询分析器中直接运行就好了。
也可以把公式改成 =CONCATENATE("select '",A1,"','",B1,"' Union all") 
这样的好处多 
1: 不用管你什么格式,绝对不会乱。
2:快捷方便(列数不太多的话一般一分钟之内可以搞定) 
3: 不会出错,甚至都不需要核对。  

 

一、           SQL SERVER ACCESS的数据导入导出

常规的数据导入导出:

使用DTS向导迁移你的Access数据到SQL Server,你可以使用这些步骤:

  1在SQL SERVER企业管理器中的Tools(工具)菜单上,选择Data Transformation

  2Services(数据转换服务),然后选择 czdImport Data(导入数据)。

  3在Choose a Data Source(选择数据源)对话框中选择Microsoft Access as the Source,然后键入你的.mdb数据库(.mdb文件扩展名)的文件名或通过浏览寻找该文件。

  4在Choose a Destination(选择目标)对话框中,选择Microsoft OLE DB Prov ider for SQL Server,选择数据库服务器,然后单击必要的验证方式。

  5在Specify Table Copy(指定表格复制)或Query(查询)对话框中,单击Copy tables(复制表格)。

6在Select Source Tables(选择源表格)对话框中,单击Select All(全部选定)。下一步,完成。

 

Transact-SQL语句进行导入导出:

1.         SQL SERVER里查询access数据:

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

SELECT *

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

'Data Source="c:"DB.mdb";User ID=Admin;Password=')...表名

例子:

SELECT *

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

      'Data Source="d:\ipaddress.mdb";User ID=Admin;Password=' )...[1]        //1是表名

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

 

2.         access导入SQL server

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

SQL SERVER 里运行:

SELECT *

INTO newtable

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

      'Data Source="c:"DB.mdb";User ID=Admin;Password=' )...表名

例子:

SELECT *

INTO newtable

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

      'Data Source="d:\ipaddress.mdb";User ID=Admin;Password=' )...[1]


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

 

3.         SQL SERVER表里的数据插入到Access表中

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

SQL SERVER 里运行:

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

 'Data Source=" c:"DB.mdb";User ID=Admin;Password=')...表名

(列名1,列名2)

select 列名1,列名2  from  sql

 

实例:

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

   'C:"db.mdb';'admin';'', Test)

select id,name from Test

 

 

INSERT INTO OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'c:"trade.mdb'; 'admin'; '', 表名)

SELECT *

FROM sqltablename

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

 

 

 

 

 

二、           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 SERVERACCESSEXCEL电子表格软件中的数据进行转换,为我们提供了极大方便!

 

 

--Excel导入sql存储过程

 

--Sql 导入 EXCEL 通用存储过程
--
2008/01/10 15:41
/*

--下面两句在创建存储过程时必须先执行,否则不能创建本存储过程,或者调用出错
SET ANSI_WARNINGS ON--返回警告
GO
SET ANSI_NULLS ON-- 指定在对空值使用等于   (=)   和不等于   (<>)   比较运算符时,这些运算符的   SQL-92   遵从行为。
GO
--将Excel数据导入到sql数据库
--版权 : 启程 letwego.cn
--调用实例
EXEC spExcelOutIn 
@strOptions = 'In',
@strWhere = 'WHERE 房号>0',--导入/导出查询条件(包括Where 关键字)
@strExcelPath = 'd:\test.xls',--Excel的绝对路径
@strExcelSheetName = 'Sheet2',--Excel里要导入的工作表名称 如Sheet2,注意,后面不要加上$
@strExcelFiled = '单元编号,单元名称,房号,建筑面积,楼层,楼层名称,楼阁编号,业主',--Excel工作表的字段

@strSqlTableName = 'TExcelOutIn',--Sql数据库导入表名
@strSqlFiled = '单元编号,单元名称,房号编号,建筑面积,楼层,楼层名称,楼阁编号,业主编号'--Sql表的字段
*/


CREATE PROCEDURE spExcelOutIn

@strOptions varchar(200= NULL,
@strWhere nvarchar(4000= NULL,--导入/导出查询条件(包括Where 关键字)

@strExcelPath nvarchar(1000= NULL,--Excel的绝对路径
@strExcelSheetName nvarchar(50= NULL,--Excel里要导入的工作表名称 如Sheet2,注意,后面不要加上$
@strExcelFiled nvarchar(1000= NULL,--Excel工作表的字段

@strSqlTableName nvarchar(100= NULL,--Sql数据库导入/导出表名
@strSqlFiled nvarchar(1000= NULL--Sql表的字段

AS

DECLARE @strSql nvarchar(4000)

IF OBJECT_ID('tempdb..##Temp'IS NOT NULL DROP TABLE ##Temp


/* Excel导入sql */
IF @strOptions='In' AND NOT @strExcelPath IS NULL BEGIN

SET @strExcelPath = '''Microsoft.Jet.OLEDB.4.0'',''Data Source="' + @strExcelPath + '";User ID=Admin;Password=;Extended properties=Excel 5.0'''

--将数据存放到临时表(一)
SET @strSql =
'SELECT ' + @strExcelFiled +
' INTO ##Temp
FROM 
OpenDataSource(
'+ @strExcelPath +')'+ @strExcelSheetName +''
+@strWhere

--PRINT(@strSql)
EXEC(@strSql

--将数据从临时表导入到sql数据库表(二,分两步可以做更多的处理)
SET @strSql = 'INSERT INTO ' + @strSqlTableName + '('+ @strSqlFiled +') SELECT * FROM ##Temp'
--PRINT(@strSql)
EXEC(@strSql

--SELECT * FROM ##Temp
DROP TABLE ##Temp

END



/* sql导出Excel */
IF @strOptions='Out' AND NOT @strExcelPath IS NULL BEGIN

SET @strExcelPath = ''
--导成类似(不是真正的Excel,是文本格式)Excel的文件,这里是固定的,真正用时需要修改相关参数
--
EXEC master..xp_cmdshell 'bcp "SELECT * FROM wy_福州分公司.dbo.TExcelOutIn" queryout C:\test.xls -c -S"(local)" -U"sa" -P"123"'
END
GO










--Excel导入sql存储过程(简单)

Create procedure import 
    
@tablename varchar(100), 
    
@filepath varchar(100)  
as 
EXEC'INSERT INTO '  + @tablename +
' SELECT * FROM 
OpenDataSource( 
''Microsoft.Jet.OLEDB.4.0'',''Data Source="' + @filepath + '";
User ID=Admin;Password=;Extended properties=Excel 5.0
'')sheet1$'
)  
--sheet1$ 要换成你要到的工作表名称, $符号也要

--调用 
exec import 'abc','D:\abc.xls' 


 Read and Import Excel Sheet into SQL Server Database in ASP.Net

1。用户上传的Excel文件。

2。它的基础上决定是否Excel 97中 - 2003或Excel 2007格式扩展。

3。用户可以选择是否在Excel工作表的标题行或不使用单选按钮

4。在Excel文件上传,然后在Excel工作簿表分为一个DropDownList读。

5。用户现在选择从下拉其数据,说要输入表。

6。用户输入的表,他希望将数据输入的名称。

7。用户按下确定按钮,数据导入到SQL Server数据库表和用户与现况。

 
 

Excel 97 – 2003 Format

 

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

CREATE PROCEDURE spx_ImportFromExcel03

    @SheetName varchar(20),

    @FilePath varchar(100),

    @HDR varchar(3),

    @TableName varchar(50)

AS

BEGIN

    DECLARE @SQL nvarchar(1000)

           

    IF OBJECT_ID (@TableName,'U') IS NOT NULL

      SET @SQL = 'INSERT INTO ' + @TableName + ' SELECT * FROM OPENDATASOURCE'

    ELSE

      SET @SQL = 'SELECT * INTO ' + @TableName + ' FROM OPENDATASOURCE'

 

    SET @SQL = @SQL + '(''Microsoft.Jet.OLEDB.4.0'',''Data Source='

    SET @SQL = @SQL + @FilePath + ';Extended Properties=''''Excel 8.0;HDR='

    SET @SQL = @SQL + @HDR + ''''''')...['

    SET @SQL = @SQL + @SheetName + ']'

    EXEC sp_executesql @SQL

END

GO

Excel 2007 Format

SET ANSI_NULLS ON

GO

SET QUOTED_IDENTIFIER ON

GO

CREATE PROCEDURE spx_ImportFromExcel07

   @SheetName varchar(20),

   @FilePath varchar(100),

   @HDR varchar(3),

   @TableName varchar(50)

AS

BEGIN

    DECLARE @SQL nvarchar(1000)

     

    IF OBJECT_ID (@TableName,'U') IS NOT NULL

      SET @SQL = 'INSERT INTO ' + @TableName + ' SELECT * FROM OPENDATASOURCE'

    ELSE

      SET @SQL = 'SELECT * INTO ' + @TableName + ' FROM OPENDATASOURCE'

 

    SET @SQL = @SQL + '(''Microsoft.ACE.OLEDB.12.0'',''Data Source='

    SET @SQL = @SQL + @FilePath + ';Extended Properties=''''Excel 12.0;HDR='

    SET @SQL = @SQL + @HDR + ''''''')...['

    SET @SQL = @SQL + @SheetName + ']'

    EXEC sp_executesql @SQL

END

GO

 

.@HDR ---第一行指示是否在Excel工作表将作为标题行,或不考虑。
posted @ 2009-09-15 22:35  曾祥展  阅读(3005)  评论(0编辑  收藏  举报