Visual Basic - Problema con EOF y BOF en vb6

Life is soft - evento anual de software empresarial
   
Vista:

Problema con EOF y BOF en vb6

Publicado por Jose Maria (3 intervenciones) el 19/11/2012 18:32:40
Un saludo, me estoy iniciando en Visual Basic. 6.0

Estoy haciendo una pequeña agenda. Al hacer click en un Monthview, se busca en la base de datos si existe el registro, si existe se muestra en un Textbox y se puede modificar, si no existe se crea uno nuevo.

El fallo se muestra cuando no existe el registro y no se porque razon intenta escribir en el Textbox. ¿Como puedo poner el Find en un If? Muchas gracias.

Este la parte del codigo donde tengo el fallo

With Adodc1.Recordset
If Not .EOF And Not .BOF Then
vcontrol = 0
.MoveFirst
.Find "Datos = '" & DateClicked & "'"
memoria.Text = .Fields("memoria") & "" ' <-- Aqui ocurre el fallo
Else
.NextRecordset
vcontrol = 1
memoria.Text = ""
End If
End With
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Torres de Hannoi
- Fase Lunar
- Triangulo 3D
Imágen de perfil de Antoni Masana

Problema con EOF y BOF en vb6

Publicado por Antoni Masana (88 intervenciones) el 20/11/2012 13:37:33
Despues de la instrucción .Find se deberia verificar que se ha encontrado el registro.

1
2
3
4
5
6
7
8
9
10
11
12
With Adodc1.Recordset
     If Not .EOF And Not .BOF Then
        vcontrol = 0
        .MoveFirst
        .Find "Datos = '" & DateClicked & "'"
        memoria.Text = .Fields("memoria") & "" ' <-- Aqui ocurre el fallo
     Else
        .NextRecordset
        vcontrol = 1
        memoria.Text = ""
     End If
End With


No se si esto es del todo correcto. Pero esto es mas o menos la idea.

1
2
if Not .EOF then memoria.Text = .Fields("memoria") & "
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Problema con EOF y BOF en vb6

Publicado por Jose Maria (3 intervenciones) el 23/11/2012 19:55:48
Muchas gracias, lo probare a ver que ocurre.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar