Problema para Actualizar y Guardar registros en Base de Datos

Iniciado por xRayderx, 14 Marzo 2018, 18:13 PM

0 Miembros y 1 Visitante están viendo este tema.

xRayderx

Buenas tardes, el siguiente problema trata de un proyecto que estoy realizando en el cual estoy tratando de guardar registros y actualizar los mismos en mi base de datos access, pero me generan los siguientes errores:

Este es el diseño que tengo como ejemplo:

https://imageshack.com/a/img922/9868/XlQkSg.jpg



Imports System.Data
Imports System.Data.OleDb

Public Class Form2
    Dim conexion As New OleDbConnection

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\jose\Documents\Visual Studio 2005\Projects\RJ Sports\RJ Sports\bin\Registro.mdb"

            MsgBox(" Conectado Correctamente ", vbInformation, " Conectado ")
        Catch ex As Exception
            MsgBox(" Error al conectar con la base de datos ", vbCritical, " Error ")
        End Try
    End Sub

    Private Sub btnGuardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
        conexion.Open()
        Try
            Dim cmd As OleDbCommand
            Dim r As Integer

            cmd = New OleDbCommand("insert into Registro(Cedula, Nombre, Apellido, Edad)values (' " & TextBox1.Text & " ', ' " & TextBox2.Text & " ', ' " & TextBox3.Text & " ', ' " & TextBox4.Text & " '),conexion")
            r = cmd.ExecuteNonQuery
            If r > 0 Then
                MsgBox(" Datos guardados correctamente ", vbInformation, " Guardado ")
            End If

        Catch ex As Exception
            MsgBox(" No se ha podido guardar los datos ", vbCritical, " Error ")

        End Try
        conexion.Close()

    End Sub

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        Dim x As String
        x = MsgBox(" Desea Salir? ", vbQuestion + vbYesNo)
        If x = vbYes Then
            Close()

        End If
    End Sub

    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click
        conexion.Open()
        Try
            Dim adaptador As OleDbDataAdapter
            Dim tabla As DataTable
            Dim buscar As String

            If ComboBox1.Text = " Todos " Then
                buscar = ("select * from Registro")
                adaptador = New OleDbDataAdapter(buscar, conexion)
                tabla = New DataTable
                adaptador.Fill(tabla)
                DataGridView1.DataSource = tabla

            Else

                buscar = ("select * from Registro where nombre = '" & ComboBox1.Text & " ' ")
                adaptador = New OleDbDataAdapter(buscar, conexion)
                tabla = New DataTable
                adaptador.Fill(tabla)
                DataGridView1.DataSource = tabla


            End If
        Catch ex As Exception
            MsgBox(ex.Message, vbCritical, " Error ")

        End Try
        conexion.Close()

    End Sub

    Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click
        conexion.Open()
        Try
            Dim cmd1 As OleDbCommand
            Dim resul As MsgBoxResult

            If ComboBox1.Text = "Todos" Or ComboBox1.Text = "todos" Then
                resul = MsgBox(" Estas seguro de querer eliminar todos los registros de la tabla? ", vbQuestion + vbYesNo, " Advertencia ")

                If resul = vbYes Then
                    cmd1 = New OleDbCommand("delete from Registro", conexion)
                    cmd1.ExecuteNonQuery()

                    MsgBox(" Todos los datos se eliminaron correctamente ", vbExclamation, " Correcto ")

                End If

            Else
                cmd1 = New OleDbCommand("delete from Registro where nombre = '" & ComboBox1.Text & " ' ", conexion)
                cmd1.ExecuteNonQuery()

                MsgBox(" Registro eliminado correctamente ", vbInformation, " Correcto ")


            End If
        Catch ex As Exception
            MsgBox(ex.Message, vbCritical, " Error ")

        End Try
        conexion.Close()

    End Sub

    Private Sub btnActualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnActualizar.Click
        Try
            My.Forms.Form3.Actualizar_Cedula.Text = DataGridView1.SelectedRows.Item(1).Cells(1).Value.ToString
            My.Forms.Form3.Actualizar_Nombre.Text = DataGridView1.SelectedRows.Item(2).Cells(2).Value.ToString
            My.Forms.Form3.Actualizar_Apellido.Text = DataGridView1.SelectedRows.Item(3).Cells(3).Value.ToString
            My.Forms.Form3.Actualizar_Edad.Text = DataGridView1.SelectedRows.Item(4).Cells(4).Value.ToString
            My.Forms.Form3.Actualizar_Cedula.Enabled = False
            Form3.Show()

        Catch ex As Exception
            MsgBox(" Error: " & ex.Message.ToString)

        End Try
    End Sub
End Class



Cuando quiero guardar un registro me sale el mensaje de "No se ha podido guardar los datos"

El error al dar click en Actualizar dice esto: "Error: el indice estaba fuera del intervalo. Debe ser un valor no negativo e inferior al tamaño de la colección. 
Nombre del parametro: index"

No tengo mas idea de que pueda estar generando esos problemas. Saludos

Serapis

#1
No debes ser perezoso e intentar investigar por tí mismo...

Si sabes que el fallos e produce al actualizar, y el mensaje es que "el índice está fuera del rango...", y el objeto usado que tiene elementos es un datagridview, y la colección es "selectedRows", entonces porqué no investigas cuántos en efecto están seleccionados ?... es decir cuántos elementos tiene la colección SelectedRows?... y fíjate que es "selectedrows", quizás no esa colección la que desees usar...

En última instancia recuerda que aunque en efecto hubiera 4 elementos en la colección, los índices en general siempre van desde 0 hasta count-1, es decir 0, 1, 2, 3 ... naturalmente a veces el elemento 0, se deja como título, indice, etc...

Tu mismo tienes la respuesta, apenas pienses, pero investiga un poco, y usa el depurador que incluye el IDE... que es muy potente.


p.d.:
Volviendo a mirar, también veo que el ítem y la celda, tienen el mismo índice, esto implica que las celdas, están en diagonal... dudo mucho que deba ser así...

Así son los ítem(n).cell(n) que tienes
|0|1|2|3|4|
|x|_|_|_|_|
|_|x|_|_|_|
|_|_|x|_|_|
|_|_|_|x|_|
|_|_|_|_|x|


Cuando lo más probable es que fuere, así:
|0|1|2|3|4|
|x|_|_|_|_|
|x|_|_|_|_|
|x|_|_|_|_|
|x|_|_|_|_|
|x|_|_|_|_|

O así:
|0|1|2|3|4|
|x|x|x|x|x|
|_|_|_|_|_|
|_|_|_|_|_|
|_|_|_|_|_|
|_|_|_|_|_|