Editar un recordset con ADO
Publicado por Miguel (59 intervenciones) el 04/03/2016 22:36:51
Help !!!!!
Por favor si alguien me da una mano. He creado un un recordset en VBA y al tratar de editar unos determinados campos por su valor, me da error. Por favor ayudenme.
Uso la referencia: Microsoft Activex Data Object 2.1 Library
He tratado de colocar el rst.edit y no lo encuentra o reconoce el VBA y me da error "3251" Error definido por la aplicación o el objeto
Este es mi código, el cual de hecho si crea el recordset y trae datos solo que deseo reemplazar los valores nulos por zero.
Por favor si alguien me da una mano. He creado un un recordset en VBA y al tratar de editar unos determinados campos por su valor, me da error. Por favor ayudenme.
Uso la referencia: Microsoft Activex Data Object 2.1 Library
He tratado de colocar el rst.edit y no lo encuentra o reconoce el VBA y me da error "3251" Error definido por la aplicación o el objeto
Este es mi código, el cual de hecho si crea el recordset y trae datos solo que deseo reemplazar los valores nulos por zero.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
'Abrir recordset
rst.Open sql, cnn, adOpenDynamic, adLockOptimistic
' evaluo los campos y su contenido
Do While rst.EOF = False
' rst.edit no lo reconoce este atibuto edit
If IsNull(rst.Fields(1).Value) Then
rst.Fields(1).Value = 0
End If
If IsNull(rst.Fields(2).Value) Then
rst.Fields(2).Value = 0
End If
If IsNull(rst.Fields(3).Value) Then
rst.Fields(3).Value = 0
End If
rst.Update rst.MoveNextLoop
Valora esta pregunta
0
