Visual Basic - Error de sintaxis(falta operador) en la expresion de consulta "IdEMP="

Life is soft - evento anual de software empresarial
   
Vista:

Error de sintaxis(falta operador) en la expresion de consulta "IdEMP="

Publicado por JORGE LUIS (3 intervenciones) el 18/08/2017 16:58:32
buenos dias. una consulta, estoy diseñando mi proyecto en vb 6.0
y en el formulario de Empleado. a la hora de guardar el registro me salta este error Error de sintaxis(falta operador) en la expresion de consulta 'IdEMP=".
a continuacion escribo en codigo la funcion que en teoria me tendria que guardar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Function Grabar() As Boolean
On Local Error GoTo LineaError
    Dim RS As New ADODB.Recordset
    RS.CursorLocation = adUseClient
 
    If Trim(TxtIdCliente) = "" Then
        MsgBox "Ingrese CODIGO...!", vbExclamation
        TxtIdCliente.SetFocus
        Exit Function
    End If
    If Trim(TxtNombre) = "" Then
        MsgBox "Ingrese Nombre...!", vbExclamation
        TxtNombre.SetFocus
        Exit Function
    End If
    If Trim(TxtApellido) = "" Then
        MsgBox "Ingrese Apellido...!", vbExclamation
        TxtApellido.SetFocus
        Exit Function
    End If
    If Trim(TxtDNI) = "" Then
        MsgBox "Ingrese el Numero de Documento...!", vbExclamation
        TxtDNI.SetFocus
        Exit Function
    End If
 
    Cnx.BeginTrans
 
    If SW = True Then
        RS.Open "SELECT * From EMPLEADO", Cnx, adOpenDynamic, adLockOptimistic
        RS.AddNew
    Else
        RS.Open "SELECT * From EMPLEADO where IdEMP=" & TxtId, Cnx, adOpenDynamic, adLockOptimistic  -- ------- en esta linea es donde me detecta el error.
    End If
    RS!CODIGO = Trim$(TxtIdCliente)
    RS!APELLIDO = Trim$(TxtApellido)
    RS!NOMBRE = Trim$(TxtNombre)
    RS!DNI = Trim$(TxtDNI)
    RS!NACIMIENTO = Trim$(DTPNAC.Value)
    RS!DIRECCION = Trim$(TxtDireccion)
    RS!TELEFONO = Trim$(TxtTelefono)
    RS!PROFESION = Trim$(TxtIDP)
    RS!empresa = Trim$(TxtIDE)
    RS!IdUsuario = UsuId
    RS!FechaReg = Now
    RS.Update
    TxtId = RS!IdEMP
    Cnx.CommitTrans
    Set RS = Nothing
    Grabar = True
Exit Function
LineaError:
    Cnx.RollbackTrans
    MsgBox Err.Description, vbCritical
End Function
muchas gracias
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
Imágen de perfil de Antoni Masana

Error de sintaxis(falta operador) en la expresion de consulta "IdEMP="

Publicado por Antoni Masana (265 intervenciones) el 21/08/2017 08:47:02
¿Que contiene TxtId?

Saludos.
\\//_
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

Error de sintaxis(falta operador) en la expresion de consulta "IdEMP="

Publicado por JORGE LUIS (3 intervenciones) el 22/08/2017 13:19:05
TxtId contiene el código autonumérico del registro. que en la tabla de empleados corresponde al atributo IdEMP.
saludos y gracias por contestar mi petición.
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
Imágen de perfil de Antoni Masana

Error de sintaxis(falta operador) en la expresion de consulta "IdEMP="

Publicado por Antoni Masana (265 intervenciones) el 22/08/2017 15:51:01
Pon este código antes de la línea de error

1
2
3
4
MsgBos "SELECT * From EMPLEADO where IdEMP=" & TxtId & VbCrLf & _
       "<" & Cnx & ">" & VbCrLf & _
       "<" & adOpenDynamic & ">" & VbCrLf & _
       "<" & adLockOptimistic & ">"

Aquí veras si los datos están bien.

Cuando te pregunte que contenía la variable TxtId ya se que es el código de empleado lo que pregunto es si sabe que valor contiene. Para mi que la variable esta vacía.

Saludos.
\\//_
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

Error de sintaxis(falta operador) en la expresion de consulta "IdEMP="

Publicado por JORGE LUIS (3 intervenciones) el 22/08/2017 22:41:50
ESTIMADO .
AL PARECER EL TXTID SE ENCUENTRA VACIO. SUBO DOS IMAGENES PARA VER LO QUE SUCEDIO CUANDO AGREGE ANTES DE LA LINEA DE ERROR EL MSGBOX ""

VB1
VB2
EN LA IMAGEN DOS CON EL PUNTERO ME POSICIONO EN EL TXTID Y NO ME FIGURA NINGUN DATO QUE ALMACENE.
SALUDOS
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