トップ回答者
EXCEL2000からSQLServer2005へのデータインポート

質問
すべての返信
-
下記コードにてインポートできました
Imports System.Configuration
Imports System.Data.Common
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public Function ImpExcel() As IntegerDim excelConStr As String = ConfigurationManager.ConnectionStrings("Xls").ConnectionString
Using connection As OleDbConnection = New OleDbConnection(excelConStr)
Dim command As OleDbCommand = New OleDbCommand("select * from [Sheet1$] ", connection)
connection.Open()
Using dr As DbDataReader = command.ExecuteReader
Dim sqlConStr As String = ConfigurationManager.ConnectionStrings("SqlDB").ConnectionString
Using bulkCopy As SqlBulkCopy = New SqlBulkCopy(sqlConStr)
bulkCopy.DestinationTableName = ""
Try
bulkCopy.WriteToServer(dr)
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
dr.Close()
End Try
End Using
End Using
End Using
End FunctionAPP.CONFIG
<connectionStrings>
<add name="SqlDB" connectionString="Data Source=サーバ名;Persist Security Info=True;User ID=ユーザID;Password=パスワード"
providerName="System.Data.SqlClient" />
<add name="Xls" connectionString="provider=Microsoft.Jet.OLEDB.4.0; data source=エクセルファイルのパス; Extended Properties='Excel 8.0;HDR=YES;'"
providerName="System.Data.OleDb" />
</connectionStrings>