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,