Ayuda añadir datos
Publicado por Manuel (17 intervenciones) el 02/02/2006 12:24:18
Hola, Soy novato y estoy intentando aprender visual basic pero hay cosas que por muchas vueltas que le doy pues no doy con la tecla. tengo este código sacado de los códigos de ésta web y me gustaria si alguien pudiese explicarme de manera muy básica como podrÃa añadir datos a la base de datos, he mirado ejemplos y manuales pero no puedo hacerlo, aquà pongo el código:
Private Sub Form_Load()
Direccion = App.Path & "\bd1.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Tira = "Select * From Tabla1"
Set Rs = BaseDatos.OpenRecordset(Tira)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
While Not Rs.EOF
List2.AddItem Rs(1)
Rs.MoveNext
Wend
End If
End Sub
muchas gracias de antemano y perdonen las molestias.
Private Sub Form_Load()
Direccion = App.Path & "\bd1.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Tira = "Select * From Tabla1"
Set Rs = BaseDatos.OpenRecordset(Tira)
If Rs.RecordCount > 0 Then
Rs.MoveFirst
While Not Rs.EOF
List2.AddItem Rs(1)
Rs.MoveNext
Wend
End If
End Sub
muchas gracias de antemano y perdonen las molestias.
Valora esta pregunta


0