Else
tableStructStr += col.ColumnName + " VarChar,"
End If
End If
i += 1
Next
Try
objcmd.CommandText = tableStructStr
If objconn.State = ConnectionState.Closed Then objconn.Open()
objcmd.ExecuteNonQuery()
Catch ex As Exception
Throw ex
End Try
Dim InsertSql_1 As String = "Insert into " + dt.TableName + " ("
Dim InsertSql_2 As String = " Values ("
Dim InsertSql As String = ""
For colID As Integer = 0 To colCount - 1 Step 1
If colID + 1 = colCount Then
InsertSql_1 += dt.Columns(colID).ColumnName")"
InsertSql_2 += "@" + dt.Columns(colID).ColumnName + ")"
Else
InsertSql_1 += dt.Columns(colID).ColumnName + ","
InsertSql_2 += "@" + dt.Columns(colID).ColumnName + ","
End If
Next
InsertSql = InsertSql_1 + InsertSql_2
For rowID As Integer = 0 To dt.Rows.Count - 1 Step 1
For colID = 0 To dt.Columns.Count - 1
If pa(colID).DbType = DbType.Double And dt.Rows(rowID)(colID).ToString.Trim = "" Then
pa(colID).Value = https://www.04ip.com/post/0
Else
pa(colID).Value = https://www.04ip.com/post/dt.Rows(rowID)(colID).ToString.Trim
End If
Next
Try
objcmd.CommandText = InsertSql
objcmd.ExecuteNonQuery()
Catch ex As Exception
Throw ex
End Try
Next
Try
If objconn.State = ConnectionState.Open Then objconn.Close()
Catch exp As Exception
Throw exp
End Try
Return True
End Function
' 获取Excel文件数据表列表Sheets
Public Shared Function GetExcelTables(ExcelFileName As String) As ArrayList
'Dim sheets As New List(Of String)
'conn.Open()
'Dim dt As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
'For Each r In dt.Rows
'sheets.Add(r("TABLE_NAME"))
'Next
'conn.Close()
'Return sheets
Dim dt As DataTable
If Not File.Exists(ExcelFileName) Then
Throw New Exception("指定的Excel文件不存在")
Return Nothing
End If
Dim tableList As New ArrayList
Using conn As OleDbConnection = New OleDbConnection(buildConnStr(ExcelFileName))
Try
conn.Open()
dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})
Catch ex As Exception
Throw ex
End Try
For i As Integer = 0 To dt.Rows.Count - 1
Dim tableName As String = dt.Rows(i)(2).ToString.Trim.TrimEnd("$")
If tableList.IndexOf(tableName)0 Then tableList.Add(tableName)
Next
End Using
Return tableList
End Function
'将Excel文件导出至DataTable(第一行作为表头)
Public Shared Function InputFromExcel(ExcelFileName As String, TableName As String) As DataTable
If Not File.Exists(ExcelFileName) Then
Throw New Exception("指定的Excel文件不存在")
End If
Dim tableList As ArrayList = GetExcelTables(ExcelFileName)
If tableList.IndexOf(TableName)0 Then
TableName = tableList(0).ToString.Trim
End If
Dim dt As New DataTable
Dim conn As New OleDbConnection(buildConnStr(ExcelFileName))
Dim cmd As New OleDbCommand("select * from ["TableName"$]", conn)'调试是否需要$
Dim adapter As New OleDbDataAdapter(cmd)
Try
If conn.State = ConnectionState.Closed Then conn.Open()
adapter.Fill(dt)
Catch ex As Exception
Throw ex
Finally
If conn.State = ConnectionState.Open Then conn.Close()
End Try
Return dt
End Function
'查询excel文件中的一个数据
Public Shared Function ReadOneDataFromExcel(ExcelFileName As String, TableName As String, sql As String) As Object
If Not File.Exists(ExcelFileName) Then
Throw New Exception("指定的Excel文件不存在")
End If
Dim tableList As ArrayList = GetExcelTables(ExcelFileName)

推荐阅读

• 

  学习的方法
• 

  男人怎么提臀比较好呢？
• 

  怎样选择安全座椅儿童安全座椅 如何挑选安全座椅
• 

  热水焯一下是什么意思
• 

  最近要结婚了，婚纱礼服有哪些款式？如何挑选？
• 

  什么是oa审批流程 什么是oa
• 

  《去有风的地方》娜娜结局怎么样
• 

  摄影PPT 摄影po
• 

  扫盲日是什么意思 扫盲日具体是什么意思
• 

  软件 成本分析方法,软件成本估算模型
• 

  烟灰有什么作用 烟灰水浇什么花好
• 

  全球首款网络动作格斗游戏，动作格斗端游
• 

  康复期|贵阳1例境外输入无症状感染者康复期核酸阳性 详情公布
• 

  鸭胗怎么做爽脆
• 

  兰渝铁路会有动车组吗？兰成铁路呢？
• 

  角绿有哪些作品
• 

  苹果11的pro和promax有什么区别 11max和pro的区别
• 

  求一个电脑ip的地址
• 

  大学生失业补助金领取条件有哪些要求 能领多少钱
• 

  宣讲家视频如何下载到手机上 宣讲家视频如何下载，宣讲家视频如何下载到相册

• 模拟汽车教练游戏，模拟车教练有提成吗
• 安卓破解软件的危害，安卓破解软件的危害有哪些
• 没显卡怎么看cpu的核显，没有显卡的cpu
• 罗永浩直播调色设备怎么样，罗永浩直播用的什么摄像机
• linux启动运行命令行 linux中启动命令
• 显卡怎么设置好，显卡哪里设置
• html与css入门经典第七版，html和css教程书
• 正版音乐下载，最全音乐下载
• 网购系统JAVA语言代码 java购物网站代码