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!