Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Web Developer » Problemas en el Combo

Visual Web Developer - Problemas en el Combo

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Problemas en el Combo

Publicado por Hector (1 intervención) el 19/10/2016 22:24:39
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
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_Asegurado"))
        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_Asegurado"))
        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 oajala que me puedan ayudar, 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