VB.NET实现EXCEL导入SQL数据库DimstrPathAsString=File1.PostedFile.FileNameIfstrPath=""ThenResponse.Write("<script>alert('请先选择文件')</script>")Response.End()EndIf'定义连接字符串DimsConnectionStringAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&strPath&";ExtendedProperties=Excel8.0;"TryDimoleDbConnectionAsOleDbConnection=NewOleDbConnection(sConnectionString)oleDbConnection.Open()'获取excel表DimdataTableAsDataTable=oleDbConnection.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,Nothing)'获取sheet名，其中(0)(1)...(N):按名称排列的表单元素DimtableNameAsString=dataTable.Rows(0)(2).ToString().Trim()tableName="["&tableName.Replace("'","")&"]"'利用SQL语句从Excel文件里获取数据DimqueryAsString="SELECT部门,全年任务,本年累计完成,上年同期完成,[完成全年任务的%],[可比增长%]FROM"&tableNameDimdatasetAsDataSet=NewDataSet()DimoleAdapterAsOleDbDataAdapter=NewOleDbDataAdapter(query,sConnectionString)oleAdapter.Fill(dataset,"Rwb")'SQL数据库连接DimsqlconAsSqlClient.SqlConnection=NewSqlClient.SqlConnection("server=(local);database=test;userid=sa;password=123")sqlcon.Open()'从excel文件获得数据后，插入记录到SQLServer的数据表DimdataTable1AsDataTable=NewDataTable()DimsqlDA1AsSqlClient.SqlDataAdapter=NewSqlClient.SqlDataAdapter("SELECT部门,全年任务,本年累计完成,上年同期完成,[完成全年任务的%],[可比增长%]FROMRwb",sqlcon)DimsqlCB1AsSqlClient.SqlCommandBuilder=NewSqlClient.SqlCommandBuilder(sqlDA1)sqlDA1.Fill(dataTable1)DimdataRow11AsDataRowForEachdataRow11Indataset.Tables("qssrzb").Rows'sql里数据dataRow1DimdataRow1AsDataRow=dataTable1.NewRow()dataRow1("部门")=dataRow11("部门")dataRow1("全年任务")=dataRow11("全年任务")dataRow1("本年累计完成")=dataRow11("本年累计完成")dataRow1("上年同期完成")=dataRow11("上年同期完成")dataRow1("完成全年任务的%")=dataRow11("完成全年任务的%")dataRow1("可比增长%")=dataRow11("可比增长%")dataTable1.Rows.Add(dataRow1)NextConsole.WriteLine("新插入"&dataTable1.Rows.Count.ToString()&"条记录")sqlDA1.Update(dataTable1)oleDbConnection.Close()CatchexAsExceptionConsole.WriteLine(ex.ToString())EndTry