Problema "la conversion 'bdnull' en el tipo 'string' no es valida"

[io_web]

HOLA COMPAÑEROS(AS)

EL PROBLEMA ES QUE VISUAL STUDIO 2008 ME DA ESTE ERROR CON LA BD
"LA CONVERSION DE TIPO 'BDNULL' EN EL TIPO 'STRING' NO ES VALIDA"

Y QUIERO SABER COMO SOLUCIONARLO ACLARO SOY NOVATO Y REQUIERO LA MEJOR ESPLICACIÓN POSIBLE.

[jhonwilliams]

1. EN UN FORO NO ESCRIBAS EN MAYUSCULAS PORQUE ES PARTE DE MALA EDUCACION, ES EQUIVALENTE A GRITARLE A LAS DEMAS PERSONAS QUE TE VEN.

2. ahora si.

el error se muestra porque recuperaste de la base de datos algun campo que esta NULL, al tratar de hacer el .ToString() para obtener el valor te sale el error.

Esto lo puedes validar antes de hacer el .ToString().

Me podrias mostrar el codigo de como recuperas la informacion para ver como hacemos la validacion.

Saludos.

[io_web]

jaja no tenía ni idea de que mayusculas es gritar en el foro, mmm gracias por el dato.

y bueno respecto al codigo:

estoy creando un filtro en mi web aspx, el cual me muestra datos dentro de texbox relacionados con el campo de la tabla de la bd al que pertenecen.

el problema surge cuando quiero hacer la busqueda me tira el error y pues aki esta el codigo del boton:

Protected Sub Button_buscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button_buscar.Click

Dim l_connectionstring As String = l_bd
Dim l_select As String = " SELECT * FROM directorio WHERE nombre LIKE '%" & Me.TextBox_buscar.Text & "%' AND cargo LIKE '%" & Me.TextBox_buscar_cargo.Text & "%'"

Dim myConnection As New SqlConnection(l_connectionstring)
myConnection.Open()
Dim conect As New SqlCommand(l_select, myConnection)
Dim lee_BD As SqlDataReader
lee_BD = conect.ExecuteReader()

Do While lee_BD.Read()
If Not (IsDBNull(lee_BD(0))) Then
Me.TextBox_nombre.Text = lee_BD("nombre")
Me.TextBox_sede.Text = lee_BD("sede")
Me.TextBox_cargo.Text = lee_BD("cargo")
Me.TextBox_dpto.Text = lee_BD("departamento")
Me.TextBox_extension.Text = lee_BD("extension")
Me.TextBox_inalambrico.Text = lee_BD("inalambrico")
Me.TextBox_celular.Text = lee_BD("celular")
End If
Loop
lee_BD.Close()
myConnection.Close()
lee_BD = Nothing

End Sub

[jhonwilliams]

Iniciado por io_web

ACA INICIA EL TRY

Do While lee_BD.Read()
If Not (IsDBNull(lee_BD(0))) Then
Me.TextBox_nombre.Text = lee_BD("nombre")
Me.TextBox_sede.Text = lee_BD("sede")
Me.TextBox_cargo.Text = lee_BD("cargo")
Me.TextBox_dpto.Text = lee_BD("departamento")
Me.TextBox_extension.Text = lee_BD("extension")
Me.TextBox_inalambrico.Text = lee_BD("inalambrico")
Me.TextBox_celular.Text = lee_BD("celular")
End If
Loop

ACA LO TERMINAS

lee_BD.Close()
myConnection.Close()
lee_BD = Nothing

End Sub

Has usado el try .... catch.....

http://msdn.microsoft.com/es-es/libr...=vs.80%29.aspx

Usalo para controlar los posibles errores no controlados, esto siempre ocurre por mas que uno lo valide. XD

Lo otro es que tengo unas observaciones.

1. Estas haciendo la consulta con un LIKE y esto da varias alternativas.

1. No mostrar ningun resultado
2. Mostar un resultado
3. Mostar varios resultados

Pero estas mostrando los datos contra cajas de texto, si traes varios datos solo vas a ver en los textos el ultimo de la lista.

Recomendacion mostrar los resultados en una grid o cambiar la consulta por un =

Código SQL:

SELECT * FROM directorio WHERE nombre = '" & Me.TextBox_buscar.Text & "' AND cargo ='" & Me.TextBox_buscar_cargo.Text & "
 

Y si vas a mostrar datos en una grid no usaria un ExecuteReader(), lo hacia cargando una tabla con un DataAdapter

Saludos

[io_web]

Gracias por tu ayuda con el try, ya logre poner los errore y se me mustran en un label, y con lo de el filtro voy a investigar como hacer la busqueda con dataadapter.

Gracias compañero.

[jhonwilliams]

Mira esta documentacion,

http://msdn.microsoft.com/es-es/libr...=vs.80%29.aspx

Si tienes dudas me comentas.

Saludos

[io_web]

otra cosa, lo estoy haciendo en textbox, de todas formas al insertar al nombre y ó el cargo, me manda a dato correcto ya que el cargo no se repite.
tambien le coloque el LIKE porque solo con teclear algunas letras el el texbox, me manda al dato y al hacerlo con el "=" tenía que teclearlo tal y como es.

el error me lo dan 2 texbox,

Código:

Me.TextBox_extension.Text = lee_BD("extension")
                Me.TextBox_inalambrico.Text = lee_BD("inalambrico")

bueno tres contando el de

Código:

Me.TextBox_cargo.Text = lee_BD("cargo")

que creo que es por que al crearlos les indiqué que fueran nulos.

pero yo pensé que eso se arreglaba con

Código:

 If Not (IsDBNull(lee_BD(0)))

alguna idea??

[jhonwilliams]

Realmente tenes que hacer eso en cada campo,

if lee_BD("cargo") <> null or lee_BD("cargo") <> nothing then
Me.TextBox_cargo.Text = lee_BD("cargo")
end if

Creo que asi se haria en VB.

Saludos

[io_web]

brother le agregé el codigo y un if pero no funciono y al quitar el if agragado y dejarlo como estaba ¡Funciono! a que se deberá? afectará esto más adelante?

pues en la escuela siempre decían los compañeros que si algo jalaba que ya no le moviera jaja pero io kiero saber por que? o que fue lo que paso?.

¡¡ muchaz gracias x todo bro DTB siempre y ps gracias al foro tmbn!!

[io_web]

seguiré intentando con el if por que creo que si me va a traer dificultades si lo dejo asi, gracias por tu ayuda.

[io_web]

Descubrí que el procedimieno si es funcional solo que me mandaba al error por que como comentaba jhonwilliams

"Usalo para controlar los posibles errores no controlados, esto siempre ocurre por mas que uno lo valide."

entonces agregue el Try como me lo recomendo y funciono solo quite el mensaje del error dentro del try.

aki esta el codigo por si alguien lo necesita:

Código ASP:

Try
            Catch ex1 As System.Data.SqlClient.SqlException
            Select Case ex1.Number
            Case 17
            Label_msj.Text = ("Nombre del servidor es invalido")
            Case 156, 170 'bad sql sintax
            Label_msj.Text = ("Sintaxis Incorrecta")
            Case 207      'bad file name in select
            Label_msj.Text = ("Columna Invalida")
            Case 208      'bad tsble nsme in select
            Label_msj.Text = ("Nombre de Objeto Invalido")
            Case 18452
            Label_msj.Text = ("Nombre de Usuario Invalido")
            Case 18456
            Label_msj.Text = ("Password Invalido")
            Case 4060
            Label_msj.Text = ("Base de Datos Invalida")
            End Select
        Catch ex2 As System.Exception
         Label_msj.Text = ("Error Inesperado: " & ex2.Message & ". ")
    End Try
 

para que el mensaje del error no se muestre solo basta con quitar la siguiente linea del codigo mostrado.

Código ASP:

Label_msj.Text = ("Error Inesperado: " & ex2.Message & ". ")