Algo

Practica De Visual Basic Manejo de Bases de Datos Usando el Control ADO


Para esta practica necesitaremos insertar el componente Microsoft ADO Data Control 6.0. Esto es por que este control nospermite enlazar una base de datos de Access 2000 con visual Basic de una forma sencilla y rápida.

Pasos:

1. Abre una aplicación nueva EXE estándar en VB
2. inserta el componenteMicrosoft ADO data Control 6.0
3. Inserta 3 TextBox
4. Inserta 4 Controles Label.

[pic]

Ahora vamos a configurar el ADO datacontrol:

• Selecciona el datacontrol, en la ventana depropiedades pulsa en Custom o Personalizado.


• Te mostrará un cuadro de diálogo. En la ficha General, estará seleccionada la opción "Use Connection String", pulsa en el botón "Build..." O “Generar”• Te mostrará otro cuadro de diálogo, en la ficha "Provider" o “Proveedor” , selecciona Microsoft Jet 4.0 OLE DB Provider, pulsa en "Next>>" o “Siguiente”y selecciona la base de datos quequieres usar,; el resto de opciones déjalos como está; pulsa en "Aceptar" dos veces para que se cierren los cuadros de diálogo.



Ahora tenemos que decirle que tabla usar

• Selecciona lapropiedad CursorType y de la lista desplegable selecciona 2-adOpenDynaset.
• Selecciona la propiedad RecordSource y pulsa en el botón, te mostrará un cuadro de diálogo.
• De la lista desplegable(Command type), selecciona: 2-adCmdTable, la lista "Table or Stored Procedure Name" se habrá habilitado, selecciona el nombre de la tabla que quieres usar y pulsa en Aceptar

Private SubCommand1_Click()
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
Else
Adodc1.Recordset.MoveNext
End If
End Sub

Private Sub Command2_Click()
If Adodc1.Recordset.BOF = True ThenAdodc1.Recordset.MoveFirst
Else
Adodc1.Recordset.MovePrevious
End If
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.MoveLast
End Sub

Private Sub Command4_Click()...