Problema cargar combobox entre funciones

[Fernando_net]

Hola a todos.

Vereis, para optimizar el codigo, ahora me lo estoy revisando y creo que sería posible mejorarlo, por eso acudo a vuestra ayuda.

Tengo un modulo en que carga datos en un combobox después de hacer una consulta a una BD.

El caso es que el codigo de ejecución de la consulta es redundante, con lo que ahora estoy motando una función dentro del propio modulo para optimizar el codigo.

Tengo 14 cases, con lo cual, imaginad tener el mismo codigo 14 veces. 14 * 3 lineas cada vez = 42 lineas que podría suprimir si creo la función:

Ahora mismo está así.

Código VB .NET:

Case 1
     'este caso carga los datos de una tabla
     consulta = "select ..... from ..... where ..... = 1"
 
     cmd = New OleDb.OleDbDataAdapter(consulta, cnn)
     dt = New DataTable
     cmd.Fill(dt)
                 
     For i = 0 To dt.Rows.Count - 1
          Formulario_Quejas.combobox1.Items.Add(dt.Rows(i).Item(0))
     Next
 
Case 2
     'este caso carga los datos de otra tabla
     consulta = "select ..... from ..... where ..... = 2"
 
     cmd = New OleDb.OleDbDataAdapter(consulta, cnn)
     dt = New DataTable
     cmd.Fill(dt)
                 
     For i = 0 To dt.Rows.Count - 1
          Formulario_Quejas.combobox2.Items.Add(dt.Rows(i).Item(0))
     Next
 
Case 3
     (...)
 

Ahora está así:

Código VB .NET:

Case 1
     'este caso carga los datos de una tabla
     total=ejecuta_consulta("select ..... from ..... where ..... = 1")
                 
     For i = 0 To total - 1
          Formulario_Quejas.combobox1.Items.Add[COLOR="Red"](dt.Rows(i).Item(0))[/COLOR]
     Next
 
Case 2
     'este caso carga los datos de otra tabla
     total=ejecuta_consulta("select ..... from ..... where ..... = 2")
                 
     For i = 0 To total - 1
          Formulario_Quejas.combobox2.Items.Add[COLOR="Red"](dt.Rows(i).Item(0))[/COLOR]
     Next
 
Case 3
     (...)
 
Public Function ejecuta_consulta(ByVal consulta As String) as string
     Dim cmd As OleDb.OleDbDataAdapter
     Dim dt As DataTable
 
     'conectamos a la base de datos
     conexion.conecta()
 
     try
          cmd = New OleDb.OleDbDataAdapter(consulta, cnn)
          dt = New DataTable
          cmd.Fill(dt)
 
          return dt.rows(0).item(0)
     catch ex as exception
          messagebox.show(ex.message)
     finally
          conexion.desconecta()
     end try
End function
 

El problema está en el for que hay en el primer sub, ya que no puede leer del datatable, que está en el Function y claro, el Function solo devuelve el total de datos, no devuelve los datos en si como para leerlos 1 a 1.

Como lo podría solucionar?

Un cordial saludo y Felices Fiestas a todos :)

[Aquaventus]

Podrias modificarlo asi... :

Código vb:

Case 1
llenoCombo(combobox1,"1")
Case 2
llenoCombo(combobox2,"2")
Case 3
(...)
 
Public Sub llenoCombo(Byval combo As ComboBox, Byval parametro As String)
 
Dim consulta = "select... from .... where ... = " & parametro
Dim cmd As OleDb.OleDbDataAdapter
Dim dt As DataTable
 
'conectamos a la base de datos
conexion.conecta()
 
cmd = New OleDb.OleDbDataAdapter(consulta, cnn)
dt = New DataTable
cmd.Fill(dt)
 
total = dt.rows(0).item(0).toString()
 
For i = 0 To total - 1
Formulario_Quejas.combo.Items.Add(dt.Rows(i).Item(0))
Next
 
End Sub
 

Talvez se pueda mejorar mas, ahora ando ocupado mas tarde sigo revisando tu code y te respondo para optimizar mas

[devilinside]

No sé si la consulta es la misma para todos los caso y que solamente varía el parámetro, al menos eso parece por lo que has publicado. Si es así, aquí te dejo una propuesta y espero q al menos te de una idea.

Código Vb.Net:

Private Sub Llenado()
        llenaCombo(Formulario_Quejas.combobox1, 1)
        llenaCombo(Formulario_Quejas.combobox2, 2)
        llenaCombo(Formulario_Quejas.combobox3, 3)
        llenaCombo(Formulario_Quejas.combobox4, 4)
    End Sub
 
    Private Sub llenaCombo(ByVal MiCombo As ComboBox, ByVal Parametro As Integer)
        With MiCombo
            .DataSource = ejecuta_consulta("select id,Nombre from MiTabla where id=", Parametro)
            .ValueMember = "id"
            .DisplayMember = "Nombre"
        End With
    End Sub
 
    Public Function ejecuta_consulta(ByVal consulta As String, ByVal Parametro As Integer) As DataTable
        Dim cmd As OleDb.OleDbDataAdapter
        Dim dt As DataTable
        Dim conexion As New MiConexion
        Try
            consulta = consulta & CStr(Parametro)
            'conectamos a la base de datos
            conexion.conecta()
            'cmd = New OleDb.OleDbDataAdapter(consulta, cnn)
            cmd = New OleDb.OleDbDataAdapter(consulta, conexion)
            dt = New DataTable
            cmd.Fill(dt)
            'Return dt.Rows(0).Item(0)
            Return dt
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            conexion.desconecta()
        End Try
    End Function
 

Saludos.

[devilinside]

Plop!!... cuando publiqué no había ninguna respuesta... ahora ya tienes 2! jaja

Ambas ideas son buenas, tú eliges :)

Saludos

[Aquaventus]

jajaja devilinside no importa si posteas otra respuesta, el las analiza y las puede combinar :)

[Fernando_net]

Devilinside, muchísimas gracias!

Ha quedado todo mucho más limpio y optimizado, genial :)

Saludos