Visual Basic.NET - Llamar datos

 
Vista:
sin imagen de perfil
Val: 9
Ha disminuido su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Llamar datos

Publicado por Pinky (110 intervenciones) el 17/08/2010 18:00:37
Hola amigos del foro mi consulta es la siguiente quiero llamar los datos a través de una caja de texto y que me os muestre en grilla, anteriormente lo hacia a través de un combo y me funcionaba bien, pero en una linea me arroja el error, este es el código que utilizo.
Protected Sub TXTPATENTE_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TXTPATENTE.TextChanged
If TXTPATENTE.Text = "" Or TXTPATENTE.Text = " " Or TXTPATENTE.Text = " " Then
MsgBox("Error, debe ingresar la Patente del Vehículo Asegurado o Tercero.", MsgBoxStyle.Information, "FVJ")
TXTPATENTE.Focus()
Else
Dim sql As New Data.SqlClient.SqlCommand("Select * From Presupuesto Where Patente_Vehiculo = '" + TXTPATENTE.Text + "' and activo=1", conn)
Dim resultado As SqlClient.SqlDataReader
Try
resultado = sql.ExecuteReader()
Catch ex As Exception
MsgBox("error")
Exit Sub
End Try
If resultado.HasRows Then
Do While resultado.Read()
TXTPATENTE.Text = resultado.Item("Patente_Vehiculo")
TXTCOMPAÑIA.Text = resultado.Item("Nombre_Compañia")
TXTASEGURADO.Text = resultado.Item("Nombre_Asegurado")
TXTTERCERO.Text = resultado.Item("Nombre_Tercero")
TXTMARCA.Text = resultado.Item("Marca_Vehiculo")
TXTMODELO.Text = resultado.Item("Modelo_Vehiculo")
TXTVIN.Text = resultado.Item("Chasis_Vehiculo")
Loop
Else
MsgBox("Esta Patente no ha sido ingresada en Presupuestos", MsgBoxStyle.Critical, "Sistema")
' aqui debo colocar para con una condicion si desea ir a presupuesto
End If
resultado.Close()
Dim valorx As DropDownList
valorx = sender
llenar_grilla(valorx.SelectedValue)
'llenar_grilla1(valorx.SelectedValue)
TXTPATENTE.Text = valorx.SelectedValue
End If
End Sub
en la línea que corresponde a Dim valorx As DropDownList, el dropdownlist solo se utiliza en combox anidados y no en cajas de texto, favor de mencionarme que otra sentencia o código puedo utilizar para que este funcione correctamente, en la mis a caja de texto desde ya muchas 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:Llamar datos

Publicado por Damian (824 intervenciones) el 20/08/2010 15:01:02
Donde te tira error?, en las cajas de texto se muestran los datos?, o solo no te lo muestra en la grilla?.
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
sin imagen de perfil
Val: 9
Ha disminuido su posición en 2 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

RE:Llamar datos

Publicado por Pinky (110 intervenciones) el 20/08/2010 19:16:34
El error me lo arroja en la linea del dropdownlist, los datos llamados a en las cajas de texto están Ok, pero en la grilla es el problema que te menciione anteriormente, desde ya muchas gracias.
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