Guardar datos en una columna de access vb6
Hola, buen día
Necesito ayuda con Base de Datos de access
Estoy creando un programa de una tienda, y necesito guardar datos en la base de datos, pero yo necesito que se guarde en una columna nada más, osea
Pedro --->TxtEmail(0)
Juan--->TxtEmail(1)
Luis--->TxtEmail(2)
Antonio--->TxtEmail(3)
Están en un texbox cada uno, y deseo que se guarde en la base de datos pero en una sola columna.
Utilizo este código
Dim DBHotmail As Database
Dim RSHotmail As Recordset
--------------------------------------------
Private Sub Command1_Click()
RSHotmail.AddNew
Dim y As Integer
For y = 0 To (TxtEmail.Count - 1)
RSHotmail(0) = TxtEmail(y).Text
Next
RSHotmail.Update
End Sub
---------------------------------------------
Private Sub Form_Load()
Set DBHotmail = OpenDatabase(App.Path & "\hotmail.mdb")
Set RSHotmail = DBHotmail.OpenRecordset("SELECT * FROM hotmail")
RSHotmail.AddNew
End Sub
Agradezco de antemano su ayuda.
Gracias
Necesito ayuda con Base de Datos de access
Estoy creando un programa de una tienda, y necesito guardar datos en la base de datos, pero yo necesito que se guarde en una columna nada más, osea
Pedro --->TxtEmail(0)
Juan--->TxtEmail(1)
Luis--->TxtEmail(2)
Antonio--->TxtEmail(3)
Están en un texbox cada uno, y deseo que se guarde en la base de datos pero en una sola columna.
Utilizo este código
Dim DBHotmail As Database
Dim RSHotmail As Recordset
--------------------------------------------
Private Sub Command1_Click()
RSHotmail.AddNew
Dim y As Integer
For y = 0 To (TxtEmail.Count - 1)
RSHotmail(0) = TxtEmail(y).Text
Next
RSHotmail.Update
End Sub
---------------------------------------------
Private Sub Form_Load()
Set DBHotmail = OpenDatabase(App.Path & "\hotmail.mdb")
Set RSHotmail = DBHotmail.OpenRecordset("SELECT * FROM hotmail")
RSHotmail.AddNew
End Sub
Agradezco de antemano su ayuda.
Gracias
1 respuesta
Respuesta de Roberto Alvarado
1
No es el código, esta bien
Pero problema es que cuando el bucle guarda, lo hace una encima de otro, y solo termina guardándose el ultimo, quería saber si existe un código para que guarde una dato y luego pase a la siguiente fila y guarde la siguiente así sicesivamente, pero en una sola columna
Gracias...
Pero problema es que cuando el bucle guarda, lo hace una encima de otro, y solo termina guardándose el ultimo, quería saber si existe un código para que guarde una dato y luego pase a la siguiente fila y guarde la siguiente así sicesivamente, pero en una sola columna
Gracias...
El .Addnew y el .Update, debes colocarlo dentro del for, pues abres un nuevo registro, ejecutas el for sobre el mismo registro, y lo actualizas, esa es la razón de que se graba el ultimo
Creo que no me dejo entender, mejor agrégame a mi correo [email protected]
for ...
Recordset. Addnew
...
recordset.update
next
Recordset. Addnew
...
recordset.update
next
