VB.net讀取Excel的頁面

Question

我想讀一個Excel頁面，但我得到以下錯誤：

Input string was not in a correct format.Couldn't store <555-555-5555> in PHONE_NUM Column. Expected type is Double.

看來，OLEDB命令期待列的類型爲雙（但是，在事實上，這是一個電話號碼字符串）。我想我會在某處讀到這種情況，因爲該命令看起來像列中的第一對項目，並確定了該類型應該基於哪個類型。無論如何總是以字符串形式讀取所有值？

這是我使用的代碼：

Dim connection As OleDb.OleDbConnection 
Dim command As OleDb.OleDbCommand 
Dim adapter As New OleDb.OleDbDataAdapter 
Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + myFile + ";Extended Properties=Excel 12.0;" 
Dim pgOne As String = "Page1$" 
Dim pgTwo As String = "Page2$" 
Dim selectOne As String = "SELECT * FROM [" & pgOne & "] WHERE COL1<>''" 
Dim selectTwo As String = "SELECT * FROM [" & pgTwo & "]" 

connection = New OleDb.OleDbConnection(connString) 
Try 
    If connection.State = ConnectionState.Open Then 
    Else 
     connection.Open() 
    End If 

    command = New OleDb.OleDbCommand(selectOne, connection) 
    adapter.SelectCommand = command 
    adapter.Fill(ds, "Table1") 

    adapter.SelectCommand.CommandText = selectTwo 
    adapter.Fill(ds, "Table2") 
Catch ex As OleDb.OleDbException 
Finally 
    adapter.Dispose() 
    If (Not command Is Nothing) Then 
     command.Dispose() 
    End If 
    connection.Close() 
End Try 

Answer 1

如上所述，我無法解決這個問題，所以我剛剛手動創建了一個模式，並在數據綁定時格式化數據。

Answer 2

你可以得到表填寫在以下兩種方式之一字符串。如果你只想把它們作爲一個字符串讀取，你可以在你的連接字符串中添加一部分，它應該將混合的數據類型列作爲文本讀取。也可以通過在標題行中讀取數據來將它們強制爲字符串類型。您也可以使用模式讀取表格定義，但如果這些不適合您，我需要找到更多信息。

第一個選項是簡單的事：

首先改變你的連接字符串添加IMEX = 1

'Add IMEX=1 
Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;IMEX=1;Data Source=" + myFile + ";Extended Properties=Excel 12.0;" 

這應該那麼您提供基於String列上具有混合數據類型的任何datacolumns在他們的行中。

另一種方法是通過指定連接字符串中沒有標題行來讀取標題行作爲數據行來強制字符串列類型。然後，您可以在刪除後獲得一串字符串數據。

'Add HDR=NO 
Dim connString As String = "Provider=Microsoft.ACE.OLEDB.12.0;HDR=NO;Data Source=" + myFile + ";Extended Properties=Excel 12.0;" 

我會再研究一下，如果這些不適合你。