Ver Mensaje Individual
  #1 (permalink)  
Antiguo 21/05/2008, 03:44
Baldur
 
Fecha de Ingreso: mayo-2005
Ubicación: Vimianzo. A Coruña
Mensajes: 230
Antigüedad: 19 años
Puntos: 1
Cursores con ADO

Hola, cuando hice mi proyecto de fin de CS, utilicé en casi toda la aplicación controles ADO, execptuando en algunas ocasiones que usaba un módulo en el que tenía definido esto:
Código:
Option Explicit
Public cnConexion As ADODB.Connection
Public rsRegistro 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 ahora llevo un tiempo en las prácticas en una empresa y utilizan DAO en la mayoría de las aplicaciones.
Pero el método que utilizan es muy cómodo, almenos para mi, ya que tienen definido un workspace a la bd, y luego utilzan continuamente cusores así:
Código:
Dim tbCursor as object
Dim strSQL  as string

strSQL="INSERT INTO......"
dbBaseDeDatos.Execute (strSQL), dbFailOnError
Así, ahora en mis ratos libres me gustaría ir cambiando la aplicación que hice para el proyecto a este sistema, dejandola sin controles ADO en modo diseño.

Pero el problema es que no sé ni como funcionan esos workspaces, ni como se usan, ni nada de nada. Aún pa mas, esos con los que trabajo son DAO y yo quisiera usarlos con ADO(que es más moderno...xD)

Si me podeis ayudar con algún manual o explicandome como se hace esto con ADO pues os lo agradezco de verdad.

Un Saludo y Gracias!