Consulta de una BD MySql con un COMBOBOX

[DavidNovato]

Buenas, Siy nuevo usuario d eeste foro.! y de verdad necesito que me echen una manito..

Estoy realizando un aplicacion en Visual Basic express 2010 conectada a una BD MySql.. y la conexion me salio y esta perfecta.. tambn logre hacer que para ingresar al sitema se introduza "usuario" y "password" mediente la tabla de unsuarios en la BD.. y hasta ahii todo perfecto.. Mi problema esta es que nose como hacer para que lo datos de las otras tablas (ej. "proveedor") me aparezcan en un "combobox", o "texbox" etc.. he Buscado en varios foros y nada.. soy nuevo en estoo.. y de vdd necesito ayuda.. una vz que logre esoo ya podre seguir adelante con mi applicacion y terminarla..

Tambn pase por esto en un principio cn lo del usuario y contraseña, pero en ese caso si encontre informacion ; lo ajuste a mi aplpicacion y corrio bien..

Espero puedan ayudarme, de antemano GRACIAS...

[alexg88]

Buenas,

No has especificado con que tecnología trabajas (Windows Forms, WPF, ASP .NET).

Dependiendo de la tecnología se hace de una u otra forma, pero te aconsejo que eches un vistado a la página de MSDN de Microsoft: http://msdn.microsoft.com/es-es/default.aspx

Saludos.

[DavidNovato]

Hola Alex,
Trabajo con Windows Forms.. Espero puedas ayudarm un poco.. Ya le echare un vistazo al link..

Gracias por Responder

[cristiantorres]

Hola para el caso de cargar los datos en un combobox podrias hacerlo con un datatable.
Algo así solo cambia los datos del proveedor de ado.net para mysql.

Código vb.net:

'metodo para cargar los datos de la bd
Public  Function Datos() As DataTable
    Dim dt As New DataTable()
 
    Dim conexion As New SqlConnection(ConfigurationManager.ConnectionStrings("default").ToString())'cadena conexion 
    Dim consulta As String = "SELECT * FROM proveedor" 'consulta a la tabla 
    Dim comando As New SqlCommand(consulta, conexion)
 
    Dim adap As New SqlDataAdapter(comando)
 
    adap.Fill(dt)
    Return dt
End Function
 

En este metodo estas obteniendo los datos de tu tabla fijate que la cadena de conexion esta en el archivo app.config si este no es tu caso solo le cambias como esta la cadena de coenxion.

Ahora para llenar tu combobox sera asi.

Código vb.net:

comboBox1.DataSource = Datos()
comboBox1.DisplayMember = "campo a mostrar"
comboBox1.ValueMember = "id"
 

[DavidNovato]

Hola Cristian.!
Gracias por la ayudaa.!. pero aun no logro que aparezcan los datos en el combobox.. ya adapte el codigo a mi aplicacion y aun nada :( ..

[DavidNovato]

Public Function Datos() As DataTable
Dim dt As New DataTable
Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
Dim consulta As String = "SELECT * FROM proveedor" 'consulta a la tabla
Dim comando As New MySqlCommand(consulta, conexion)
Dim adap As New MySqlDataAdapter(comando)

adap.Fill(dt)
Return dt
cboproveedor.DataSource = Datos()
cboproveedor.DisplayMember = "nombre"
cboproveedor.ValueMember = "ID"
End Function

Ese es el codiigo que tengo en mi aplicacion.. Que puede estar mal?.. porq ni siquiera me da algun error de sintaxis ni nada parecido

[Aquaventus]

Hola DavidNovato!! Bienvenido al foro!, eso pasa porque estas juntando el método Datos con la llamada del mismo.
Primero creas tu Funcion :

Código vb:

Public Function Datos() As DataTable
Dim dt As New DataTable
Dim conexion As New MySqlConnection("Server=localhost; Database=controlsmi; user=root; password=Smi2012") 'cadena conexion
Dim consulta As String = "SELECT * FROM proveedor" 'consulta a la tabla
Dim comando As New MySqlCommand(consulta, conexion)
Dim adap As New MySqlDataAdapter(comando)
 
adap.Fill(dt)
Return dt
End Function
 

y luego llamas a tu método en el Load de tu form :

Código vb:

cboproveedor.DataSource = Datos()
cboproveedor.DisplayMember = "nombre"
cboproveedor.ValueMember = "ID"
 

Tu llamada del método como te dije estaba dentro de la funcion y despues del RETURN, por lo que no leía esas líneas, ya que una vez que llega al return sale de la funcion. Prueba y nos comentas. Saludos!.

[cristiantorres]

Exacto como ya te lo dijeron arriba tu estas haciendo todo dentro de la función y no es así, ya que el código para llenar el combo tiene que ir en el evento load.

[DavidNovato]

Se ve facill.. y ya lo hice pero aun noo sale nada en los combobox :( .. no afecta q en el Form tenga un TabControl?... y para saber si no me pele ahi , que hay que poner en
cboproveedor.DisplayMember = ""
cboproveedor.ValueMember = ""

Para saber si lo que puse esta bien.. o ahi puede estar el error.. y Gracias x su ayuda muchcahos.!

[Aquaventus]

Hola DavidNovato, en el display va el campo que quieres mostrar en el campo y en el value, el campo valor(identificador único) como el "ID", que está detrás del display, del cual podrás su valor para manejarlo en otras consultas al seleccionar. Y viendo bien el código, en ningún momento abres conexion para la consulta, por lo que te falta esto :

Código vb:

conexion.Open()
adap.Fill(dt)
conexion.Close()
 

Prueba y nos comentas. Saludos!.

[DavidNovato]

Aquaventus Muchas graciasssss.!! ya funcionaaaaa :D! SE ALEGROO MI DIA ajajajaja.. no coloque nada en value porq me da error "No se puede enlazar con el nuevo miembro de valor.
Nombre del parámetro: value" eso m dic.. y he probado cn varios y dic lo mismo
Tambn que cuando inicio la aplicacion en el combo me aparec ya escrito el primer dato, no hya manera de que el combo aparezca en blanco ? y que luego cuando lo despliegue m aparezcan todos los datos y yo seleccione el que necesite?..

Oye otra pregunta en el form tngo varios combobox, (el form tiene un TabControl y en c/u hay varios combobox) tngo q repetir todo el procedimiento igual no?, obviamente cambiando los datos de acuerdo a cada combo...

Graciasss de verdad, me has ayudado mucho.. esto ultimo para realizar todos los combobox y pronto seguro volvere a tener otra duda jaja aun m falta mucho en este proyecto..

[Aquaventus]

Hola DavidNovato, se me hace raro que te aparesca ese mensaje, el campo que estés asignando al valuemember tambien debe estar en tu consulta. Ahora con respecto a los combos... pues sí, es el mismo paso nada mas que debes cambiar el query. Nos comentas. Saludos!.

[DavidNovato]

OKOK.. ahora lo puse en la consulta y ya no me da ese error.. pero el id no tiene q apareceer en el combo vdd?..

[Aquaventus]

Exacamente, el campo ID no aparece. Solo es como un valor único que identifica, que solo tú vas a manejar, y el display es solo para mostrar el campo que solo lo que le interesa al cliente.

[Aquaventus]

De casualidad repetí el mensaje. Omitir.

[DavidNovato]

Perfecto entonces.!! Muchas Gracias hermanoo.! Oye, no me dijste lo que t pregunte arriba.. lo de como hacer para que cuando inicie los combobox esten en blanco?.. porq en todos me aparece el primer dato del campo q seleccione..

[Aquaventus]

Disculpa, olvidé mencionartelo :

Código vb:

cboproveedor.DataSource = Datos()
cboproveedor.DisplayMember = "nombre"
cboproveedor.ValueMember = "ID"
cboproveedor.SelectedIndex = -1
 

Saludos!.

[DavidNovato]

Excelente.! .! Nuevamente GRACIAS.!! nos veremos pronto

[Aquaventus]

De nada DavidNovato, Cualquier problema que tengas, no dudes colocarla en el Foro. Estaremos siempre dispuestos a ayudar. Saludos!.