Base De Datos

os' Private Sub Form_Load() ' Indicarle el path de la base de datos ' ¡ACUERDATE DE PONER EL PATH CORRECTO! Data1.DatabaseName = "C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB" ' ' Indicarle que tabla queremos usar Data1.RecordSource = "Authors" ' ' Asignar a cada uno de los texboxes el campo de la tabla Text1.DataField = "Au_ID" Text2.DataField = "Author" Text3.DataField = "YearBorn" End Sub

' Private Sub Text4_KeyPress(KeyAscii As Integer) ' Se buscará sólo cuando pulsemos INTRO Dim nReg As Long ' ' Comprobar si la tecla pulsada es Intro: vbKeyReturn o 13 que es lo mismo If KeyAscii = vbKeyReturn Then ' Esta asignación evita que suene un BEEP KeyAscii = 0 ' Convertir el contenido de TextBox en un número nReg = Val(Text4) ' Buscar la primera coincidencia en elrecordset del Data1 ' en el campo Au_ID Data1.Recordset.FindFirst "Au_ID = " & nReg End If End Sub

' Private Sub Text4_KeyPress(KeyAscii As Integer) ' Se buscará sólo cuando pulsemos INTRO Dim nReg As Long ' ' Comprobar si la tecla pulsada es Intro: vbKeyReturn o 13 que es lo mismo If KeyAscii = vbKeyReturn Then ' Esta asignación evita que suene un BEEP KeyAscii = 0 ' Convertir el contenido deTextBox en un número nReg = Val(Text4) ' Buscar la primera coincidencia en el recordset del Data1 ' en el campo Author Data1.Recordset.FindFirst "Author Like '" & Text4.Text & "'" End If End Sub

' Private Sub Text4_KeyPress(KeyAscii As Integer)

' Se buscará sólo cuando pulsemos INTRO Dim nReg As Long ' ' Comprobar si la tecla pulsada es Intro: vbKeyReturn o 13 que es lo mismo If KeyAscii =vbKeyReturn Then ' Esta asignación evita que suene un BEEP KeyAscii = 0 ' Convertir el contenido de TextBox en un número nReg = Val(Text4) ' Buscar la primera coincidencia en el recordset del Data1 If Option1.Value Then ' en el campo Au_ID Data1.Recordset.FindFirst "Au_ID = " & nReg End If If Option2.Value Then ' en el campo Author Data1.Recordset.FindFirst "Author Like '" & Text4.Text & "'" End IfEnd If End Sub

' Private Sub Buscar() ' Procedimiento para buscar el dato indicado (12/Feb/01) Dim nReg As Long ' ' Buscar la primera coincidencia en el recordset del Data1 ' If Option1.Value Then ' en el campo Au_ID

' Convertir el contenido de TextBox en un número nReg = Val(Text4) ' Data1.Recordset.FindFirst "Au_ID = " & nReg End If If Option2.Value Then ' en el campo Author

'Data1.Recordset.FindFirst "Author Like '" & Text4.Text & "'" End If End Sub

' Private Sub Text4_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 ' Esta asignación evita que suene un BEEP KeyAscii = 0 ' Llamamos al procedimiento Buscar: Buscar End If End Sub

' PrivateSub cmdBuscar_Click() ' Simplemente llamamos al procedimiento Buscar: Buscar End Sub

' Private Sub BuscarSiguiente() ' Procedimiento para buscar el dato indicado (12/Feb/01) Dim nReg As Long ' ' Buscar la siguiente coincidencia, a partir del último hallado ' If Option1.Value Then ' en el campo Au_ID

' Convertir el contenido de TextBox en un número nReg = Val(Text4) 'Data1.Recordset.FindNext "Au_ID = " & nReg End If If Option2.Value Then ' Data1.Recordset.FindNext "Author Like '" & Text4.Text & "'" End If End Sub ' en el campo Author

Private Sub cmdBuscarSig_Click() ' Buscar el siguiente registro

BuscarSiguiente End Sub

' Private Sub Buscar(Optional ByVal Siguiente As Boolean = False) ' Procedimiento para buscar el dato indicado (12/Feb/01) ' Si Siguiente = True, se buscaa partir del registro activo ' Si no se indica, (valdrá False), buscará el primer registro Dim nReg As Long ' ' Buscar la primera coincidencia en el recordset del Data1 '

If Option1.Value Then

' en el campo Au_ID

' Convertir el contenido de TextBox en un número nReg = Val(Text4) ' ' Si se busca el siguiente dato If Siguiente Then Data1.Recordset.FindNext "Au_ID = " & nReg Else...