UN BISTAZO A ESTE CODIGO
Publicado por New (1 intervención) el 06/11/2001 22:33:30
HOLA A TODOS POR FAVOR NECESITO AYUDA POR VEER SE ESTE CODIGO ES CORECTO POR "ULTIUSER"
...........
Dim db2b1 As Database
Dim rsop2b1 As Recordset
Set db2b1 = OpenDatabase("ARCHIVO.mdb")
Set rsop2b1 = db2b1.OpenRecordset("TABLA", dbOpenDynaset, False, dbOptimistic)
rsop2b1.Edit
rsop2b1!CAMPO = "campo"
rsop2b1.Update
rsop2b1.Close
db2b1.Close
QUIERO SABER SE ES CORECTO? POR FAVOR
Un saludo
New
...........
Dim db2b1 As Database
Dim rsop2b1 As Recordset
Set db2b1 = OpenDatabase("ARCHIVO.mdb")
Set rsop2b1 = db2b1.OpenRecordset("TABLA", dbOpenDynaset, False, dbOptimistic)
rsop2b1.Edit
rsop2b1!CAMPO = "campo"
rsop2b1.Update
rsop2b1.Close
db2b1.Close
QUIERO SABER SE ES CORECTO? POR FAVOR
Un saludo
New
Valora esta pregunta
0