Problema con el Combo
Publicado por Pinky (110 intervenciones) el 22/06/2010 23:57:12
Hola amigos del foro, mi consulta es la siguinte estoy llamado los datos a través de un combo, pero este no me distingue los datos borrados logicamente es decir que a través de un Bit 1 y 0, este es el código que uso:
vbnet Código:
1.
Dim sql As New Data.SqlClient.SqlCommand("Select * From Listas Where N_Caso = '" + CMBCASO.Text + "' and activo=1", conn)
2.
Dim resultado As Data.SqlClient.SqlDataReader = sql.ExecuteReader()
3.
If resultado.HasRows Then
4.
CMBCASO.Items.Add("---")
5.
Do While resultado.Read()
6.
CMBCASO.Items.Add(resultado.Item("N_Caso"))
7.
Loop
8.
Else
9.
Console.Write("No hay datos")
10.
End If
11.
resultado.Close()
por ejemplo tengo 3 datos y dato de al medio es borrado logicamente pero lo llama igual, es decir que el campo esta en false (activo), favor de ayudarme estoy parado en esto, de todas meneras pongo el llenado de datos para que lo ordene en forma ascendente que lo hago aparte.
vbnet Código:
1.
Dim Sql = New Data.SqlClient.SqlCommand("Select * From Listas order by N_Caso asc", conn)
2.
Dim resultado As Data.SqlClient.SqlDataReader = sql.ExecuteReader()
3.
CMBCASO.Items.Clear()
4.
If resultado.HasRows Then
5.
CMBCASO.Items.Add("---")
6.
Do While resultado.Read()
7.
CMBCASO.Items.Add(resultado.Item("N_Caso"))
8.
Loop
9.
Else
10.
Console.Write("No hay datos")
11.
End If
12.
resultado.Close()
vbnet Código:
1.
Dim sql As New Data.SqlClient.SqlCommand("Select * From Listas Where N_Caso = '" + CMBCASO.Text + "' and activo=1", conn)
2.
Dim resultado As Data.SqlClient.SqlDataReader = sql.ExecuteReader()
3.
If resultado.HasRows Then
4.
CMBCASO.Items.Add("---")
5.
Do While resultado.Read()
6.
CMBCASO.Items.Add(resultado.Item("N_Caso"))
7.
Loop
8.
Else
9.
Console.Write("No hay datos")
10.
End If
11.
resultado.Close()
por ejemplo tengo 3 datos y dato de al medio es borrado logicamente pero lo llama igual, es decir que el campo esta en false (activo), favor de ayudarme estoy parado en esto, de todas meneras pongo el llenado de datos para que lo ordene en forma ascendente que lo hago aparte.
vbnet Código:
1.
Dim Sql = New Data.SqlClient.SqlCommand("Select * From Listas order by N_Caso asc", conn)
2.
Dim resultado As Data.SqlClient.SqlDataReader = sql.ExecuteReader()
3.
CMBCASO.Items.Clear()
4.
If resultado.HasRows Then
5.
CMBCASO.Items.Add("---")
6.
Do While resultado.Read()
7.
CMBCASO.Items.Add(resultado.Item("N_Caso"))
8.
Loop
9.
Else
10.
Console.Write("No hay datos")
11.
End If
12.
resultado.Close()
Valora esta pregunta


0