Recordset
Necesito que por favor me digas como puedo llenar un recordset en tiempo de ejecución, pero con los valores que yo quiera, sin utilizar la clausula select; algo como:
cont = 0
dim rsValores as New Ado.recordset
do while cont < 5
rsValores = valor1
rsValores = valor2
cont = cont + 1
loop
cont = 0
dim rsValores as New Ado.recordset
do while cont < 5
rsValores = valor1
rsValores = valor2
cont = cont + 1
loop
1 respuesta
Respuesta de softgen
1
Utiliza valores secuenciales:
Bd. Addnew
bd.recordset("Nombre")=text1.text
bd.update
Bd. Addnew
bd.recordset("Nombre")=text1.text
bd.update
Necesito que me digas de que tipo defines 'db', porque yo lo hice:
Dim db as New ADODB.Recordset
Y no me funcionó
Dim db as New ADODB.Recordset
Y no me funcionó
'esto lo haces en generales
Dim BD As Database
Dim mRS As Recordset
'estos lo haces en el form_load o cualquier o parte
'Abres la Basedato
Set BD = OpenDatabase(App.Path + "\Basedato.mdb")
With mDB
'Abres el recordset
Set mRS = .OpenRecordset("Tabla")
With mRS
'Agrega un Nuevo Dato
.AddNew
!Nombre = text1.Text
!ICQ = text2.Text
!Direccion = text3.Text
!Telefono = text4.Text
.Update
End With
.Close
End With
No te olvides de las referencias
Microsoft DAO 3.6
Debes asignarlas en el menu proyecto-referencias
Dim BD As Database
Dim mRS As Recordset
'estos lo haces en el form_load o cualquier o parte
'Abres la Basedato
Set BD = OpenDatabase(App.Path + "\Basedato.mdb")
With mDB
'Abres el recordset
Set mRS = .OpenRecordset("Tabla")
With mRS
'Agrega un Nuevo Dato
.AddNew
!Nombre = text1.Text
!ICQ = text2.Text
!Direccion = text3.Text
!Telefono = text4.Text
.Update
End With
.Close
End With
No te olvides de las referencias
Microsoft DAO 3.6
Debes asignarlas en el menu proyecto-referencias
