
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:
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