vb.netを使用してExcelからSQL Serverにデータをインポート

Question

vb.netを使用してExcelからSQL Serverデータベースにデータをインポートしています。私のExcelファイルでは、列bNumberに、異なる種類の値がありますいくつかの数字であり、一部はテキストです。すなわち：私はOleDbCommandを通じてExcelからデータを選択すると

Telenorx 
Telenorx 
8 
97150219924 
97150219924 
97150219924 
97150219924 
Easypayx 
92 

、それは正しく番号を取得しますが、テキスト値として空白。

Excelでは、列のデータ型はGeneralです。

これはExcelからデータを取得するためのコードです。

excelConn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data 
Source= " + OpenFileDialog1.FileName + ";Extended Properties=""Excel 12.0 
Xml;HDR=Yes""") 
Dim oleDbCommand As OleDbCommand = New OleDbCommand("Select bNumber from 
[Sheet1$]", excelConn) 
excelConn.open() 
Dim dataReader = oleDbCommand.ExecuteReader 
dataReader.read() 

Answer 1

これは必ずしもあなたのケースのためのソリューションではありません、まだ私はでExcelファイルを置いExcelにエクスポートするためにSQL-Server Management Studioを使用し、nvarchar型としてbNumberとSQL-Serverのテーブルを作成しましたでしたでしょうプロジェクトのbin \ Debugフォルダに移動します。以下のコードを使用すると、すべての行が適切に返されます（文字列が返されるため）。

ここでのキーは、接続文字列でIMEX = 1を使用しているため、Excelが厄介になる可能性があります。これは問題を解決する場合もありません。

Imports System.Data.OleDb 
Public Class Operations 
    Public Function GetData(ByVal FileName As String) As List(Of String) 
     Dim valueList As New List(Of String) 
     Using cn As New OleDbConnection With 
      { 
       .ConnectionString = ConnectionString(FileName) 
      } 
      Using cmd As OleDbCommand = New OleDbCommand("SELECT bNumber FROM [Table_1$]", cn) 
       cn.Open() 
       Dim reader As OleDbDataReader = cmd.ExecuteReader 
       While reader.Read 
        valueList.Add(reader.GetString(0)) 
       End While 
      End Using 
     End Using 
     Return valueList 
    End Function 
    Public Function ConnectionString(ByVal FileName As String) As String 
     Dim Builder As New OleDbConnectionStringBuilder 
     If IO.Path.GetExtension(FileName).ToUpper = ".XLS" Then 
      Builder.Provider = "Microsoft.Jet.OLEDB.4.0" 
      Builder.Add("Extended Properties", "Excel 8.0;IMEX=1;HDR=Yes;") 
     Else 
      Builder.Provider = "Microsoft.ACE.OLEDB.12.0" 
      Builder.Add("Extended Properties", "Excel 12.0;IMEX=1;HDR=Yes;") 
     End If 

     Builder.DataSource = FileName 

     Return Builder.ConnectionString 

    End Function 
End Class 

フォームコードIDEの出力ウィンドウに

Private Sub Button3_Click(sender As Object, e As EventArgs) _ 
    Handles Button3.Click 

    Dim ops As New Operations 
    Dim fileName As String = IO.Path.Combine(
     AppDomain.CurrentDomain.BaseDirectory, "Downloaded.xlsx") 
    Dim valueList As List(Of String) = ops.GetData(fileName) 
    For Each value As String In valueList 
     Console.WriteLine(value) 
    Next 
End Sub 

結果

表構造

ワークシート

EDIT：SpreadSheetLightライブラリを操作するためのMSDNのコードサンプルには次のリンクポイント。ダウンロードしたら、スタートアップフォームをStackOverFlow1QuestionMixedTypesFormに設定します。ソリューションエクスプローラでソリューションを右クリックし、 "Restore NuGet Packages"を選択し、プロジェクトをビルドして実行します。フォームには2つのボタンがあり、最初にSheet1の混合タイプを、ボタン2は同じデータの変形をSheet2に配置しています。

コードサンプルhttps://code.msdn.microsoft.com/Alternate-methods-to-work-4c52c4a2