Visual Basic - BOTON MODIFICAR

Life is soft - evento anual de software empresarial
   
Vista:

BOTON MODIFICAR

Publicado por Blanca Mirley Fierro mirleyfierro@hotmail.com (6 intervenciones) el 19/01/2012 21:18:13
ESTOY REALIZANDO UN CODIGO PARA EL BOTON MODIFICAR PERO ME APARECE EL SIGUIENTE ERROR " Instruccion SQL no válida, se esperaba 'DELETE' ,INSERT', 'PROCEDURE', ´SELECT' o 'UPDATE' ................. es para modificar una base de datos de access desde Visual Basic 2010..........Acontinuación Les coloco el codigo que llevo.......por favor ayudenme lo necesito URGENTE!!!

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim conexion As String = ("Provider = Microsoft.Jet.OleDb.4.0;Data Source = C:\Users\blanca\documents\visual studio 2010\Projects\Damnificados_Desastres2\Damnificados_Desastres2\Damnificados_Desastres2.mdb")
Dim meconexion As New OleDbConnection(conexion)
meconexion.Open()

Dim Modificar As String = "UPDATE Damnificados SET Registro = ‘" & Registro.Text & "‘, Cedula = ‘" & Cedula.Text & "‘, NombreJefeHogar = ‘" & NombreJefeHogar.Text & "‘,MiembrosHogar = ‘" & MiembrosHogar.Text & "‘,Direccion = ‘" & Direccion.Text & "‘,N_Formulario = ‘" & N_Formulario.Text & "‘,FechaRegistro = ‘" & FechaRegistro.Text & "‘"
conexion = " WHERE Cedula = ‘" & Cedula.Text & "‘"
Dim comando = New OleDb.OleDbCommand(conexion, meconexion)

Try

Dim da As OleDbDataAdapter
da = New OleDbDataAdapter(conexion, meconexion)
Dim cmdBuilder As New OleDbCommand
Dim dt As New DataTable
da.Fill(dt)
Dim dr As DataRow = dt.NewRow()
comando.ExecuteNonQuery()
dt.AcceptChanges()
meconexion.Close()

Catch ex As Exception
MessageBox.Show(ex.Message)
MsgBox(ex.ToString)
End Try
Me.Validate()
Me.DamnificadosBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Damnificados_Desastres2DataSet)
End Sub

¡¡¡GRACIAS POR SU COLABORACION!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

BOTON MODIFICAR

Publicado por Christian (666 intervenciones) el 30/01/2012 17:27:26
Hola Blanca, para mi te hiciste un nudo con las variables...

Proba de hacer el update asi

"UPDATE Damnificados SET Registro = '" & Registro.Text & "', Cedula = '" & Cedula.Text & "', NombreJefeHogar = '" & NombreJefeHogar.Text & "‘,MiembrosHogar = '" & MiembrosHogar.Text & "',Direccion = '" & Direccion.Text & "',N_Formulario = '" & N_Formulario.Text & "',FechaRegistro = '" & FechaRegistro.Text & "' WHERE Cedula = '" & Cedula.Text & "'"

fijate que el where esta en el mismo update, vos lo habias puesto en la cadena de conexion dentro de la variable conexion

espero sea la solucion, saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar

BOTON MODIFICAR

Publicado por Blanca Mirley Fierro (6 intervenciones) el 16/02/2012 15:31:36
Por favor me ayudan con este boton lo necesito urgente..........¡¡¡gracias!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

BOTON MODIFICAR

Publicado por Carlos Israel (1 intervención) el 19/07/2013 01:31:48
Probé este ejemplo, y funciona excelente...! aporte de Christian,,,

Gracias!!! por su ejemplo...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

BOTON MODIFICAR

Publicado por Hugo Raúl (1 intervención) el 07/11/2014 18:39:54
porque van los '", y no normalmente "
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar