Te recomendaría que uses un combobox y dependiendo de lo que estas seleccionando en tu combo, lo visualizes en un label. Ejem
Código:
'Primero te encargas de llenar tu combobox en el evento load
Private sub fill_combo()
dim cn as new sqlconnection(strcn) ----> 'acá esta tu variable conexión, claro tu ya lo habrás hecho.
cn.open
try
sql="select CODIGO_BARRAS from PRODUCTOS where CODIGO_BARRAS=@CODIGO_BARRAS
dim cmd as new sqlcommand(sql,cn)
'pasas los parámetros...
cmd.parameters.addwithvalue("@CODIGO_BARRAS",cboCodigo.selectedvalue)--> acá lo comparas con tu combobox y se pone selectedvalue para que te indique que índice va obtener a la hora de cambiar a otro codigo
dim dr as sqldatareader=cmd.executereader
dim dt as new datatable
dt.load(dr)
cboCodigo.DataSource=dt
cboCodigo.ValueMember="CODIGO_BARRAS"
cboCodigo.DisplayMember="CODIGO_BARRAS" ----> ' se pone lo mismo ya que tú quieres visualizar el codigo de barras y no la descripción.
Catch ex as Exception
MsgBox(ex.Message)
Finally
cn.dispose
End Try
End Sub
Ahora ese procedimiento solo lo cargas en tu evento load: Call fill_combo()
--Luego de hacer esto, de haber llenado tu combobox, tú quieres que dependiendo de lo que selecciones se muestre su respectiva descripción. En fin, te vas a la propiedad 'SelectedIndexChanged' de tu combobox, que lo obtienes haciendo doble click en tu combobox. Una vez que estas en esa propiedad del combobox 'cboCodigo_SelectedIndexChanged(byval..) haces este código:
Código:
If cboCodigo.Focused=False Then Exit Sub
Dim cn As New SqlConnection(strcn)
cn.Open
Try
sql="select Descripcion, UM, Stock, Precio from PRODUCTOS where CODIGO_BARRAS=@CODIGO_BARRAS"
Dim cmd As New SqlCommand(sql,cn)
cmd.parameters.addwithvalue("@CODIGO_BARRAS",cboCodigo.SelectedValue)
Dim dr As SqlDataReader=cmd.ExecuteReader
dr.Read()
'Ahora acá lo cargas en tus labels o textbox o en el control que desees..
lbl_desc.text=dr(0)
lbl_UM.text=dr(1)
lbl_Stock.text=dr(2)
lbl_precio.text=dr(3)
Catch ex As Exception
msgbox(ex.message)
Finally
cn.dispose
End Try
End Sub
Y con eso sería todo, cualquier duda me haces saber :D. Saludos!