Ayuda Vb6 y access 2003

[ernestoelunico]

Hola nose si alguien me puede ilustrar como enlazar una base de datos de acces 2003 a vb6 sp6 el codigo mas que todo ya intente de todo y no me funciona lo intente con el objeto adodc y microsof jet 4.0 pero no me fuciono si alguien me colabora con el codigo se lo agradeseria mucho

lo que quiero hacer es añadir registros a una base de datos en access 2003 desde vb6

[Avellaneda]

Iniciado por ernestoelunico

Hola nose si alguien me puede ilustrar como enlazar una base de datos de acces 2003 a vb6 sp6 el codigo mas que todo ya intente de todo y no me funciona lo intente con el objeto adodc y microsof jet 4.0 pero no me fuciono si alguien me colabora con el codigo se lo agradeseria mucho

Hola, te pongo un pequeño manual de cómo conectar un control de datos Adodc a una tabla de la BD:

Todo en tiempo de diseño.

Seleccionas el control Adodc y en la propiedad ConnectionString:
- Pinchas en el botón [...] y en la ventana de 'Páginas de propiedades' seleccionas 'Usar cadena de conexión' y le das al botón 'Generar...'
- En la pestaña 'Proveedor' seleccionas "Microsoft Jet 4.0 OLE DB Provider" y pulsas en 'Siguiente'.
- En la pestaña 'Conexión' seleccionas tu base de datos pinchando en [...] y después en el botón 'Probar conexión'. Si te indica que la conexión fué satisfactoria, ya tienes tu conexión, le das al botón 'Aceptar' y fuera..

A continuación vas a la propiedad RecordSource:
Pinchas en el botón [...] y seleccionas el tipo de comando, si le pones adCmd Table, en el combo de abajo listará todas las tablas de la BD, seleccionas la que te interese y le das a 'Aceptar'.

y eso es todo...

Si lo quieres hacer mediante código, hay varias formas, te pongo una que es crear un objeto recordset asignándole la cadena de conexión:

Código:

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
    .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=c:\MiBaseDeDatos.mdb"
    .CursorType = adOpenKeyset
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Open "Select * From Tabla1"
End With

y ya tienes tu recordset que lo puedes conectar p.e. a un control DataGrid para mostrar los datos.

[mauromagno1]

Hola a todos los presentes quisiera saber si alguien me podria enviar el visual basic 6.0, se agradece muchisimo, pues estoy empezando a trabajar en el pero como no lo tengo en casa no puedo practicar.
Por su comprension muchas gracias

Atentamente

Mauricio Bascuñan S.

[ernestoelunico]

Iniciado por Avellaneda

Hola, te pongo un pequeño manual de cómo conectar un control de datos Adodc a una tabla de la BD:

Todo en tiempo de diseño.

Seleccionas el control Adodc y en la propiedad ConnectionString:
- Pinchas en el botón [...] y en la ventana de 'Páginas de propiedades' seleccionas 'Usar cadena de conexión' y le das al botón 'Generar...'
- En la pestaña 'Proveedor' seleccionas "Microsoft Jet 4.0 OLE DB Provider" y pulsas en 'Siguiente'.
- En la pestaña 'Conexión' seleccionas tu base de datos pinchando en [...] y después en el botón 'Probar conexión'. Si te indica que la conexión fué satisfactoria, ya tienes tu conexión, le das al botón 'Aceptar' y fuera..

esto ya lo use pero no me sirve para añadir los datos a access sino para desplazarme entre los diferentes registro como si fuera una consulta o algo parecido pero lo que quiero es añadirlos

[Avellaneda]

Iniciado por ernestoelunico

esto ya lo use pero no me sirve para añadir los datos a access sino para desplazarme entre los diferentes registro como si fuera una consulta o algo parecido pero lo que quiero es añadirlos

¿Añadirlos?

¿Desde dónde?

[ernestoelunico]

tengo un formulario en vb6 sp6 con varios textbox que corresponden a cada campo de la tabla la idea es ingresar los datos en los text box y guardarlos en la tabla que esta en una base de datos hecha en access 2003

[Avellaneda]

Iniciado por ernestoelunico

tengo un formulario en vb6 sp6 con varios textbox que corresponden a cada campo de la tabla la idea es ingresar los datos en los text box y guardarlos en la tabla que esta en una base de datos hecha en access 2003

Y lo quieres hacer a través de un control Data de ADO, no?

Pues es así de sencillo:

Código:

With Adodc1.Recordset
    .AddNew
    !Campo1 = Text1.Text
    !Campo2 = Text2.Text
    ' ... etc
    .Update
End With

[ernestoelunico]

ahhhhhhhhhhhh ya intente usar esto pero no entiendo bien......

no me conecta la base de datos

[ernestoelunico]

Iniciado por Avellaneda

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=c:\MiBaseDeDatos.mdb"
.CursorType = adOpenKeyset
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.Open "Select * From Tabla1"
End With

si me conecta usando esto pero no puedo guardar ningun registro me dice error de objeto

admas use esto como complemento

With Adodc1.Recordset
.AddNew
!Campo1 = Text1.Text
!Campo2 = Text2.Text
' ... etc
.Update
End With

pero mmm lo quiero para un adodc no una data

[Avellaneda]

Iniciado por ernestoelunico

si me conecta usando esto pero no puedo guardar ningun registro me dice error de objeto

admas use esto como complemento


pero mmm lo quiero para un adodc no una data

En el primer caso ¿cómo intentas guardar el registro?
Si la conexión la haces a través de un control Adodc, olvídate de esto.

En el segundo, ¿seguiste los pasos que indiqué al principio para conectar el control ADODC?
¿Estás escribiendo correctamente lon nombres de los campos?

[ernestoelunico]

Iniciado por Avellaneda

En el primer caso ¿cómo intentas guardar el registro?
Si la conexión la haces a través de un control Adodc, olvídate de esto.

En el segundo, ¿seguiste los pasos que indiqué al principio para conectar el control ADODC?
¿Estás escribiendo correctamente lon nombres de los campos?

si eso ya lo sabia hacer y no cuando intente añadir lor registros no use eso porq hasta donde tengo entendido no se usa para eso y
Si escribi correctamente los nombres de los campos
pero no me funciono

[ernestoelunico]

ademas otra duda cual es la diferencia entre el adodc y adodb porque cuando cambio lo del codigo de adodb a adodc me da error en el tiempo de ejecucion