Lección 36

' Indicar el path correcto de la base de datos
' ¡ACUERDATE DE PONER EL PATH CORRECTO!
Const sPathBase As String = "C:\Program Files\Microsoft Visual _
	Studio\VB98\BIBLIO.MDB"
'
' Crear la conexión manualmente
' Con "Provider=Microsoft.Jet.OLEDB.4.0;" se permite abrir bases de datos de Access 2000
With Adodc1
    .ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & sPathBase & ";"
    ' Indicarle de que tabla vamos a leer los datos
    .RecordSource = "Authors"
End With

'
'---------------------------------------------------------------------------
' Prueba de ADO Datacontrol para la entrega 36                      
'
' ©Guillermo 'guille' Som, 2001
'---------------------------------------------------------------------------
Option Explicit

Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, _
ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
ByVal pRecordset As ADODB.Recordset)
    ' Mostrar el ID del registro actual
    ' si se pasa del primero o del último, dará error

    On Error Resume Next

    ' Mostrar el ID del registro actual usando el recordset pasado como parámetro
    Adodc1.Caption = "Registro actual: " & pRecordset.AbsolutePosition

    ' Si da error, indicarlo                                        (20/Sep/99)
    If Err Or pRecordset.BOF Or pRecordset.EOF Then
        Adodc1.Caption = "Ningún registro activo"
        ' Habría que moverlo a un registro con información
        ' *** Dejarlo comentado ***
        ' para que el procedimiento de búsqueda avise si no hay datos activos
        'Adodc1.Recordset.MoveFirst
    End If

    Err = 0
End Sub

Private Sub cmdAdd_Click()
    ' Añadir un nuevo registro
    Adodc1.Recordset.AddNew
    ' Añadimos algún texto, para que no se pierda este registro
    Text1(1) = "Nuevo"
    ' Actualizamos los datos
    Adodc1.Recordset.Update
    ' Hacemos que se "recargue" los datos del recordset
    Adodc1.Refresh
    ' Movemos al último registro para que los cambios se hagan permanentes
    ' y se muestre el nuevo registro
    Adodc1.Recordset.MoveLast
End Sub

Private Sub cmdBorrar_Click()
    ' Borrar el registro actual
    ' Se comprueba que haya algún registro activo,
    ' para ello se comprueba que no hayamos pasado del principio o el final del Recordset
    '
    ' Comprobar que hay registros, porque si no hay, dará error
    If (Adodc1.Recordset.EOF Or Adodc1.Recordset.BOF) Then
        ' Avisar de que no hay registros
        Adodc1.Caption = "Ningún registro activo"
    Else
        ' Eliminar el registro actual
        Adodc1.Recordset.Delete
        '
        ' Movemos al primer registro para que los cambios se hagan permanentes
        ' (también podriamos haberlo movido al último registro)
        Adodc1.Recordset.MoveFirst
    End If
End Sub

Private Sub cmdBuscar_Click()
    ' Buscar el primer registro que coincida con el dato buscado
    Buscar
End Sub

Private Sub cmdBuscarSig_Click()
    ' Buscar el siguiente
    Buscar True
End Sub

Private Sub cmdSalir_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    '
    Text2 = ""
    Option2.Value = True
    '
    ' Indicar el path correcto de la base de datos
    ' ¡ACUERDATE DE PONER EL PATH CORRECTO!
    Const sPathBase As String = "C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB"
    '
    ' Crear la conexión manualmente
    ' Con "Provider=Microsoft.Jet.OLEDB.4.0;" se permite abrir bases de datos de Access 2000
    With Me.Adodc1
        .ConnectionString = _
            "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=" & sPathBase & ";"
        ' Indicarle de que tabla vamos a leer los datos
        .RecordSource = "Authors"
    End With
    ' Indicar el DataSource de los Textboxes
    ' ya que con ADO se puede asignar en tiempo de ejecución
    Dim i As Long
    For i = 0 To 2
        Set Text1(i).DataSource = Adodc1
    Next
    ' Asignar los campos
    Text1(0).DataField = "Au_ID"
    Text1(1).DataField = "Author"
    Text1(2).DataField = "Year Born"
    ' Mostrar en las etiquetas el campo a usar
    For i = 0 To 2
        Label1(i).Caption = Text1(i).DataField & ":"
    Next
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
    ' Se buscará sólo cuando pulsemos INTRO
    '
    ' Comprobar si la tecla pulsada es Intro: vbKeyReturn o 13 que es lo mismo
    If KeyAscii = vbKeyReturn Then
        On Error Resume Next
        ' Esta asignación evita que suene un BEEP
        KeyAscii = 0
        '
        Buscar
    End If
End Sub

Private Sub Buscar(Optional ByVal Siguiente As Boolean = False)
    ' Procedimiento para buscar el dato indicado                    
    ' Si Siguiente = True, se busca a partir del registro activo
    Dim nReg As Long
    Dim vBookmark As Variant ' En ADO debe ser Variant, no vale un String
    Dim sADOBuscar As String
    '
    ' Iniciamos la detección de errores
    On Error Resume Next
    '
    ' Buscar la primera coincidencia en el recordset del Data1
    If Option1.Value Then
        ' Convertir el contenido de TextBox en un número
        nReg = Val(Text2)
        ' en el campo Au_ID
        sADOBuscar = "Au_ID = " & nReg
    End If
    If Option2.Value Then
        ' en el campo Author
        sADOBuscar = "Author Like '" & Text2.Text & "'"
    End If
    ' Guardar la posición anterior, por si no se halla lo buscado...
    vBookmark = Adodc1.Recordset.Bookmark
    '
    If Siguiente = False Then
        ' Buscar desde el principio
        Adodc1.Recordset.MoveFirst
        Adodc1.Recordset.Find sADOBuscar
    Else
        ' Busca a partir del registro actual
        Adodc1.Recordset.Find sADOBuscar, 1
    End If
    ' Devolverá un error si no se halla lo buscado
    ' aunque no siempre es así...
    If Err.Number Or Adodc1.Recordset.BOF Or Adodc1.Recordset.EOF Then
        Err.Clear
        MsgBox "No existe el dato buscado o ya no hay más datos que mostrar."
        ' Posicionar el recordset en la posición guardada
        Adodc1.Recordset.Bookmark = vBookmark
    End If
End Sub