InvalidArgument =值'11209485'對於'索引'無效。 參數名稱：在VB.NET中運行SQL查詢時出現索引錯誤

Question

當我嘗試從數據庫中檢索卡號並將其放在組合框中時，我不斷收到此錯誤“無法通信InvalidArgument =值'11209485'對於'index'無效。參數名稱：index”用戶可以在VB.NET 2012中選擇其卡號。11209485是數據庫中的第一個卡號，因此我認為連接正常，但我根本不理解此錯誤。

謝謝您對此事的幫助。 謝謝！

導入MySql.Data

導入MySql.Data.MySqlClient

公開課表格1

Dim dbCon As MySqlConnection
Dim strQuery As String = ""
Dim SQLcmd As MySqlCommand
Dim DataReader As MySqlDataReader

' load application Form
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    'Prepare connection and query
    Try
        dbCon = New MySqlConnection("Server=localhost;Database=***;Uid=***;Pwd=***")

        strQuery = "SELECT CardNumber " &
                   "FROM Account"

        SQLcmd = New MySqlCommand(strQuery, dbCon)

        'Open the connection
        dbCon.Open()

        ' create database reader to read information from database
        DataReader = SQLcmd.ExecuteReader

        ' fill ComboBox with account numbers
        While DataReader.Read
            cboAccountNumbers = cboAccountNumbers.Items(DataReader("CardNumber"))
        End While

        'Close the connection
        DataReader.Close()
        dbCon.Close()

    Catch ex As Exception

        MsgBox("Failure to communicate" & vbCrLf & vbCrLf & ex.Message)


    End Try
End Sub

末級

Answer 1

錯誤在這一行：

cboAccountNumbers = cboAccountNumbers.Items(DataReader("CardNumber"))

您正在嘗試閱讀組合框中的第11209485個項目，但沒有很多項目。 嘗試以下方法：

cboAccountNumbers.Items.Add(DataReader("CardNumber"))