viernes, 16 de abril de 2010

Base de datos unida al calendario


Antes de empezar debemos crear un archivo de Acces 2003 para poder tener algun sitio para meter los datos luego, una vez creada la unimos a Visual Basic.

Introducimos el codigo correspondiente para que al escribir en el cuadro de texto envie lo escrito a la base de datos:


Private Sub Txnotas_DblClick()
Txnotas.Visible = False
Text1(Indice).Text = Txnotas.Text
Escribirdatos
End Sub

La Variable Escribirdatos esta creada para que los datos excritos vayan a la Base de datos de Acces:


Private Sub Escribirdatos()
FBD.Show
FBD.DataGrid1.Row = mes
For i = 0 To 30
FBD.DataGrid1.Columns(i + 2) = Text1(i).Text
Next
Unload FBD
End Sub

Creamos otra variable "leerdatos" para que lo calice exactamente la posición de lo que hemos escrito:

Private Sub leerdatos()
FBD.Show
FBD.DataGrid1.Row = mes
For i = 0 To 30
Text1(i).Text = FBD.DataGrid1.Columns(i + 2)
Next
Unload FBD
End Sub

Finalmente comprobamos que el funcionamiento de la aplición es correcta:

No hay comentarios:

Publicar un comentario