Visual Basic - explorar en base de datos

Life is soft - evento anual de software empresarial
   
Vista:

explorar en base de datos

Publicado por Francisco Javier (10 intervenciones) el 25/07/2008 05:25:28
Pues tengo un formulario para explorar una base de datos.
Tiene 4 labels de nombre, codigo, direccion y telefono y 4 textbox para q salgan los resultados; tambien tengo 4 commandbutton: Inicio, Atras, Siguiente y Fin.
El formulario esta ligada a una base de datos
Y tiene este codigo cada commandbutton

Inicio:
If Data1.Recordset.RecordCount <> Ø Then
Data1.Recordset.MoveFirst
Text1.Text = Data1.Recordset.Fields("nombre")
Text2.Text = Data1.Recordset.Fields("codigo")
Text3.Text = Data1.Recordset.Fields("direccion")
Text4.Text = Data1.Recordset.Fields("telefono")
Else
MsgBox "no se encontraron datos", vbCritical, "error"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If

Siguiente:
If Data1.Recordset.RecordCount <> Ø Then
Data1.Recordset.MoveNext
Text1.Text = Data1.Recordset.Fields("nombre")
Text2.Text = Data1.Recordset.Fields("codigo")
Text3.Text = Data1.Recordset.Fields("direccion")
Text4.Text = Data1.Recordset.Fields("telefono")
Else
MsgBox "no se encontraron datos", vbCritical, "Error"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If

Atras:
If Data1.Recordset.RecordCount <> Ø Then
Data1.Recordset.MovePrevious
Text1.Text = Data1.Recordset.Fields("nombre")
Text2.Text = Data1.Recordset.Fields("codigo")
Text3.Text = Data1.Recordset.Fields("direccion")
Text4.Text = Data1.Recordset.Fields("telefono")
Else
MsgBox "no se encontraron datos", vbCritical, "Error"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If

Fin:
If Data1.Recordset.RecordCount <> Ø Then
Data1.Recordset.MoveLast
Text1.Text = Data1.Recordset.Fields("nombre")
Text2.Text = Data1.Recordset.Fields("codigo")
Text3.Text = Data1.Recordset.Fields("direccion")
Text4.Text = Data1.Recordset.Fields("telefono")
Else
MsgBox "no se encontraron datos", vbCritical, "Error"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End If


Y me explora muy bien los datos

Mi problema es q por decir, si estoy en el primer dato de la base de datos y le doy para atras me sale un error, y pues como no hay datos atras del primero quiero q me salga un msgbox de q no se encontraron datos.
y al parecer me codigo ELSE esta mal porque no me sale ese msjbox q quiero
¿Como le hago si alguien me puede ayudar?
Gracias
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

RE:explorar en base de datos

Publicado por ladillitasoft (4 intervenciones) el 25/07/2008 08:54:03
Hola ¿Cómo estas?

Quería decirte que si necesitas
un programa buscálo en:
http://ladillitasoft.blogspot.com/
y si en esa web no lo encontras,
avisáme que trato de encontrarlo
en alguna otra web, y luego lo subo a
http://ladillitasoft.blogspot.com/.

Espero que estés súper bien!!!!

Abrazos!!!!!!!!!!!

http://ladillitasoft.blogspot.com/
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

RE:explorar en base de datos

Publicado por Manolito (1 intervención) el 25/07/2008 09:00:39
TOCAME LOS GUEVOS LADILLA PEGAJOSA.

ESA PAGINA WEB QUE PONEIS, TIENE MAS GUSANOS QUE LADILLAS UN ZORRO.
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

RE:explorar en base de datos

Publicado por ladillitassoft (7 intervenciones) el 25/07/2008 13:29:01
Joder como te tratan aquí.
Si lo llego a saber, no pongo nada. Buen finde!

Espero que estés súper bien!!!!

Hasta luego lucas!!!!!!!!!!!

http://ladillitasoft.blogspot.com/
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

RE:explorar en base de datos

Publicado por lolo (163 intervenciones) el 25/07/2008 10:13:13
Sólo le tienes que poner las siguientes condiciones

En Inicio y Atras:
IF Data1.Recordset <> BOF then

En Siguiente y Fin:
If Data1.Recordset <> EOF Then

Sencillo, verdad?
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

RE:explorar en base de datos

Publicado por Francisco Javier (10 intervenciones) el 25/07/2008 15:27:08
¿EN Q parte?
Y me podrias decir q significa el BOF y el EOF
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

RE:explorar en base de datos

Publicado por igor (633 intervenciones) el 25/07/2008 17:12:08
BOF (begin of file)
EOF (end of file)
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