Question

我的表格允许用户进口电子表格。该电子表格一般在列头上静止不变,但现在用户希望能列入一个任择栏(“说明”)。我的密码在我试图从电子表格中读一栏时坠毁。

        Dim objCommand As New OleDbCommand()
        objCommand = ExcelConnection()  function that opens spreadsheet and returns objCommand

        Dim reader As OleDbDataReader
        reader = objCommand.ExecuteReader()

        While reader.Read()
            Dim Employee As String = Convert.ToString(reader("User"))
            Dim SerialNUM As String = Convert.ToString(reader("serialno"))
            **Dim Notes As String = Convert.ToString(reader("notes"))**

如果电子表格包含一个附注栏,所有内容都很好。否则,坠毁。我怎么能够检查一下,在电子表格中是否有“说明”栏以避免坠毁?

Answer 1

Change the code to something like this: [EDIT - changed code logic)

Dim fieldCount = reader.FieldCount 
For i = 0 To fieldCount - 1
Dim colName = reader.GetName(i)
If (colName = "notes") Then
    Dim Notes As String = reader.GetString(i)
End If
Next i

Answer 2

也许OlegDbDataReader。外地计数可以帮助你规划工作。

友情链接