CODEWITHSUNDEEP
vb.net
Marc Chemali
Marc Chemali

Reputation: 109

The given key was not present in the dictionary - Error: _HResult -2146232969

I am receiving the error "The given key was not present in the dictionary" while running the below, any ideas how to fix this ? Thank you

            Dim con As New SqlConnection
            Dim cmd As New SqlCommand
            con.ConnectionString = "Data Source=USER\SQLEXPRESS;Initial Catalog=DBName;Integrated Security=SSPI"
            con.Open()
            cmd.Connection = con
            Try
                Dim InsertCommand As New SqlCommand

                cmd.Parameters.Add("@Name", SqlDbType.VarChar).Value = Name
                cmd.Parameters.Add("@rowdata.Item(0)", SqlDbType.VarChar).Value = rowData.Item(0)
                cmd.Parameters.Add("@rowdata.Item(1)", SqlDbType.VarChar).Value = rowData.Item(1)
                cmd.Parameters.Add("@rowdata.Item(2)", SqlDbType.VarChar).Value = rowData.Item(2)
                cmd.Parameters.Add("@rowdata.Item(3)", SqlDbType.VarChar).Value = rowData.Item(3)
                cmd.Parameters.Add("@rowdata.Item(4)", SqlDbType.VarChar).Value = rowData.Item(4)
                cmd.Parameters.Add("@rowdata.Item(5)", SqlDbType.VarChar).Value = rowData.Item(5)

            Catch ex1 As Exception
                MessageBox.Show("Error!" & ex1.Message)

                cmd.CommandText = "INSERT INTO allData (Name, Num1, Num2, Num3, Num4, Num5, Num6) VALUES (@Name,rowData.Item(0),rowData.Item(1),rowData.Item(2),rowData.Item(3),rowData.Item(4),rowData.Item(5))"
                cmd.ExecuteNonQuery()

            Finally
                con.Close()
            End Try

Upvotes: 0

Views: 4608

Answers (1)

Steve
Steve

Reputation: 216323

Change your code to 

Try
    Dim InsertCommand As New SqlCommand
    cmd.Parameters.Add("@Name", SqlDbType.VarChar).Value = Name
    cmd.Parameters.Add("@num1", SqlDbType.VarChar).Value = rowData.Item(0)
    cmd.Parameters.Add("@num2", SqlDbType.VarChar).Value = rowData.Item(1)
    cmd.Parameters.Add("@num3", SqlDbType.VarChar).Value = rowData.Item(2)
    cmd.Parameters.Add("@num4", SqlDbType.VarChar).Value = rowData.Item(3)
    cmd.Parameters.Add("@num5", SqlDbType.VarChar).Value = rowData.Item(4)
    cmd.Parameters.Add("@num6", SqlDbType.VarChar).Value = rowData.Item(5)
    cmd.CommandText = "INSERT INTO allData (Name, Num1, Num2, Num3, Num4, Num5, Num6) " + 
                      "VALUES (@Name,@num1,@num2,@num3,@num4,@num5,@num6)"
    cmd.ExecuteNonQuery()
Catch ex1 As Exception
    MessageBox.Show("Error!" & ex1.Message)
Finally
    con.Close()
End Try

As you have written the code above, the execution of the command is inside the catch clause and this means that it is executed only if there is an exception in the preparation of the Parameters.
However this could only be a typo, more problematic are the parameter names.
I suggest you to simplify the placeholders names using a simple pattern.

Upvotes: 3

Related Questions