Como validar campo Null de una DB mysql en vb.net

[jjap_unefa]

Hola a todos.. Tengo un campo en una DB mysql de tipo Date que en algunos casos tiene valor null y en otros una fecha (obvio :) )... el problema que se me presenta es el siguiente:

Código:

If IsDBNull(CDate(myreader("fecha"))) = True Then ' Esta validación da error :'(

                    TxtDate.Text = ""
Else

                    TxtDate.Text = CDate(myreader("fecha"))
End If

No se como validar cuando ese campo tiene valor null.

De antemano agradezco la ayuda que me puedan ofrecer...

[ramirezmario7]

No programo en VB pero te voy a copiar algo que puede que te sirva.

Primero llevas la informacion de la base de datos de tu fecha a una variable nuleable.
Dim fecha As DateTime? = CDate(myreader("fecha"))

ya que tienes tu informacion en una variable nuleable puedes saber si tiene datos

If fecha.HasValue = true Then

TxtDate.Text = CDate(myreader("fecha"))

Else

TxtDate.Text = String.Empty

End if

Mira si te sirve

[jjap_unefa]

Hola ramirezmario7.... muchas gracias por tu ayuda pero, no me funciono me arroja el siguiente error:
Conversion from type 'DBNull' to type 'Date' is not valid.

a la final eh encontrado la solución de guardar una fecha 0000/00/00 cuando el usuario deja el campo vacio y cuando lo consulto solo comparo ese valor y hago mis validaciones

Se que no es la solucion mas elegante pero por los momentos es lo que me ah servido...:)

[ramirezmario7]

En C# yo llevaria la fecha de esta forma.

DateTime? fecha = DateTime(myreader("fecha"));

Nose como convertir en vb asi que demas que esto que te copie no sirve pero es un guia

a lo mejor queda asi pero no se
Dim fecha As DateTime? = DateTime(myreader("fecha"))

mira como convertir a DateTime para que no tenga problemas al pasarlo a la variable.

[jjap_unefa]

Hola, gracias por tu ayuda pero aun sigue sin funcionar y ya investigue como pasar a datetime las variable....

[jhodmar]

yo valido asi...

Código:

If Not IsDBNull(RSform.Fields(10).Value) Then
                        Consultacombo = RSform.Fields(10).Value
                    Else
                        Consultacombo = ""
                    End If

siendo

Código:

Public RSform As ADODB.Recordset

[Cosertel]

Iniciado por jjap_unefa

Hola a todos.. Tengo un campo en una DB mysql de tipo Date que en algunos casos tiene valor null y en otros una fecha (obvio :) )... el problema que se me presenta es el siguiente:

Código:

If IsDBNull(CDate(myreader("fecha"))) = True Then ' Esta validación da error :'(

                    TxtDate.Text = ""
Else

                    TxtDate.Text = CDate(myreader("fecha"))
End If

No se como validar cuando ese campo tiene valor null.

De antemano agradezco la ayuda que me puedan ofrecer...

Intenta colocando:

Código:

If IsDBNull(myreader("fecha")) Then

                    TxtDate.Text = ""
Else

                    TxtDate.Text = CDate(myreader("fecha"))
End If

Primero compara sin conversión alguna, si el campo es nulo,

si es NULO, no realiza conversión,
Si no es NULO (Tiene datos), realiza la conversión a tipo fecha y lo coloca en textbox

[jjap_unefa]

Código:

If IsDBNull(myreader("fecha")) Then

                    TxtDate.Text = ""
Else

                    TxtDate.Text = CDate(myreader("fecha"))
End If

Muchas Gracias Cosertel.... este codigo me funciona...!!!!!!!!!!!!