hola este en parte de mi codigo
Sub modificar()
Dim Consulta_mod As New OleDbCommand("UPDATE Trabajador SET COD='" & CBcod.Text & "',NOM='" & TBname.Text & "',APE='" & TBape.Text & "',APE2='" & TBape2.Text & "',TELF='" & TBphone.Text & "',MOVIL='" & TBmovil.Text & "',EMAIL='" & TBmail.Text & "',PROVI'" & TBprovi.Text & "',CIU='" & TBciu.Text & "',CB_CA='" & CBtur.Text & "',C_A='" & TBcv.Text & "',N_P='" & TBnp.Text & "',CB_EBU'" & CBebu.Text & "',E_B_U'" & TBebu.Text & "' WHERE COD='" & CBcod.Text & "'", OLEcnn)
OLEcnn.Open()
Consulta_mod.ExecuteNonQuery()
OLEcnn.Close()
End Sub
Error de sintaxis en la instrucción UPDATE. le e dado un por de vueltas pero no hay manera no encuentro el por que del error espero que alguien me pueda ayudar

Saludos:

A simple vista te falta el signo igual ( = ) para el campo PROVI, CB_EBU, E_B_U

Espero ayude.


JOSE LUIS

ya lo hice y sige el mismo error .....prodrias correguirla y yo la pego aver que tal

Saludos:

Deberia ser algo asi:

Código:

Sub modificar()
Dim Qry_Datos As String
Qry_Datos = "UPDATE Trabajador SET COD = '" & CBcod.Text & "', NOM = '" & TBname.Text & "', APE= '" & TBape.Text & "', APE2 = '" & TBape2.Text & "', TELF= '" & TBphone.Text & "', MOVIL = '" & TBmovil.Text & "', EMAIL = '" & TBmail.Text & "', PROVI = '" & TBprovi.Text & "', CIU = '" & TBciu.Text & "', CB_CA = '" & CBtur.Text & "', C_A = '" & TBcv.Text & "', N_P = '" & TBnp.Text & "', CB_EBU = '" & CBebu.Text & "', E_B_U = '" & TBebu.Text & "' WHERE COD = '" & CBcod.Text & "' "

Dim Consulta_mod As New OleDbCommand(Qry_Datos, OLEcnn)
OLEcnn.Open()
Consulta_mod.ExecuteNonQuery()
OLEcnn.Close()
End Sub

Espero ayude.


JOSE LUIS

muchisimas gracias de verdad