No puedo editar un recordset
Publicado por Miguel (2 intervenciones) el 07/03/2016 23:30:57
Ayuda por favor, necesito una solución a esto
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 ayúdenme.
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 sabe que puedo hacer... alguien me recomendo usa DAO pero la verdad que me recomendaron ADO porque leo datos de un scada.
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 ayúdenme.
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 sabe que puedo hacer... alguien me recomendo usa DAO pero la verdad que me recomendaron ADO porque leo datos de un scada.
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