Error 2147217900 (80040e14)
Necesito una pequeña ayudita tengo el siguiente problema trato de editar un registro de un empleado y me muestra este error Error 2147217900 (80040e14) error de sintaxis falta el operador en la consulta stat=yes where eid=12 les señalo en negrita la parte que según visual basic tiene errores que estará mal en el código ya que yo soy nuevo en esto de la programación de ante mano muchas gracias
Private Sub lvw_DblClick()Dim rsEDIT As New ADODB.Recordset If lvw.Tag <> "" Then If MsgBox("Esta usted seguro de editar este registrp?", vbQuestion + vbYesNo) = vbYes Then rsEDIT.Open SQLemp & " where eID=" & Fix(lvw.Tag) & "", CON, 2, 3 MODE = "update" With frmEmployee .t1.Text = rsEDIT(1) .t2.Text = rsEDIT(2) .t3.Text = rsEDIT(3) .t4.Text = rsEDIT(4) .t5.Text = rsEDIT(5) .t5.Tag = rsEDIT(6) .t6.Value = rsEDIT(7) .t7.Text = rsEDIT(9) .t7.Tag = rsEDIT(10) .t8.Text = rsEDIT(8) .t9.Text = rsEDIT(11) .Show 1 End With End If Else: msgSeledit End If
Private Sub lvw_DblClick()Dim rsEDIT As New ADODB.Recordset If lvw.Tag <> "" Then If MsgBox("Esta usted seguro de editar este registrp?", vbQuestion + vbYesNo) = vbYes Then rsEDIT.Open SQLemp & " where eID=" & Fix(lvw.Tag) & "", CON, 2, 3 MODE = "update" With frmEmployee .t1.Text = rsEDIT(1) .t2.Text = rsEDIT(2) .t3.Text = rsEDIT(3) .t4.Text = rsEDIT(4) .t5.Text = rsEDIT(5) .t5.Tag = rsEDIT(6) .t6.Value = rsEDIT(7) .t7.Text = rsEDIT(9) .t7.Tag = rsEDIT(10) .t8.Text = rsEDIT(8) .t9.Text = rsEDIT(11) .Show 1 End With End If Else: msgSeledit End If
