把Excel表导入SQL数据库的两种方法

把Excel表导入SQL数据库的两种方法

SQLServer自身就有导入功能的

1、打开企业管理器，打开要导入数据的数据库，在表上按右键，所有任务-->导入数据，弹出DTS导入/导出向导，按下一步，

2、选择数据源 Microsoft Excel 97-2000，文件名选择要导入的xls文件，按下一步，

3、选择目的用于SQL Server 的Microsoft OLE DB提供程序，服务器选择本地(如果是本地数据库的话，如 VVV)，使用SQL Server身份验证，用户名sa，密码为空，数据库选择要导入数据的数据库（如 client），按下一步，

4、选择用一条查询指定要传输的数据，按下一步，

5、按查询生成器，在源表列表中，有要导入的xls文件的列，将各列加入到右边的选中的列列表中，这一步一定要注意，加入列的顺序一定要与数据库中字段定义的顺序相同，否则将会出错，按下一步，

6、选择要对数据进行排列的顺序，在这一步中选择的列就是在查询语句中 order by 后面所跟的列，按下一步，

7、如果要全部导入，则选择全部行，按下一步，

8、则会看到根据前面的操作生成的查询语句，确认无误后，按下一步，

9、会看到表/工作表/Excel命名区域列表，在目的列，选择要导入数据的那个表，按下一步，

10、选择立即运行，按下一步，

11、会看到整个操作的摘要，按完成即可。

将EXCEL的数据提出放在数据集中，在通过循环将从表插入

<%

'On Error Resume Next

'导入Excel电子表格数据到SQL Sever数据库

Open_Conn(SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,SqlCon

n)

'创建数据库连接对象并打开数据库连接

Dim ConnStr

'SQL Server数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）

ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"

Set SqlConn = Server.CreateObject("ADODB.Connection")

SqlConn.Open ConnStr

If Err Then

Err.Clear

Set SqlConn = Nothing

Response.Write "数据连接错误!"

Response.End

End If

End

Close_Conn(SqlConn)

'关闭数据库连接并清除数据库连接对象

If IsObject(SqlConn) Then

SqlConn.Close

Set SqlConn = Nothing

End If

End

Call Open_Conn("Shat_EDG","","sa","(local)",SqlConn) '打开本地SQL Server数据库连接

Call Open_Conn("Shat_EDG","","sa","ssh03",SqlConn1) '打开远程SQL

Server数据库连接

Get_EMP_CnName(NTACCNT)

'根据用户NT帐号得到用户中文名

Dim Sql1,Rs1

Sql1 = "Select EMP_CNAME From RF_EMPLOYEE Where EMP_NTACCNT='"&NTACCNT&"'"

Set Rs1 = Server.CreateObject("Adodb.RecordSet")

Rs1.Open Sql1,SqlConn1,1,1

If Rs1.Eof Then

Get_EMP_CnName = ""

Else

Get_EMP_CnName = Rs1("EMP_CNAME")

End If

Rs1.Close

Set Rs1 = Nothing

End %>

导入Excel电子表格数据到SQL Sever数据库

请选择数据源（本地库）:

<% Dim RsSqlDatabaseTable

Set RsSqlDatabaseTable = SqlConn.OpenSchema(20)

Do While Not RsSqlDatabaseTable.Eof %>

><%=RsSqlDatabaseTable(2)%> <% RsSqlDatabaseTable.MoveNext:Loop

Set RsSqlDatabaseTable = Nothing %>

请选择目标表（远程库）:

<% Dim RsSqlDatabaseTable1

Set RsSqlDatabaseTable1 = SqlConn1.OpenSchema(20)

Do While Not RsSqlDatabaseTable1.Eof %>

><%=RsSqlDatabaseTable1(2)%> <% RsSqlDatabaseTable1.MoveNext:Loop

Set RsSqlDatabaseTable1 = Nothing %>

导出过程中请不要刷新页面！

<%

If Trim(Request("Table1")) <> "" Then

Dim Sql,Rs

Sql = "Select * From Sheet1$" 'Sheet1$是我们实现用SQL Server自身数据转换功能得到的表名

Set Rs = SqlConn.Execute(Sql)

If Rs.Eof And Rs.Bof Then

Response.write "没有找到您需要的数据!!
"

Else

Do While Not Rs.Eof

SqlInsert = "Insert Into "&Trim(Request("Table1"))&"