Excel シートを SQL データベースにインポートしています。すべて正常に動作しますが、列ヘッダーを静的な値として読みたいと思います。これを行う方法がわからない。シートを読み取るために使用しているコードは次のとおりです。
'Connection String to Excel Workbook
Dim excelConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & MyFile & ";Extended Properties=""Excel 12.0;HDR=Yes;"""
' Create Connection to Excel Workbook
Using connection As New System.Data.OleDb.OleDbConnection(excelConnectionString)
'List columns you need from the Excel file
Dim command As New System.Data.OleDb.OleDbCommand("Select * FROM [" & txtSheetName.Text & "$]", connection)
connection.Open()
' Create DbDataReader to Data Worksheet
Using dr As System.Data.OleDb.OleDbDataReader = command.ExecuteReader()
Dim strSql As String = ""
strSql = "INSERT INTO tblMine (" & _
"Header1, Field1, Field2 " & _
") VALUES (" & _
"Header1, Field1, Field2)"
Try
If dr.HasRows() Then
While dr.Read()
If Convert.ToString(dr.Item(1)) <> "" Then
Dim cmd As New SqlClient.SqlCommand
cmd.Connection = cn
cmd.CommandType = CommandType.Text
cmd.CommandText = strSql
'DataTable1.Columns[0].ColumnName
cmd.Parameters.Add("@Header1", SqlDbType.VarChar).Value = ???
cmd.Parameters.Add("@Field1", SqlDbType.VarChar).Value = Convert.ToString(dr.Item(0))
cmd.Parameters.Add("@Field2", SqlDbType.Int).Value = Convert.ToInt32(dr.Item(1))
cmd.ExecuteScalar()
End If
End While
End If