none
An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll Additional information: A conversão da cadeia "DELETE * FROM resultados WHERE I" para o tipo 'Double' não é válida. RRS feed

  • Pergunta

  • O Objetivo é eliminar uma row presente numa list view, e esta com dados de uma database

    O erro que e está a dar é o seguinte e aparece em (1) : 

    An unhandled exception of type 'System.InvalidCastException' occurred in Microsoft.VisualBasic.dll

    Additional information: A conversão da cadeia "DELETE * FROM resultados WHERE I" para o tipo 'Double' não é válida.

    Este é o codigo:

    Private Sub Eliminar(ID As Decimal)
            Dim sql As String
            (1)sql = "DELETE * FROM resultados WHERE ID=" + ID + ""
            cmd = New OleDbCommand(sql, con)
            'abre conexao, elimina resultados e fecha conexão
            Try
                con.Open()
                adapter = New OleDbDataAdapter(cmd)
                adapter.DeleteCommand = con.CreateCommand()
                adapter.DeleteCommand.CommandText = sql
                'Comando para comunicação
                If MessageBox.Show("Tem a certeza??", "Eliminar", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning) Then
                    If cmd.ExecuteNonQuery() > 0 Then
                        MsgBox("Eliminado com sucesso")
                        CleartextBoxes()
                    End If
                End If
                con.Close()
                VerTabela()
            Catch ex As Exception
                MsgBox(ex.Message)
                con.Close()
            End Try
        End Sub


    • Editado Hugoduarte quinta-feira, 16 de fevereiro de 2017 12:59
    quinta-feira, 16 de fevereiro de 2017 12:58

Respostas

Todas as Respostas