Error en sentencia UPDAT
Hola, estoy tratando de actualizar una tabla que se encuentra en ACCESS pero me arroja el siguiente error: No se controlo COMException. Error de sintaxis en la instrucción UPDATE.
Tengo el siguiente Modula para conectarme con ACCESS.
Module Module1
Public conexion As ADODB.Connection
Public Sub conectar()
conexion = New ADODB.Connection
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Hewlett\Documents\Visual Studio 2008\Projects\LINCI\LINCI\linci.accdb"
conexion.Open()
End Sub
End Module
Este evento es donde me arroja el error:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System., EventArgs) Handles Button3.Click
If accion = "Editar" Then
sql = "update empleados set 'nombre1='" & Nombre1.Text & "','" & "'apellido1='" & Apellido1.Text & "','" & "'proyecto='" & id_proyecto.Text & "','" _
& "where id_empleado='" & Id_Empleado.Text & "'"
Debug.Print(sql) conexion.Execute(sql)MsgBox("La edicion del registro se realizo con exito")
End If
End Sub
Les agradezco me puedan colaborar.
Tengo el siguiente Modula para conectarme con ACCESS.
Module Module1
Public conexion As ADODB.Connection
Public Sub conectar()
conexion = New ADODB.Connection
conexion.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Hewlett\Documents\Visual Studio 2008\Projects\LINCI\LINCI\linci.accdb"
conexion.Open()
End Sub
End Module
Este evento es donde me arroja el error:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System., EventArgs) Handles Button3.Click
If accion = "Editar" Then
sql = "update empleados set 'nombre1='" & Nombre1.Text & "','" & "'apellido1='" & Apellido1.Text & "','" & "'proyecto='" & id_proyecto.Text & "','" _
& "where id_empleado='" & Id_Empleado.Text & "'"
Debug.Print(sql) conexion.Execute(sql)MsgBox("La edicion del registro se realizo con exito")
End If
End Sub
Les agradezco me puedan colaborar.
1 Respuesta
Respuesta de Roberto Alvarado
1