Saludos.

Estoy trabajando con VS2008 Pro y Mysql.

He llenado un listbox con dos datos (Valor y Descripcion) desde codigo con una consulta de la base de datos y he puesto uno de los valores (Descripcion) en un texbox.

Ahora lo que necesito es lo siguiente:

Para efectos de completar la transaccion, se requiere que el dato (Valor) que se recupero en el listbox sea el que vaya en el insert, no el contenido del textbox (Descripcion).

El problema que tengo es que no se como recuperar el dato (Valor) del listbox.

Alguna idea??

Aqui esta parte del codigo:

.... Conex.....
Dim qry_Cncptos As String
Dim Ds_Contrato As New DataSet
Dim adap_Cncpto As MySqlDataAdapter = New MySqlDataAdapter
qry_Cncptos = " Select cdgo_cncpto, nmbre_cncpto from cncptos_cntrtos where afcta_dtlle = 'N' "
Dim cmd_Cncpto As New MySqlCommand(qry_Cncptos, MyConnect)

'Llenamos los Conceptos de encabezado
adap_Cncpto.SelectCommand = cmd_Cncpto
adap_Cncpto.Fill(Ds_Contrato, "Conceptos")
MyConnect.Open()
Lb_Concept.DataSource = Ds_Contrato.Tables("Conceptos")
Lb_Concept.DisplayMember = "nmbre_cncpto" --------------> Desplegamos la descripcion (campo DOS)
MyConnect.Close()

'Insertamos
Dim Insert_Sql As String
Insert_Sql = "Insert into cntrtos values ('" _
& Lx_Year.Text & "','" _
& Lx_Month.Text & "'," _
& " '01','" _
& Lb_Concept.XXXXXXXX & "',' " ) '--------> Aqui me pierdo ;-( Deberia ser el campo UNO del Lb_Concept


Si alguien me puede echar una mano, le agradeceria mucho.



JOSE LUIS

Replanteo la pregunta:

Es posible hacer eso en un ListBox?? o necesito otro control??

Estaba mirando que existe DropDownList, y este permite llenarlo con elementos (Como un array asociativo en PHP), y mostrar en pantalla un valor de la lista e insertar otro valor(asociado) de la misma lista, pero es en ASP.NET.

No se si estoy pidiendo algo imposible, o si debo replantear la situacion.

Sin embargo, cualquier ayuda o suguerencia es bienvenida.


JOSE LUIS

Me ayudo un amigo....

Esta es la solucion:

1) Cambiar el control. Se debe usar un ComboBox, ya que el el ListBox se puede, pero habria que sincronizar en dos ListBox y ocultar uno, y otras cosas que me parecio muy complicado y nada practico.

2) En el combo, usar la consulta y pasar los datos, uno a displaymember y otro a valuemember.

3) Al momento de insertar, definir el campo como selectedvalue del combo.

Y listo. Aqui le dejo el codigo, por si alguien alguna vez lo necesita.

.... Conex.....
Dim qry_Cncptos As String
Dim Ds_Contrato As New DataSet
Dim adap_Cncpto As MySqlDataAdapter = New MySqlDataAdapter
qry_Cncptos = " Select cdgo_cncpto, nmbre_cncpto from cncptos_cntrtos where afcta_dtlle = 'N' "
Dim cmd_Cncpto As New MySqlCommand(qry_Cncptos, MyConnect)

'Llenamos los Conceptos
adap_Cncpto.SelectCommand = cmd_Cncpto
adap_Cncpto.Fill(Ds_Contrato, "Conceptos")
MyConnect.Open()
Cb_Concept.DataSource = Ds_Contrato.Tables("Conceptos") ----> Fuente del Combo
Cb_Concept.DisplayMember = "nmbre_cncpto" --------------> Desplegamos la descripcion (campo DOS del Select)
Cb_Concept.ValueMember = "cdgo_cncpto" --------------> Asignamos el valor (campo UNO del Select)
MyConnect.Close()

'Insertamos
Dim Insert_Sql As String
Insert_Sql = "Insert into cntrtos values ('" _
& Lx_Year.Text & "','" _
& Lx_Month.Text & "'," _
& " '01','" _
& Cb_Concept.SelectedValue.ToString & "',' " ) '----> Aqui llevamos el cdgo_cncpto, aunque el usuario vea el nombre del concepto

...... resto de codigo de insercion .....

Espero les ayude.



JOSE LUIS