VB.NET实现Excel导入SQL数据库

大佬教程收集整理的这篇文章主要介绍了VB.NET实现Excel导入SQL数据库，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。

Dim strPath As String = File1.PostedFile.Filename
If strPath = "" Then
Response.Write(" <script> alert( '请先选择文件 ') </script> ")
Response.End()
End If
'定义连接字符串
Dim sConnectionString As String = "Provider=Microsoft.jet.oLEDB.4.0;Data source=" & strPath & "; Extended Properties=Excel 8.0;"
Try
Dim oleDbConnection As OleDbConnection = New OleDbConnection(sConnectionString)
oleDbConnection.open()

'获取excel表
Dim dataTable As DataTable = oleDbConnection.GetOleDbscheR_655_11845@aTable(OleDbscheR_655_11845@aGuid.Tables,Nothing)

'获取sheet名，其中(0)(1)...(N): 按名称排列的表单元素
Dim tablename As String = dataTable.Rows(0)(2).ToString().Trim()
tablename = "[" & tablename.replace(" ' "," ") & "]"

'利用sql语句从Excel文件里获取数据
Dim query As String = "SELECT 部门,全年任务,本年累计完成,上年同期完成,[完成全年任务的%],[可比增长%] FROM " & tablename
Dim dataset As DataSet = New DataSet()

Dim oleAdapter As OleDbDataAdapter = New OleDbDataAdapter(query,sConnectionString)

oleAdapter.Fill(dataset,"Rwb")

'SQL数据库连接
Dim sqlcon As SqlClient.SqlConnection = New SqlClient.SqlConnection("server=(local);database=test;user id=sa;password=123")
sqlcon.open()

'从excel文件获得数据后，插入记录到SQL Server的数据表
Dim dataTable1 As DataTable = New DataTable()

Dim sqlDA1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("SELECT 部门,[可比增长%] FROM Rwb ",sqlcon)

Dim sqlCB1 As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(sqlDA1)

sqlDA1.Fill(dataTable1)

Dim dataRow11 As DataRow
For Each dataRow11 In dataset.Tables("qssrzb").Rows
'sql里数据dataRow1
Dim dataRow1 As DataRow = dataTable1.NewRow()
dataRow1("部门") = dataRow11("部门")
dataRow1("全年任务") = dataRow11("全年任务")
dataRow1("本年累计完成") = dataRow11("本年累计完成")
dataRow1("上年同期完成") = dataRow11("上年同期完成")
dataRow1("完成全年任务的%") = dataRow11("完成全年任务的%")
dataRow1("可比增长%") = dataRow11("可比增长%")
dataTable1.Rows.Add(dataRow1)
Next
Console.WriteLine("新插入 " & dataTable1.Rows.Count.ToString() & " 条记录 ")
sqlDA1.update(dataTable1)

oleDbConnection.Close()
Catch ex As Exception
Console.WriteLine(ex.ToString())
End Try

大佬总结

以上是大佬教程为你收集整理的VB.NET实现Excel导入SQL数据库全部内容，希望文章能够帮你解决VB.NET实现Excel导入SQL数据库所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。