no entiendo este codigo...

[Baldur]

Hola, me han pasado un programa para modificarle pequeñas cosas, y no entiendo parte del código.

El caso es que yo estoy acostumbrado a usar visual con bd access y conectarme a ella mediante un OCX ADO o por medio de código que tengo en un módulo:

Código:

Option Explicit
Public cnConexion As ADODB.Connection
Public rsRegistro As ADODB.Recordset
Public rsRegistroPedidos As ADODB.Recordset

'Asignamos valores a la conexión.
Public Sub Conexion()
    Set cnConexion = New ADODB.Connection
    cnConexion.ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; data source=jardineria.mdb"
    cnConexion.CursorLocation = adUseClient
    cnConexion.Open
End Sub

'Carga el recordset.
Public Function Cargar(sSource As String)
    Set rsRegistro = New ADODB.Recordset
    rsRegistro.ActiveConnection = cnConexion
    rsRegistro.CursorType = adOpenDynamic
    rsRegistro.LockType = adLockOptimistic
    rsRegistro.Source = sSource
    rsRegistro.Open
End Function

Pero en esta "macro aplicación", no me acabo de enterar muy bien porque nunca lo he usado:

Código:

Public Sub Apertura()

Dim strPassWord As String
Dim intPuntero As Integer
Dim strCursor As Object
Dim tbCursor As Object
Dim strSQL(1) As String
----------------------------------------------------
Set SesSesiónDeTrabajo = Workspaces(0)
Set dbControl = SesSesiónDeTrabajo.OpenDatabase(glbBaseDeDatos, False, False, "; pwd=**********")
---------------------------------------------------------
Set tbCursor = dbControl.OpenRecordset("SELECT campo FROM Tabla", dbOpenForwardOnly)
----------------------------------------------------
Set dbBaseDeDatos = SesSesiónDeTrabajo.OpenDatabase(rutaBD, False, False, strPassWord)
-----------------------------------------------------
End sub

Donde puse "----" es que hay más código, pero son operaciones sobre otras cosas. La subrutina es bastante más amplia, pero no creo que necesite poner todo aquí. Me limito a poner lo que creo que es la "conexion" a la bd ya que la aplicación es privada y no puedo poner más código...

Espero que me podais ayudar a entender esto y saber como funciona. O si hay algún manual donde sigan este método...

Muchas gracias y un Saludo!

[Avellaneda]

Bueno, eso es DAO (del antiguo) y lo que hace el código es asignar a una variable un espacio de trabajo que anteriormente ha tenido que ser creado con el método CreateWorkspace, y en ese espacio de trabajo abrir la base de datos.

y a continuación define el recordset (tbCursor, que previamente había sido dimensionado como Object) para obtener los datos de la tabla.

[Baldur]

Ok, gracias!
Haber si le voy dando y hago algo...