Hola amigos del foro, mi consulta es la siguiente, hice lo siguiente tengo un programa hecho en Visual Studio 2008 y lo traspase a Visual Studio 201, ambos en Web devbeloper, me graba Ok, pero al momento de llamar los datos a través de un combobox, me manda este mensaje de error, que se adjunta.

Por otro lado ocupo el mismo código y no creo que haya cambiado de una versión a otra tanto, de todas maneras les dejo el código para que me puedan dar un ayuda.

Este es el código que utilizo para llenar los datos y los combo box
Sub llenar_combo()
Dim sql As New Data.SqlClient.SqlCommand("Select * From Liquidacion Where N_Liquidacion = '" + CMBCASO.Text + "' and activo = 1", conn)
Dim resultado As Data.SqlClient.SqlDataReader = sql.ExecuteReader()
If resultado.HasRows Then
CMBCASO.Items.Add("---")
Do While resultado.Read()
CMBCASO.Items.Add(resultado.Item("N_Liquidacion"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()

sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where Nombre_Asegurado = '" + CMBNOMBRE.Text + "' and activo=1", conn)
resultado = sql.ExecuteReader()
If resultado.HasRows Then
CMBNOMBRE.Items.Add("---")
Do While resultado.Read()
CMBNOMBRE.Items.Add(resultado.Item("Nombre_Asegura do"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()

sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where N_Siniestro = '" + CMBSINIESTRO.Text + "' and activo=1", conn)
resultado = sql.ExecuteReader()
If resultado.HasRows Then
CMBSINIESTRO.Items.Add("---")
Do While resultado.Read()
CMBSINIESTRO.Items.Add(resultado.Item("N_Siniestro "))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()

sql = New Data.SqlClient.SqlCommand("Select * From Compañias Where Nombre_Compañia = '" + CMBCOMPAÑIA.Text + "' and activo=1", conn)
resultado = sql.ExecuteReader()
If resultado.HasRows Then
CMBCOMPAÑIA.Items.Add("---")
Do While resultado.Read()
CMBCOMPAÑIA.Items.Add(resultado.Item("Nombre_Compa ñia"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()

sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where N_Liquidacion = '" + CMBCASOS1.Text + "' and activo=1", conn)
resultado = sql.ExecuteReader()
If resultado.HasRows Then
CMBCASOS1.Items.Add("---")
Do While resultado.Read()
CMBCASOS1.Items.Add(resultado.Item("N_Liquidacion" ))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
End Sub

Sub llenar_datos()
Dim Sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where activo = 1 order by N_Liquidacion asc", conn)
Dim resultado As Data.SqlClient.SqlDataReader = Sql.ExecuteReader()
CMBCASO.Items.Clear()
If resultado.HasRows Then
CMBCASO.Items.Add("---")
Do While resultado.Read()
CMBCASO.Items.Add(resultado.Item("N_Liquidacion"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()

Sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where activo = 1 order by Nombre_Asegurado asc", conn)
resultado = Sql.ExecuteReader()
CMBNOMBRE.Items.Clear()
If resultado.HasRows Then
CMBNOMBRE.Items.Add("---")
Do While resultado.Read()
CMBNOMBRE.Items.Add(resultado.Item("Nombre_Asegura do"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()

Sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where activo = 1 order by N_Siniestro asc", conn)
resultado = Sql.ExecuteReader()
CMBSINIESTRO.Items.Clear()
If resultado.HasRows Then
CMBSINIESTRO.Items.Add("---")
Do While resultado.Read()
CMBSINIESTRO.Items.Add(resultado.Item("N_Siniestro "))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()

Sql = New Data.SqlClient.SqlCommand("Select * From Compañias Where activo = 1 order by Nombre_Compañia asc", conn)
resultado = Sql.ExecuteReader()
CMBCOMPAÑIA.Items.Clear()
If resultado.HasRows Then
CMBCOMPAÑIA.Items.Add("---")
Do While resultado.Read()
CMBCOMPAÑIA.Items.Add(resultado.Item("Nombre_Compa ñia"))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()

Sql = New Data.SqlClient.SqlCommand("Select * From Liquidacion Where activo = 1 order by N_Liquidacion asc", conn)
resultado = Sql.ExecuteReader()
CMBCASOS1.Items.Clear()
If resultado.HasRows Then
CMBCASOS1.Items.Add("---")
Do While resultado.Read()
CMBCASOS1.Items.Add(resultado.Item("N_Liquidacion" ))
Loop
Else
Console.Write("No hay datos")
End If
resultado.Close()
End Sub
y este es el código que utilizo para seleccionar los registros

Protected Sub CMBCASO_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CMBCASO.SelectedIndexChanged
Dim sql As New SqlClient.SqlCommand("Select * From Liquidacion Where N_liquidacion = '" + CMBCASO.Text + "' and activo = 1", conn)
Dim resultado As SqlClient.SqlDataReader
Try
resultado = sql.ExecuteReader()
Catch ex As Exception
Dim script As String = String.Format("alert('{0}');", ex.Message)
ScriptManager.RegisterStartupScript(Me, GetType(Page), "Información Incorrecta", script, True)
Exit Sub
End Try

If resultado.HasRows Then
Do While resultado.Read()
TXTPARCHE.Text = resultado.Item("N_Liquidacion")
TXTDENUNCIO.Text = resultado.Item("Fecha_Denuncio")
TXTFECHASINIESTRO.Text = resultado.Item("Fecha_Siniestro")
TXTSINIESTRO.Text = resultado.Item("N_Siniestro")
TXTDESCRIPCION.Text = resultado.Item("Descripcion")
TXTCONDUCTOR.Text = resultado.Item("Nombre_Conductor")
TXTRUT.Text = resultado.Item("Rut_Conductor")
TXTPATENTE.Text = resultado.Item("Patente_Vehiculo")
TXTCONDUCTORTERCERO.Text = resultado.Item("Nombre_Tercero")
TXTPATENTE1.Text = resultado.Item("Patente_Tercero")
CMBCOMPAÑIA.Text = resultado.Item("Nombre_Compañia")
TXTRUT1.Text = resultado.Item("Rut_Compañia")
TXTNOMBRE.Text = resultado.Item("Nombre_Asegurado")
TXTRUT2.Text = resultado.Item("Rut_Asegurado")
TXTTIPO.Text = resultado.Item("Tipo_Seguro")
TXTPOLIZA.Text = resultado.Item("N_Poliza")
TXTAJUSTADOR.Text = resultado.Item("Nombre_Ajustador")
TXTFECHADESIGNACION.Text = resultado.Item("Fecha_Designacion")
TXTFECHAINFORME.Text = resultado.Item("Fecha_Informe")
TXTMONTO.Text = resultado.Item("Monto_Pago")
TXTFECHAANTEC.Text = resultado.Item("Fecha_Antecedentes")
TXTINSPECTOR.Text = resultado.Item("Nombre_Inspector")
TXTBOLETA.Text = resultado.Item("N_Boleta")
TXTFECHABOLETA.Text = resultado.Item("Fecha_Boleta")
TXTFECHAPAGO.Text = resultado.Item("Fecha_Pago")
CMBCASO.Enabled = False
CMDGRABAR.Enabled = False
CMDMODIFICAR.Enabled = True
CMDELIMINAR.Enabled = True
TXTDENUNCIO.Focus()
Loop
Else
CMBCASO.Text = "Búsqueda por Nº"
CMBCASO.Focus()
End If
resultado.Close()
End Sub

Además les informo que estoy con el Windows 7.0, sera necesario tener otra versión, por que con el XP me funcionaba bien, desde ya muchas gracias y ojala que me puedan ayudar, desde ya muchas gracias.

Buen día para todos,

Te comento que en el entorno Web devbeloper no te puedo colaborar, pero te comento que en Vb.Net para que la consulta te funcione debes reemplazar:

Los signos + por &:

Código:

':::Como lo tienes
N_Liquidacion = '" + CMBCASO.Text + "'

':::Quedaria asi:
N_Liquidacion = '" & CMBCASO.Text & "'

Ademas teniendo en cuenta que si la comparación es con valores de tipo integer debe ir sin las comillas simples.

Eso es lo que te puedo decir debido a que el adjunto con el error no aparece, por favor revisa el adjunto.

Egoan nuechas gracias por tu ayuda, salé de ese error, pero ahora me manda este Error, "Error en tiempo de ejecución e JavaScript: lado izquierdo no valido en asignacion" y me marca esta linea alert('Sintaxis incorrecta cerca de '='.');WebForm_AutoFocus('TXTDENUNCIO');//]]>
los revise y están Ok todas, como es posible que cambie una versión del 2008 al 2010, si anteriormente me dijeron que al cambiar no debe haber ningún error, pero ha medida que avanzo me siguen apareciendo más errores, que en el 2008 no los tenia, favor de ayudarme desde ya muchas gracias.

Buen día para todos,

Jason2009, la verdad también me paso cuando he tenido que trabajar en proyectos anteriores con visual 2015 y ha sido una verdadera tortura.

Revisaste que la versión del Framework esta correcta en las propiedades del proyecto, la opción de CPU destino, todos estos influyen, si puede adjuntar un pantallazo seria mejor.

Master Egoan82 te comento que al parecer encontre el error, y debe ser en todas las cajas de texto deben ser iguales, este es el código que utilizo para la primera caja de texto que me manda el error antes descrito.
Protected Sub TXTDENUNCIO_TextChanged(sender As Object, e As EventArgs) Handles TXTDENUNCIO.TextChanged
If TXTDENUNCIO.Text = "" Or TXTDENUNCIO.Text = " " Or TXTDENUNCIO.Text = " " Then
Dim script As String = "alert('Error, debe ingresar la Fecha del Denuncio');"
ScriptManager.RegisterStartupScript(Me, GetType(Page), "Error, debe ingresar la Fecha del Denuncio", script, True)
TXTDENUNCIO.Focus()
Else
If TXTDENUNCIO.Text > LABELFECHA.Text Then
Dim script As String = "alert('Esta fecha es erronea, debe ser igual o menor a la del día de hoy');"
ScriptManager.RegisterStartupScript(Me, GetType(Page), "Esta fecha es erronea, debe ser igual o menor a la del día de hoy", script, True)
TXTDENUNCIO.Text = ""
TXTDENUNCIO.Focus()
Else
TXTFECHASINIESTRO.Focus()
End If
End If
End Sub

el problema al parecer es cuando declaro los espacios en blanco, es el mismo código que utilizo en el VS 2008, aunque le inserte datos este me manda siempre el mismo mensaje que debo ingresar.
he probado de todo para las declaraciones y no me funciona, favor de ayudarme ya que me encuentro más que un poco desesperado, desde ya muchas garcias.

Buen día para todos,

Jason2009, lo que puedo apreciar en tu código es que el inconveniente puede estar en el momento de la validación, debido a que lo estas haciendo en el evento "TextChanged", lo que obliga a que en cualquier cambio que ocurra en este control TextBox, se debe ejecutar el procedimiento (Cuando digites un carácter o lo borres), te recomiendo que pruebes quitando la validación en este evento y la pruebes en un botón (Solo para despejar dudas), si resuelve tu inconveniente puedes hacer esta validación directamente en el procedimiento antes de guardar el cambio.