Ver Mensaje Individual
  #2 (permalink)  
Antiguo 27/12/2011, 21:19
Avatar de edbc92
edbc92
 
Fecha de Ingreso: octubre-2010
Ubicación: Lima - Los Olivos
Mensajes: 93
Antigüedad: 13 años, 6 meses
Puntos: 5
Respuesta: Meter valor de un list box a sentencia sql

Cita:
Iniciado por swatt Ver Mensaje
Por ejemplo al realizar un select, donde al hacer el where se meta el valor que yo elija del list box ejemplo

select * from tabla_1 where campo_1 = valor_seleccionado_del_list box

¿Se puede hacer lo anterior?

Claro que sí, recuerda que tanto como el combobox y el listbox tienen los valores valuemember y displaymember...Como supondras, el valumember es para grabar el codigo; y el displaymember es para mostrar lo que desees...

Ejem:

Supongamos que llenas asi tu listbox:

Código vb:
Ver original
  1. dim cn as new sqlconnection(strcn)
  2.  
  3. try
  4. cn.open
  5. sql="select coditem, nomItem from items"
  6.  
  7. dim cmd as new sqlcommand(sql,cn)
  8.  
  9. dim dt as new datatable
  10. dt.load(cmd.executereader)
  11.  
  12. lstItems.datasource=dt
  13. lstItems.valumember="coditem"
  14. lstItems.displaymember="nomItem"
  15.  
  16. catch ex as exception
  17. msgbox(ex.message)
  18. finally
  19. cn.close

Y ahora supongamos que quieras visualizar datos correspondientes a cada item que este seleccionado en tu listbox en un label...

Código vb:
Ver original
  1. dim cn as new sqlconnection(strcn)
  2.  
  3. cn.open
  4. sql="select stock_item from items where cod_item=@cod"
  5.  
  6. dim cmd as new sqlcommand(sql,cn)
  7. cmd.parameters.addwithvalue("@cod",lstItems.selectedvalue)
  8.  
  9. dim dr as sqldatareader=cmd.executereader
  10. dr.read
  11.  
  12. lblStock.text=dr(0) 'Este es el indice de tu consulta, que viene a ser 'stock_item'

Espero que te sea de ayuda, alamos...
__________________
"Por medio de la perseverancia el caracol llegó al arca."
CHARLES SPURGEON