Base de Datos Access desde Visual Basic 6.0

Estoy trabajando con una base de datos access desde visual basic 6.0, cuando intento actualizar un registro o guardar uno nuevo me envía el siguiente error (Error de Sintaxis Falta Operador en la Exprision de Consulta), ya he intentado depurar el código agrgandole comillas dobles o comillas simples cuando sea el caso, pero me sigue enviando el mismo error y no puedo actualizar ni insertar un registro nuevo.
Este es el código que estoy utilizando:
Select Case ACCION
    Case EDITAR_REGISTRO
        cnn.Execute "UPDATE TB_EMPLEADOS Set Nombres = " & Text1(1) & _
                                         ", Apellidos = " & Text1(2) & _
                                         " ,Cedula = " & Text1(3) & _
                                         ", Fecha_Nac = " & Text1(4) & _
                                         ", Lugar_Exp = " & Text1(5) & _
                                         ", Fecha_Ing = " & Text2 & _
                                         ", Fecha_Ret = " & Text3 & _
                                         ", Fecha_Traslado_Fondo = " & Text4 & _
                                         " 'where Cedula = " & Text1(3) & ""
    Case AGREGAR_REGISTRO
        cnn.Execute "INSERT INTO TB_EMPLEADOS " & "(Nombres,Apellidos,Cedula,Lugar_Exp,Fecha_Nac,Fecha_Ing,Fecha_Ret,Fecha_Traslado_Fondo) VALUES(" & _
                                 Text1(1) & "','" & _
                                 Text1(2) & "','" & _
                                 Text1(3) & "','" & _
                                 Text1(5) & "','" & _
                                 Text1(4) & "','" & _
                                 Text2 & "','" & _
                                 Text3 & "," & _
                                 Text4 & "," & _
                                 Format(Date, "dd/mm/yyyy") & "')"
    End Select
Por favor cualquier ayuda que me pueda brindar se la agradecería, ya que soy principiante en esto de la programación.

1 respuesta

Respuesta
1
Estas equivocado, porque para ingresar un registro nuevo en la tabla se hace con INSERT no con UPDATE como lo estas mostrando en el ejemplo, ademas lso campos de fechas en Access deben ir entre #, o sea algo como : ", Fecha_Nac = #" & Text1(4) & "#· ...
Buenas tardes, quisiera que me ayudara en lo siguiente, como usted ya sabe estoy trabajando en una base de datos access desde visual basic, el problema esta en que cada vez que actualizo un registro me envía el siguiente error, (No se Encontró el Método o Miembro de Datos) el menaseje se sitúa en la siguiente linea .lblIdRegistro = LV.SelectedItem.Text, como puedo solucionar este problema. Este es el código que utilice para organizar los registros en un listview.
'Abre el formulario para Editar el registro seleccionado en el ListView
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Editar()
    Dim i As Integer
    ' verifica que hay datos en el ListView y que hay uno seleccionado
    If (LV.ListItems.Count = 0) Then
       MsgBox "No hay ningún regisro para editar", vbInformation
       Exit Sub
    End If
    If (LV.SelectedItem Is Nothing) Then
       MsgBox "Debe seleccionar previamente un registro para poder editarlo", vbInformation
       Exit Sub
    End If
    With FrmEdit
        ' obtiene el elemento seleccionado
        .lblIdRegistro = LV.SelectedItem.Text
        For i = 1 To LV.ListItems.Count
            .Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
        Next
        .IdRegistro = LV.SelectedItem.Text
        .Text1(1) = LV.SelectedItem.ListSubItems(1).Text
        .Text1(5) = LV.SelectedItem.ListSubItems(3).Text
        .Text1(2) = LV.SelectedItem.ListSubItems(1).Text
        .Text1(3) = LV.SelectedItem.ListSubItems(2).Text
        .Text1(4) = LV.SelectedItem.ListSubItems(4).Text
        .Text2 = LV.SelectedItem.ListSubItems(5).Text
        .Text3 = LV.SelectedItem.ListSubItems(6).Text
        .Text4 = LV.SelectedItem.ListSubItems(7).Text
        .Show vbModal
    End With
End Sub
Por anticipado gracias por su colaboración.
¿Estas seguro que lblIdRegistro existe? o colócale .Caption
Buenas noches, el lblIdRegistro si existe, es la clave principal de la tabla a la que accedo, toda la información se carga en un Listview, en realidad cuando intento actualizar un registro existente es cuando me muestra el error, pienso que este tiene relación con la propiedad count pero no logro encontrar el error cualquier ayuda se la agradecería.
Esta vez adjunto todo el código que utilizo.
Option Explicit
' Botones de opción
''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub cmdOpciones_Click(Index As Integer)
    Select Case Index
        Case 0: Call Agregar
        Case 1: Call Editar
        Case 2: Call Eliminar
        Case 3: Unload Me
        Case 4: FrmFilter.Show , Me
        End Select
End Sub
'Abre el formulario para Editar el registro seleccionado en el ListView
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Editar()
    Dim i As Integer
    ' verifica que hay datos en el ListView y que hay uno seleccionado
    If (LV.ListItems.Count = 0) Then
       MsgBox "No hay ningún regisro para editar", vbInformation
       Exit Sub
    End If
    If (LV.SelectedItem Is Nothing) Then
       MsgBox "Debe seleccionar previamente un registro para poder editarlo", vbInformation
       Exit Sub
    End If
    With FrmEdit
        ' obtiene el elemento seleccionado
        .lblIdRegistro = LV.SelectedItem.Text
        For i = 1 To LV.ListItems.Count
            .Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
        Next
        .IdRegistro = LV.SelectedItem.Text
        .Text1(1) = LV.SelectedItem.ListSubItems(1).Text
        .Text1(5) = LV.SelectedItem.ListSubItems(3).Text
        .Text1(2) = LV.SelectedItem.ListSubItems(1).Text
        .Text1(3) = LV.SelectedItem.ListSubItems(2).Text
        .Text1(4) = LV.SelectedItem.ListSubItems(4).Text
        .Text2 = LV.SelectedItem.ListSubItems(5).Text
        .Text3 = LV.SelectedItem.ListSubItems(6).Text
        .Text4 = LV.SelectedItem.ListSubItems(7).Text
        .Show vbModal
    End With
End Sub
' Elimina el registro actual seleccionado
'''''''''''''''''''''''''''''''''''''''''''''
Private Sub Eliminar()
    If (LV.ListItems.Count = 0) Then
        MsgBox "No hay ningún registro para eliminar", vbInformation
        Exit Sub
    End If
    ' verifica que hay datos en el ListView y que hay uno seleccionado
    If (LV.SelectedItem Is Nothing) Then
        MsgBox "No hay registro seleccionado para eliminar", vbInformation
        Exit Sub
    End If
    With LV.SelectedItem
        ' pregunta
        If MsgBox("Se va a eliminar el registro : " & vbNewLine & _
                 String(50, "-") & vbNewLine & _
                 "Nombres: " & .Text & vbNewLine & _
                 "Apellidos " & .ListSubItems(1).Text & vbNewLine & _
                 "Cedula: " & .ListSubItems(2).Text, _
                 vbExclamation + vbYesNo, "El Registro se va a Eliminar") = vbYes Then
            ' Elimina
            cnn.Execute "DELETE from TB_EMPLEADOS where Cedula = " & .Text & ""
            ' refresca el recordset
            rs.Requery 1
            ' vuelve a cargar los datos en el ListView
            Call CargarListView(LV, rs)
        End If
    End With
End Sub
Sub Agregar()
    ' Acción
    FrmEditar.ACCION = AGREGAR_REGISTRO
    ' Abre el Form
    FrmEdit.Show 1
End Sub
Sub Salir()
    Unload Me
    End
End Sub
Private Sub Form_Load()
    ' Abre la conexión
    Call IniciarConexion
    ' carga el Recorset con todos los datos
    rs.Open "select * from TB_EMPLEADOS", cnn, adOpenStatic, adLockOptimistic
    ' llena el ListView
    Call CargarListView(LV, rs)
End Sub
Private Sub LV_DblClick()
    Call Editar
End Sub
Private Sub LV_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim Item As ListItem
    Set Item = LV.HitTest(x, y)
    If Not Item Is Nothing And Button = vbRightButton Then
       Item.Selected = True
       Me.PopupMenu mnuEdicion
    End If
End Sub
Private Sub mnfayuda_Click()
End Sub
Private Sub mnuAgregar_Click()
 FrmEdit.Show
End Sub
Private Sub mnuEditar_Click()
 Call Editar
End Sub
Private Sub mnuEliminar_Click()
 Call Eliminar
End Sub
Private Sub mnuImprimir_Click()
Set DataReport1.DataSource = rs
    DataReport1.Show 1
End Sub
' salir
''''''''''''''''''''''''
Private Sub mnuSalir_Click()
    Call Salir
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim ret As VbMsgBoxResult
    ret = MsgBox("¿ Desea Salir ?", vbInformation + vbYesNo)
    If ret = vbNo Then
        Cancel = True
    Else
        Call Salir
    End If
End Sub
Gracias por anticipado
' Obtiene el elemento seleccionado
        .lblIdRegistro = LV.SelectedItem.Text
        For i = 1 To LV.SelectedItem.ListSubItems.Count
            .Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
        Next
        .IdRegistro = LV.SelectedItem.Text
        .Text1(1) = LV.SelectedItem.ListSubItems(1).Text
Lo que creoq ue debes cambiar esta en Negrillas.
Hola buenas noches, después de realizar el ajuste que me sugeriste resulto el mismo error, que más puedo hacer al respecto. Nuevamente le digo que creo que le problema esta en la propiedad count, pero aun no se como manejarla con un listview.
Cualquier ayuda se la agradecería.
Revisa:
    For i = 1 To LV.SelectedItem.ListSubItems.Count
            .Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
        Next
¿Aquí estas suponiendo que tienes un array de controles textbox con el mismo tamaño del numero de columnas del listview esto si es así?
Otra cosa los arrays en VB empiezan en el Indice 0 y tu estas empezando a recorrer el listview desde la posición 1, entonces vasa referenciar un text1 que no existe y allí te da error.
Buenas noches, ya revise donde me lo solicitaste, el problema que me resulta es el siguiente (Indice fuera de los limites) ya revise lo concerniente a lo programado en el modulo y aun no se cual puede ser el problema.
Cualquier ayuda gracias, adjunto el código.
'Abre el formulario para Editar el registro seleccionado en el ListView
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Editar()
    Dim i As Integer
    ' verifica que hay datos en el ListView y que hay uno seleccionado
    If (LV.ListItems.Count = 0) Then
       MsgBox "No hay ningún regisro para editar", vbInformation
       Exit Sub
    End If
    If (LV.SelectedItem Is Nothing) Then
       MsgBox "Debe seleccionar previamente un registro para poder editarlo", vbInformation
       Exit Sub
    End If
    With FrmEdit
        ' obtiene el elemento seleccionado
        .lblID = LV.SelectedItem.Text
        For i = 1 To 4
            .Text1(i).Text = LV.SelectedItem.ListSubItems(i).Text
        Next
        .IdRegistro = LV.SelectedItem.Text
        .Text1(1) = LV.SelectedItem.ListSubItems(1).Text
        .Text1(5) = LV.SelectedItem.ListSubItems(4).Text
        .Text1(2) = LV.SelectedItem.ListSubItems(2).Text
        .Text1(3) = LV.SelectedItem.ListSubItems(3).Text
        .Text1(4) = LV.SelectedItem.ListSubItems(5).Text
        .Text2 = LV.SelectedItem.ListSubItems(6).Text
        .Text3 = LV.SelectedItem.ListSubItems(7).Text
        .Show vbModal
    End With
End Sub
Es lo que te digo, tu estas recorriendo el for desde 1 y le asignas el valor al array de controles de textbox que empieza en cero (0).
Cuando llegas a la posición 20 del for, el array de textbox solo llega hasta el 19 por eso te da ese error.
Buenos días, la sugerencia que me diste ya la aplique pero me envía el siguiente error, el elemento 0 de la matriz de controles no existe, ya revise la matriz y cuando cambio el el valor de 0 por el de 1 funciona pero con el error que te informe anteriormente, (Indice fuera de los limites).
Por tu ayuda gracias.
Los usbitems del listview empiezan desde 1 y el indice de los arrays que crees empiezan en cero
Entonces debes hallar una fórmula en la que ListView. ListItem. SubItem(1) sea igual al text1(0) que son los primeros item de cada una de las colecciones o arreglos de lo que estas manejando

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Busqueda parcial en Listview

Necesito realizar una busqueda en un listview, pero quiero que sea una busqueda parcial para que no necesariamente tecleen todo el nombre para que lo pueda encontrar, mira este es mi codigo y funciona pero solo si capturan el nombre completo. Private...
1 respuesta

Validar una palabra en un TextBox

Se que esto para uds puede resultarles una pavada pero como soy novato a mi se me complica bastante. Les comento el proyecto: En un formulario muestro varias imágenes de instrumentos musicales y debajo de cada imagen agregué su TextBox...
1 respuesta

Extraer los 2 caracteres de un textbox

Tengo 3 textbox, lo que quiero es que en el text3.text copie lo dos primeros caracteres del text1.text y todos los caracateres text2.text. Ejemplo de lo que quiero: Text1.text escribimos ELIEZER Text2.text escribimos BRICEÑO Text3.text automatico...
2 respuestas

Código para mostrá datos en un comboxbox

Necesito un código que me permita llenar un combo box con los datos de una base de datos del campo nombre de la tabala empleados.. Que el combo se autocomplete cuando coloque una letra dentro del combo mostrando todas las coincidencias
1 respuesta

Hola nuevamente, ojalá me puedas ayudar con un error en un código VB en access

El problema es que no me respetando el total de intentos al ingresar una contraseña errónea, automáticamente me saca a la primera, cuando lo debería hacer al tercer intento, aquí va el código y gracias: Option Compare Database Option Explicit Dim...
2 respuestas

Base de datos de Access con Visual Basic 6.0

Base de datos de Access con Visual Basic 6.0 Lo que quiero hacer en Visual Basic es tener 4 formsel el primero que me permita ingresar un código con el el que el segundo formulario aparezcan los datos con forme al código que metí y ya estando en el...
1 respuesta

Modificar registros y luego actualizar base de dat

Espero que me colabores en lo siguiente: Tengo en un formulario un datagrid, el botón de buscar y el de modificar, ademas adicional a esto esta otro botón para guardar cambios más abajo coloque tres textbox, mi pregunta es la siguiente:¿Qué código le...
1 respuesta

Validaciones

Necesito validar algunos text en visual basic 6. Uno es para permitir solo letras, y no caracteres inválidos o números, acentos, paréntesis etc... Y el otro es lo contrario, es decir que acepte solo números, pero que no deje ingresar otro tipo de...
5 respuestas

Leer de derecha a izquierda

Soy nuevo en este foro y necesito ayuda, tengo que realizar una conexión de una base de datos para un formulario a visual basic, eso ya lo realice y los datos son almacenados en un text, el problema es que ahora tengo que darle vuelta a ese texto en...
1 respuesta

Accesos usuarios

Tengo una rutina de accesos de usuarios, pero se concetarla con el formulario del menu de inicio. De envío la rutina completa. Option Compare Database Option Explicit Dim NumIntentos As Integer Private Sub CmdAcceder_Click() Dim auxContraseña As...
2 respuestas