¿Cómo ordenar un combo box? (Correctamente))

[Cristo_]

Saludos a toda la comunidad, aunque esta pregunta pareciera ser rutinaria no lo es por lo siguiente

tengo un combo box, el cual lleno por medio de una cosulta a SQL server y un dataset que luego se lo asigno al mismo combo box, por poner un ejemplo sencillo, tengo la siguiente tabla

Id Animal
1 Pato
2 Avestrus
3 Zebra

establezco como ValueMember el Id y como DisplayMember el campo Animal

la carga la hace si ningún problema puedo ver los animales en el combo , utilizo el la propiedad selected value para guardar los datos, propeidad la cual a su vez corresponde a los IDs que tengo en mi tabla,y todo lo guarda sin ningun problema

Ahora el problema:necesito que los datos se organicen de manera alfabética, para lo cual use 2 cosas:

1.- organizar directamente desde el query con order By
2.- Mover la propiedad Sorted del combo a True

la primera no me respetó el orden que le dí en la consulta, y la segunda me cambia los numeros del ValueMember es decir hace que los elementos del combo box queden de la siguiente manera

Id Animal
1 Avestrus
2 Pato
3 Zebra

cuando la tabla original es

Id Animal
1 Pato
2 Avestrus
3 Zebra

Me esta cambiando los valores de Pato y de Avestrus, es decir ordena bien los nombres pero me cambia por completo los ids de mis animales, alguien tiene un idea de como solucionar esto?,

Hasta ahora he probado hacerlo por medio de un llenado manual creando una clase para poder agregar el nuevo item dentro de un ciclo for sin mucho éxito ,
nota yo recuerdo que esto lo hacía en ASP.net con los DropDownList sin ningún problema, espero puedan ayudarme, saludos

[jhonwilliams]

Hola

Regalanos la consulta con la cual listas la informacion.

Saludos

[Cristo_]

Que tal gracias por contestar,

Pues no tiene gran ciencia pero es la siguiente :

"SELECT ID,ANIMAL FROM ANIMALES ORDER BY ANIMAL"

para el llenado del combo box hago lo siguiente

utilizo 2 funciones la primera para obtener los datos del sql y la otra para asignarselos al combo

'funcion para recuperar datos de sql
Public Shared Function RecuperarDeSQL(ByVal Query As String, ByVal Conexion As String, Optional ByRef NumRegistros As Integer = 0) As DataSet
Dim Resultados As DataSet
Dim DA As SqlDataAdapter
Dim Con As SqlConnection
Try
Con = New SqlConnection(Conexion)
Con.Open()
DA = New SqlDataAdapter(Query, Con)
Resultados = New DataSet
DA.Fill(Resultados, "Resultado")
NumRegistros = Resultados.Tables(0).Rows.Count()
If NumRegistros = 0 Then
Resultados.Tables.Add()
'Resultados.Tables(0).Rows.Add()
Return Resultados
End If
Return Resultados
Con.Close()
DA = Nothing
Con = Nothing
Catch ex As Exception
End Try
Resultados = Nothing
Return Resultados
End Function

'FUncion para llenar el combo box

Public Sub LlenaCombo(ByRef Combo As ComboBox, ByVal CampoValor As String, ByVal CampoMostrar As String, ByVal Consulta As String, ByVal Conexion As String)
Dim DS As DataSet
DS = RecuperarDeSQL(Consulta, Conexion)
Combo.DataSource = DS.Tables(0)
Combo.DisplayMember = CampoMostrar
Combo.ValueMember = CampoValor
End Sub


saludos


Y se utiliza de la siguiente forma:
LlenaCombo(Me.Combo,"ID","Animal","SELECT ID,ANIMAL FROM ANIMALES ORDER BY ANIMAL")

[Cristo_]

Mis amigos Epic Fail!!!

Encontré que de igual forma vualve a hacer la carga de datos en el evento drop down, pero en esa carga no tiene el orden por lo cual, por mas que lo ordenara al momento de cargarlo;si lo abría se desordenaba por el evento Drop Down , de cualquier forma muchas gracias a la camunidad, saludos

[jhonwilliams]

Tienes dos post con el mismo tema?

Acabo de sacar el rato para mirar tu codigo, la verdad antes no lo hice porque la forma en que lo pegaste me daba pereza, me obliga a abrir visual studio para poder pegarlo y leerlo de forma mas amigable:

Código VB.NET:

Dim Resultados As DataSet
        Dim DA As SqlDataAdapter
        Dim Con As SqlConnection
        Try
            Con = New SqlConnection(Conexion)
            Con.Open()
            DA = New SqlDataAdapter(Query, Con)
            Resultados = New DataSet
            DA.Fill(Resultados, "Resultado")
            NumRegistros = Resultados.Tables(0).Rows.Count()
            If NumRegistros = 0 Then
                Resultados.Tables.Add()
                'Resultados.Tables(0).Rows.Add()
                Return Resultados
            End If
            Return Resultados
            Con.Close()
            DA = Nothing
            Con = Nothing
        Catch ex As Exception
        End Try
        Resultados = Nothing
        Return Resultados
 

Hay un par de lineas con las que YO no estoy de acuerdo y son las siguientes:

Código VB.NET:

NumRegistros = Resultados.Tables(0).Rows.Count()
 

Para que asignar el RowCount a una variable si puede hacer la pregunta directamente asi:

Código VB.NET:

If Resultados.Tables(0).Rows.Count() = 0 Then
 

Y lo veo raro es porque 2 linas antes hacer el DA.Fill(Resultados, "Resultado") por lo cual creo que se hace inecesario agregar la tabla, sabiendo que el fill ya la agrego y lleno.

Y encuando al Return solo pondria y tu funcion me quedaria mas o menos asi (los parametros siguen iguales ya que no se que logica de negocio usas):

Código VB:NET:

Public Shared Function RecuperarDeSQL(ByVal Query As String, ByVal Conexion As String, Optional ByRef NumRegistros As Integer = 0) As DataSet
        Dim Resultados As DataSet
        Dim DA As SqlDataAdapter
        Dim Con As SqlConnection
 
        Con = New SqlConnection(Conexion)
 
        Try
            Con.Open()
            DA = New SqlDataAdapter(Query, Con)
            Resultados = New DataSet
            DA.Fill(Resultados, "Resultado")
 
            If Resultados.Tables.Count() = 0 Then
                Resultados.Tables.Add()
            End If
 
            DA = Nothing
            Con = Nothing
        Catch ex As Exception
 
        Finally
            Con.Close()
        End Try
 
        Return Resultados
    End Function
 

Como puedes ver, cambien la linea de la condicion donde preguntas si hay registros para agregar una tabla, me imagino que necesitas retornar una en blanco, ahora pregunto Si el numero de tablas es igual a 0 la agregamos.

Y la conexion se cierra en el Finally del Try esta seccion se ejecuta siempre, haya o no un error previo, eso asegura que la conexion siempre se cierre y no quede abierta por si algo ocurre antes de llegar a esa, como estaba antes.

Tambien elimine la linea Resultados = Nothing para que borrarla si necesitas retornarla?

Fijates si las modficaciones realizadas ayudan a solucionar el problema y me comentas.

Saludos

[Cristo_]

Que tal amigo gracias por el tiempo que te tomaste en contestar , te contesto sobre tus lineas de la siguiente forma :

1.-"la forma en que lo pegaste me daba pereza, me obliga a abrir visual studio"
Lo siento desconozco la forma correcta , disculpa
2.-"Para que asignar el RowCount a una variable si puede hacer la pregunta directamente asi"
Por que es una funcion y la variable es por referencia, sirve para que puedas visulazarla en cualquier textbox, label o variable de tu preferencia

3.-"Y lo veo raro es porque 2 linas antes hacer el DA.Fill(Resultados, "Resultado") por lo cual creo que se hace inecesario agregar la tabla, sabiendo que el fill ya la agrego y lleno."
Te sere sincero, este código lo baje de internet y me sirvió así como venía, la verdad que por la premura no he tenido tiempo de revisarlo a fondo

4.-"Como puedes ver, tambien la linea de la condicion donde preguntas si hay registros para agregar una tabla, me imagino que necesitas retornar una en blanco, ahora pregunto Si el numero de tablas es igual a 0 la agregamos"
Aquí no entendí nada, pero reitero lo del código que encontré en internet

5.-"Y encuando al Return solo pondria y tu funcion me quedaria mas o menos asi (los parametros siguen iguales ya que no se que logica de negocio usas)"
No se a que te refieras con "no se que logica de negocio usas"

6.-"Tambien elimine la linea Resultados = Nothing para que borrarla si necesitas retornarla?"
Como podras ver esa línea se encuentra despues del try catch y en una ejecución normal no pasa por allí

Saludos.

[Aquaventus]

Para no seguir recalcando sobre el mismo punto 1, mira el siguiente enlace que está como principales en el Foro para la facilitación de la lectura de código mediante los códigos Geishi para scripts a color en FDW, y que ésta las puedes ver en un combo que dice Highlight sobre el menú en el cual haces un nuevo post o comentario. Saludos!.

[jhonwilliams]

Hola

Cuando te hablo de la "logica del negocio" en la necesidad que tienes de hacer algo con comodigo, es como el porque de hacer una fucion o metodo, cual es el objetivo que esta debe de cumplir.

Revisa si la funcion modifique te funciona.

Que motor de base de datos usas?

Saludos