Informatica

GENERO MI BASE DE DATOS CON ACCESS Y VISUAL BASIC

Para generar mi conexión de la base de datos

Clic derecho, componentes, eligo la opción

[pic]

Aplicar, Aceptar. Arrastro mi objeto addoc[pic]



Ahora voy a crear el vinculo:

Clic derecho propiedades adodc

[pic]



Eligo la opción Usar cadena de conexión y presiono el botón generar. Eligo la opción:

[pic]Pulso siguiente.



Eligo la opción 1seleccione o escriba el nombre de la base de datos,

Pulso el botón abrir y le doy probar conexión

[pic]

Mostrara un mensaje : La prueba fuesatisfactoria

[pic]

En la ventana de propiedades de vínculos de datos le doy al botón aceptar, y en el otro cuadro de dialogo pagina de propiedades le doy nuevamente Aplicar y Aceptar.

Ahora eligo elobjeto ADODC y en propiedades ConnectonString checo que se encuentre la ruta de mi base de datos de Access. En este caso (bdAgenda)

Me voy a la propiedad RecordSource y el el texto de comando sqlescribo la sentencia



Select * from tdatos

NOTA: Tdatos es el nombre de mi tabal y bdAgenda es el nombre de la base de datos de Access)



Le doy aplicar y Aceptar

[pic]



Yaesta la conexión



Ahora selecciono las cajas de texto y cambio la propiedad DataSourse por Adodc1 y DataField por el mobre de uno de mis campo de la tabla, en este caso Direccion



[pic]CREACION DE INICIO, ANTERIOR, SIGUIENTE, Y FINAL



[pic]

Private Sub cmdAnterior_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF ThenAdodc1.Recordset.MoveFirst

End If

End Sub



Private Sub cmdFinal_Click()

Adodc1.Recordset.MoveLast

End Sub



Private Sub cmdInicio_Click()

Adodc1.Recordset.MoveFirst

EndSub



Private Sub cmdSiguiente_Click()

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

End If

End Sub



GENERAR UNA REJA CON LA BASE DE DATOS...