none
ACTUALIZAR ACCESS CON VB 2012, NO ME DA ERROR PERO NO ACTUALIZA EL REGISTRO. RRS feed

  • Pregunta

  • Aqui les dejo el codigo no para ver quien seria amable de ayudarme, ya que corre pero pongo las actualizaciones en los textbox y no aparece en access la actualización. Agradecido.

    Private Sub Actualiz_Click(sender As Object, e As EventArgs) Handles Actualiz.Click
            Dim actualizar As String
            actualizar = "UPDATE Reg_Propietarios SET Nroinmueble = " & txtapto.Text & _
            "' Nroinmueble = '" & txtapto.Text & _
            "' Propietario = '" & txtprop.Text & _
            "' email = '" & txtemail.Text & _
            "' telocal = '" & txttelocal.Text & _
            "' temovil = '" & txttemovil.Text & _
            "' edific = '" & txtedific.Text & _
            "' ciudad = '" & txtciudad.Text & _
            "' Metroscdosinmueb = '" & txtmetros.Text & _
            "' CantPstosEstac = '" & txtptoestac.Text & _
            "' PtoMaletero = '" & txtmaletero.Text & _
            "' Alquilado = '" & txtalq.Text & _
            "' Alicuota = '" & txtalic.Text & _
            "' totpagmant = '" & txtpagmant.Text & _
            "' where Propietario = '" & txtprop.Text '"
            Try
                conexion.Open()
                comandos = New OleDb.OleDbCommand(actualizar, conexion)
                'comandos.ExecuteNonQuery()
                MsgBox("Actualización Correcta", vbCritical, "ACTUALIZADO")
            Catch ex As System.IO.IOException
                MsgBox("Error tratando de actualizar registro", vbCritical, "Error Actualizando")
                'Catch ex As OleDbException
                conexion.Close()
            End Try
            conexion.Close()
        End Sub

    domingo, 3 de abril de 2016 20:52

Todas las respuestas

  • Hola,

    Que error te muestra?

    Ese es el código que realmente ejecutas?, porque veo errores.

    UPDATE Reg_Propietarios SET Nroinmueble = " & txtapto.Text & _
            "' Nroinmueble = '" & txtapto.Text & _


    "' where Propietario = '" & txtprop.Text & "'"

    Y las comas que separan los campos ??

     Dim sql As String = "update table1 set campo1 = @campo1, campo2 = @campo2 where campo3 = @campo3 "
            comandos.Parameters.AddWithValue("@campo1", MiTextBox1.Text)
            comandos.Parameters.AddWithValue("@campo2", MiTextBox2.Text)
            comandos.Parameters.AddWithValue("@campo3", MiTextBox3.Text)


    Saludos.


    JC NaupaCrispín


    domingo, 3 de abril de 2016 20:59