Introducir datos desde un textbox a una Bd.mdb en VB6

A peticion de nuestro amigo snellah, en el foro de Visual Basic (spanish), os adjunto el proyecto para su descarga…

En Visual Basic 6 Una de las maneras mas simples cuando estas empezando, es el uso de los componentes 'Data' y 'MSFlexGrid' de la barra de herramientas. Es tan simple como arrastrar un 'textbox' un 'msflexgrid' un 'data' y un 'command', en la propiedad 'datasource' del msflexgrid le seleccionas 'data1' y luego insertas este codigo al evento 'load' y 'command_click' ….

Private Sub Command1_Click()
    Me.Data1.Recordset.AddNew
    Me.Data1.Recordset("Texto") = Me.Text1.Text
    Me.Data1.Recordset.Update
    Me.Data1.Refresh
    Me.MSFlexGrid1.Col = 2
    Me.MSFlexGrid1.TopRow = Me.MSFlexGrid1.Rows – 1
    Me.MSFlexGrid1.Refresh
End Sub

Private Sub Form_Load()
    Me.Data1.DatabaseName = "Bd1.mdb"
    Me.Data1.RecordSource = "Tabla1"
    Me.Data1.Refresh
    '
    'la proiedad de datasouce del MSFlexGrid1 debe enlazarse con 'Data1'
    Me.MSFlexGrid1.ColWidth(0) = 200
    Me.MSFlexGrid1.ColWidth(1) = 400
    Me.MSFlexGrid1.ColWidth(2) = 3300
End Sub

Este ejemplo inserta el contenido de text1.text en la ultima posicion de la Bd1.mdb, a partir de aqui podrias introducirte para utilizar los objetos 'DataBase y RecordSet' y disponer de un mayor control. Espero vuestros comentarios.
Pep Lluis,

0 pensamientos en “Introducir datos desde un textbox a una Bd.mdb en VB6”

Necesito ayuda para guardar datos de un textbox en una base de datos, estoy realizando un sistema de contabilidad, como proyecto, estudio Tec. en Ing. en Sistemas

Responder