把Excel表导入SQL数据库的两种方法_第1页
把Excel表导入SQL数据库的两种方法_第2页
把Excel表导入SQL数据库的两种方法_第3页
把Excel表导入SQL数据库的两种方法_第4页
免费预览已结束，剩余1页可下载查看

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、把Excel表导入SQL数据库的两种方法SQLServer自身就有导入功能的1、打开企业管理器，打开要导入数据的数据库，在表上按右键，所有任务->导入数据，弹出DTS导入/导出向导，按下一步,2、选择数据源MicrosoftExcel97-2000,文件名选择要导入的xls文件，按3、选择目的用于SQLServer的MicrosoftOLEDB提供程序，服务器选择本地（如果是本地数据库的话，如VVV）,使用SQLServer身份验证，用户名sa,密码为空，数据库选择要导入数据的数据库（如client）,按下一步，4、选择用一条查询指定要传输的数据，按下一步，5、按查询生成器，在源表列表中

2、，有要导入的xls文件的列，将各列加入到右边的选中的列列表中，这一步一定要注意，加入列的顺序一定要与数据库中字段定义的顺序相同，否则将会出错，按下一步，6、选择要对数据进行排列的顺序，在这一步中选择的列就是在查询语句中orderby后面所跟的列，按下一步，7、如果要全部导入，则选择全部行，按下一步，8、则会看到根据前面的操作生成的查询语句，确认无误后，按下一步，9、会看到表/工作表/Excel命名区域列表，在目的歹I，选择要导入数据的那个表，按下一步，10、选择立即运行，按下一步，11、会看到整个操作的摘要，按完成即可。将EXCEL勺数据提出放在数据集中，在通过循环将从表插入<%'

3、;OnErrorResumeNext'导入Excel电子表格数据到SQLSever数据库Open_Conn（SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName,SqlConn)'创建数据库连接对象并打开数据库连接DimConnStr'SQLServer数据库连接参数：数据库名、用户密码、用户名、连接名(本地用local,外地用IP)ConnStr="Provider=Sqloledb;UserID="&SqlUsername&"Password="&Sq

4、lPassword&"InitialCatalog="&SqlDatabaseName&"DataSource="&SqlLocalName&""SetSqlConn=Server.CreateObject("ADODB.Connection")SqlConn.OpenConnStrIfErrThenErr.ClearSetSqlConn=NothingResponse.Write"数据连接错误!"Response.EndEndIfEndClose_Con

5、n(SqlConn)'关闭数据库连接并清除数据库连接对象IfIsObject(SqlConn)ThenSqlConn.CloseSetSqlConn=NothingEndIfEndCallOpen_Conn("Shat_EDG","","sa","(local)",SqlConn)'打开本地SQLServer数据库连接CallOpen_Conn("Shat_EDG","","sa","ssh03",SqlConn1)&#

6、39;打开远程SQLServer数据库连接Get_EMP_CnName(NTACCNT)'根据用户NT帐号得到用户中文名DimSql1,Rs1Sql1="SelectEMP_CNAMEFromRF_EMPLOYEEWhereEMP_NTACCNT='"&NTACCNT&皿SetRs1=Server.CreateObject("Adodb.RecordSet")Rs1.OpenSql1,SqlConn1,1,1IfRs1.EofThenGet_EMP_CnName=""ElseGet_EMP_CnName

7、=Rs1("EMP_CNAME")EndIfRs1.CloseSetRs1=NothingEnd%><html><head><title>导入Excel电子表格数据到SQLSever数据库</title><bodybgcolor="#ACD9AF”><center><b>导入Excel电子表格数据到SQLSever数据库</b></center><FORMMETHOD="POST"name="form1"&

8、gt;请选择数据源(本地库)：<SELECTNAME="Table"title="请选择需要导入数据的表"><option></option><%DimRsSqlDatabaseTableSetRsSqlDatabaseTable=SqlConn.OpenSchema(20)DoWhileNotRsSqlDatabaseTable.Eof%><option<%IfTrim(Request("Table")=RsSqlDatabaseTable(2)ThenResponse.W

9、rite"selected"%>><%=RsSqlDatabaseTable(2)%></option><%RsSqlDatabaseTable.MoveNext:LoopSetRsSqlDatabaseTable=Nothing%></SELECT><inputtype=submitname=submit="开始导出"><br>请选择目标表(远程库)：<SELECTNAME="Table1"title="请选择需要导入数据的表&quo

10、t;><option></option><%DimRsSqlDatabaseTable1SetRsSqlDatabaseTable1=SqlConn1.OpenSchema(20)DoWhileNotRsSqlDatabaseTable1.Eof%><option<%IfTrim(Request("Table1")=RsSqlDatabaseTable1(2)ThenResponse.Write"selected"%>><%=RsSqlDatabaseTable1(2)%>&l

11、t;/option><%RsSqlDatabaseTable1.MoveNext:LoopSetRsSqlDatabaseTable1=Nothing%></SELECT></FORM><fontcolor=blue>导出过程中请不要刷新页面！</font><br><%IfTrim(Request("Table1")<>""ThenDimSql,RsSql="Select*FromSheet1$"'Sheet1$是我们实现用SQLS

12、erver自身数据转换功能得到的表名SetRs=SqlConn.Execute(Sql)IfRs.EofAndRs.BofThenResponse.Write"没有找到您需要的数据!<br>"ElseDoWhileNotRs.EofInto"&Trim(Request("Table1")&"SqlInsert="Insert(EDG_Project_Name,EDG_Project_No,EDG_Project_VM,EDG_Project_VM_CnName,EDG_Project_M,EDG_

13、Project_M_CnName,EDG_Project_Director,EDG_Project_Director_CnName)s(”'&Trim(Rs("工程名称")&"''&Trim(Rs("工程编号")&"',”'&Trim(Rs("项目副理")&"''&Trim(Rs("项目副理")&"("&Get_EMP_CnName(Tri

14、m(Rs('项目副理")&")"&"','"&Trim(Rs("项目经理")&"',”'&Trim(Rs("项目经理")&"("&Get_EMP_CnName(Trim(Rs("项目经理")&")"&''"&Trim(Rs("项目总监")&"':"&Trim(Rs("项目总监")&"("&Get_EMP_CnName(Trim(Rs(项目总监")&")"&"')"'Response.WriteSqlInsert'此处插入的值根据实际数据库结构进行调整SqlConn1.Execute(SqlInsert)'插

人人文库> 全部分类> 应用文书 > 作业报告

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论