Visual Basic - Hago clic en un datagrid vacio y me sale error!!

Life is soft - evento anual de software empresarial
 
Vista:

Hago clic en un datagrid vacio y me sale error!!

Publicado por Monica_Liz (26 intervenciones) el 02/04/2007 20:28:40
Cuando hago una consulta en un datagrid y está vacío le doy clic y me sale error... Cómo le hago para poner en la consulta ke cuando esté vacío no me haga nada y ke cuando esté lleno sí me pase la informacion a cajas de texto????
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:Hago clic en un datagrid vacio y me sale error!

Publicado por y@hir (12 intervenciones) el 02/04/2007 21:39:30
Seguramente que en la parte donde haces la consulta podrás verificar el valor de EOF de tu recordset, para saber si hay registros o no:

If tuRecordset.EOF then
msgbox "No hay registros"
Else
' Pasarlos a cajas de texto.
End If
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:Hago clic en un datagrid vacio y me sale error!

Publicado por Monica_Liz (26 intervenciones) el 03/04/2007 00:51:24
Sucede que cuando descargo el formulario se hace la consulta en el datagrid.... entonces cuando yo le doy clic al datagrid la información se pasa a cajas de texto pero cuando no hay información y le doy clic entonces me marca un error que dice error de acceso de datos. Me puedes ayudar?? Si no es musha molestia jijijiji. Así tengo el evento clic del datagrid:

Private sub Datagrid1_click()

txt_clave=DataGrid1.Columns(0)
txt_nombre=DataGrid1.Columns(1)

End Sub

Y en el form_Load tengo lo siguiente:

Private Sub Form_Load()

adodc1.connectionstring=cnBase
adodc1.recordsource="select * from clientes order by nombre"
set datagrid1.datasource=adodc1

end sub
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:Hago clic en un datagrid vacio y me sale error!

Publicado por Luis Prieto (166 intervenciones) el 03/04/2007 01:52:38
Hola, Monica!!

Como el error es en ese evento puedes poner esto.

Private sub Datagrid1_click()
on error resume next
txt_clave=DataGrid1.Columns(0)
txt_nombre=DataGrid1.Columns(1)
End Sub

Lo que va hacer es ignorar el eror.

Y lee sobre tratamiento de errores.

Saludos!!
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

Detectando el EOF

Publicado por y@hir (12 intervenciones) el 03/04/2007 16:12:56
Hola, Monica.
Pues puede ser algo así como:

Private sub Datagrid1_click()
if not adodc1.recordset.EOF then
txt_clave=DataGrid1.Columns(0)
txt_nombre=DataGrid1.Columns(1)
endif
End Sub

O capturar el error e ignorarlo, como te dice Luis.
Saludos.
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

Muchas gracias!!!

Publicado por Monica_Liz (26 intervenciones) el 03/04/2007 18:12:54
Listo!! Gracias a su ayuda ya me pude librar de ese error que me tenía fastidiada y ya me habíua quebrado musho la cabeza y era tan sencillooOo!!! jajajaja... Muchas gracias por haberme ayudado!!! Saludoooss... Nos veremos pronto por aquí jajaja porque cada rato se me ocurre algo nuevo =(.
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