SQL SERVER 与ACCESS、EXCEL的数据转换方法分享

作为数据库管理员，无论是SQL SERVER 2000的数据库管理员还是更现代的数据库版本，都对数据的导入导出有着深刻的需求。当涉及到数据的迁移和转换时，我们不仅可以使用DTS进行数据导入导出，还可以使用Transact-SQL语句来实现这一操作。接下来，我将详细介绍如何使用Transact-SQL语句在SQL SERVER中进行数据的导入导出，特别是与ACCESS和EXCEL的数据交互。

我们来谈谈SQL SERVER与ACCESS之间的数据导入导出。对于常规的数据导入导出，使用DTS向导是一个简便的方法。但在SQL SERVER中，我们还可以使用Transact-SQL语句来实现。这主要依赖于OpenDataSource函数和OPENROWSET函数。例如，如果你想查询ACCESS数据库中的数据，可以使用如下语句：

```sql

SELECT FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\DB.mdb";User ID=Admin;Password=')...表名

```

```sql

INSERT INTO OpenDataSource('Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\DB.mdb";User ID=Admin;Password=')...表名 (列名1,列名2)

SELECT 列名1,列名2 FROM SQL表实例

```

接下来，我们再来谈谈SQL SERVER与EXCEL之间的数据导入导出。通过Transact-SQL语句，我们可以轻松查询EXCEL中的数据。例如：

```sql

SELECT FROM OpenDataSource('Microsoft.Jet.OLEDB.4.0', 'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]

```

一、从Excel导入数据到SQL SERVER

想象一下，你有一个存储在c:\Finance\aount.xls的Excel文件，并且你想将其数据导入到SQL SERVER中的新表。你可以使用以下T-SQL语句：

```sql

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$]

```

在这个例子中，"newtable"是你想创建的新表的名字，"Sheet1$"是Excel工作表的名称。通过这种方式，你可以轻松地将Excel数据导入到SQL SERVER中。

二、从SQL SERVER导出数据到Excel文件

如果你想把SQL SERVER中的数据导出到Excel文件，你可以使用`xp_cmdshell`命令。例如：

```sql

EXEC master..xp_cmdshell 'bcp salestesttmp.dbo.CusAount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'

```

这条命令将`salestesttmp.dbo.CusAount`表的数据导出到c:\temp1.xls文件中。这种方法也可以用于导出文本文件等多种格式。你也可以使用更复杂的查询来导出特定的数据。

三、在VB6中使用ADO导出Excel文件

在VB6中，你可以使用ADO (ActiveX Data Objects) 来导出数据到Excel文件。例如：

```vbscript

Dim conn As New ADODB.Connection

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

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

```

这段代码首先建立了一个到SQL SERVER的连接，然后使用`xp_cmdshell`命令将查询结果导出到Excel文件。注意替换库名、表名等参数为你实际的数据库信息。

```sql

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)

```