coneccion con base de datos Access

[cobreloino]

Hola, bueno antes de todo darles las gracias a quienes se den el tiempo de ayudarme.

Bueno lo mio es esto:

Programo en Visual Basic 6 y en Acces 2002, 2003.

Primero hago que se conecte con access, al elegir la tabla tengo problemas ya que cada dia tiene que conectarse con una tabla distinta que es la fecha, que la tengo en el label15 ya que es automatica

Set dbusuarios = OpenDatabase("C:\Documents and Settings\Giovanny Antonio\Escritorio\Proyecto Lavanderia SYK\Base de Datos\Base de Datos.mdb")
Set rsusuarios = dbusuarios.OpenRecordset("select * from Label15.Caption")
rsusuarios.AddNew
rsusuarios("Nombre") = Label8.Caption
rsusuarios.Update

El error que me da es que no encuentra el formulario "Label15.caption" como puedo hacer para que se conecte? , esto independiente de cualquier otra forma no precisa que sea esta misma.

De ante mano muchas gracias.

[Insomnia]

Hola

El problema es que estas diciendo que haga una select en la tabla Label15.Caption, no en el valor que guarda la misma, intenta lo siguiente:

Código vb:

SQL= "select * from " & Label15.Caption
Set rsusuarios = dbusuarios.OpenRecordset SQL
 

--Saludos--

[cobreloino]

Hola Insomnia, gracias por la ayuda pero sigo teniendo problemas, lo que me dices me arroja un error, el cual me dice "Argumento no Valido".

y el codigo lo deje asi:

Set dbusuarios = OpenDatabase("C:\Documents and Settings\Giovanny Antonio\Escritorio\Proyecto Lavanderia SYK\Base de Datos\Base de Datos.mdb")
'Set rsusuarios = dbusuarios.OpenRecordset("select * from Label15.Caption")
SQL = "select * from " & Label15.Caption
Set rsusuarios = dbusuarios.OpenRecordset SQL (esto lo toma como argumento no valido)
rsusuarios.AddNew
rsusuarios("Nombre") = Label8.Caption
rsusuarios.Update

ojala me puedas decir que hice mal, saludos

[Insomnia]

Hola

No me di cuenta que el código que utilizas es DAO, yo hace muchísimo tiempo que me pasé a ADO. Tal vez otro forero pueda ayudarte

--Saludos--

[cobreloino]

Hola Insomnia , muchas gracias por la ayuda, pero si no es mucha la molestia me podrías decir tú como lo harías con el código ADO, ya que todavía no puedo solucionar el problema que tengo, y una consulta por saber que código es mejor el DAO o el ADO

[Insomnia]

Hola

Te pongo un ejemplo sencillo de conexión a BD access y apertura de un recordset

Código vb:

Public cnnExterna As New ADODB.Connection 'Declaración de la conex BD
 
Private Sub Form_Load()
 
    
    Dim reg As New ADODB.Recordset 'Declarar recordset
    Dim strSQL As String 'Para guardar la sentencia SQL
    Dim ruta As String 'Ruta de la BD
    
    ruta = App.Path & "\prueba.mdb" 'En la misma carpeta que el ejecutable
    
    strSQL = "Select * from tbl_datos" 'La sentencia Select
    
    cnnExterna.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ruta & ";Persist Security Info=False" 'Establecer Conexión a la BD access
    rstExterno.CursorLocation = adUseClient
    rstExterno.Open strSQL, cnnExterna, adOpenDynamic, adLockReadOnly 'Abrir recordset
    
    Set grd_datos.DataSource = rstExterno 'Llenar DataGrid con el recordset
 

Ten en cuenta que tienes que tener activada la referencia Microsoft ActiveX Data Objects 2.8.

Respeto cual de los dos sistemas es mejor, creo que el ADO, ya que es un sistema mas actual que el DAO (que alguien me corrija si me equivoco)

Espero que te sirva como punto de partida.

--Saludos--