ayuda con base datos ado

Iniciado por yogova9, 29 Octubre 2011, 04:46 AM

0 Miembros y 1 Visitante están viendo este tema.

yogova9

buenas, amigos tengo un problema con una base de datos que estoy creando.

es el siguiente:

cree un archivo en acces 2007 extensión .mdb llamado datosbase.mdb y en el he creado 5 tablas independientes como:
-clientes
-celular
-datos celular
-accesorios
-observacion

la primer tabal la puedo consultar muy bien en esa van como nombre, apellido, cedula, etc

en la de celular va marca, modelo, imei pero no he podido que me muestre los datos me sale error si alguien me puede ayudar de como poder consultar los datos de las tablas adicionales se lo agradezco.
:o

seba123neo

porque no la podes ver ? te sale algun error ? pone el codigo que usas mejor.
La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

yogova9

gracias por tu respuesta, lo que pasa es que quiero que me muestra la informacion en una sola pantalla donde estan todos esos datos, al  momento de ejecutar me sacar "error 3265 en tiempo de ejecucion" le doy depurar y me manda a donde esta el error y esta en esta parte.

Private Sub rs_MoveComplete(ByVal adreason As ADODB.EventReasonEnum, ByVal perror As ADODB.Error, adstatus As ADODB.EventStatusEnum, ByVal precordset As ADODB.Recordset)

    'SI ESTAMOS ANTES DEL PRINCIPIO
    If rs.BOF = True Then
        rs.MoveFirst 'NOS VAMOS AL PRINCIPIO
   
    'SI ESTAMOS DESPUES DEL ULTIMO
    ElseIf rs.EOF = True Then
        rs.MoveLast
   
    Else
        'SE CAMBIA LOS DATOS DEL REGISTRO
        txtNombre.Text = rs.Fields("nombre")
            txtApellido.Text = rs.Fields("apellido")
            txtCC.Text = rs.Fields("Cedula")
            txtDireccion.Text = rs.Fields("direccion")
            txtTelefono.Text = rs.Fields("telefono")
            txtMarcasCelu.Text = rs.Fields("marca")
            txtModelo.Text = rs.Fields("modelo")
            txtImei.Text = rs.Fields("imei")
    End If
   
End Sub

la parte roja es donde empieza el error.

me gustario saber como llamar varias tablas del mismo archivo echo en acces por medio de vb6

seba123neo

ese evento MoveComplete es un evento del control ADODC, no deberia estar ahi el codigo , sino en un boton simple donde vas cambiando de registro (si es que te moves por los registros) o al cargar la pantalla (si es que solo cargar un registro), pero no en ese evento.

ese error no me dice nada, pero verifica que exista ese campo "marca" en la tabla o que exista el textbox "txtMarcasCelu"

yo siempre recomiendo (y ya lo he hehco aca en el foro varias veces) hacer todo sin controles ADODC, o sea desde codigo sin controles, y con SQL puro (sin usar AddNew ni los metodos del recordset, sino ejecutar comandos SQL como INSERT INTO, UPDATE o DELETE), es la mejor forma y la que mas te va a servir, porque mantener sistemas con ese ADODC ya fue, es algo viejo.

saludos.

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson

yogova9

viejo muchas gracias por esa respuesta, me ha ayudado mucho y me puedes decir en que parte de aca puedo leer sobre lo que me recomiendas.

:D