como mostrar info de tabla en texbox selecionando desde listbox [URL="http://www.mediafire.com/?fy63yc61q8tzemc"]LOS ARCHIVOS ESTAN EN MEDIAFIRE[/URL]
saludos a todos los colegas tengo un problema, tengo esta consulta . no me da ningun error ejecutandolo en sql server2005 todo bien ahi
Código:
tengo mi formulario en vbnet2005 donde qiero mostrar los datos de la consulta en las cajas de texto, como ven en la imagen al lado izq tngo un listbox ahi se muestran los codigo de producto cuando yo haga clic en cualqiera de ello, qiero q me llene las cajas de textboxSELECT prod.nomproducto,
prod.cantproducto,
prod.tamproducto,
tp.nomtamprod as tamañoproducto ,
um.nomum as UnidadMedida ,
mk.nombmarca as Marca ,
prod.pc,
prod.pv
FROM producto as prod,
unidadmedida as um,
marca as mk,
tamprod as tp
where prod.id_marca=mk.id_marca
and
prod.id_cantprodum=um.idum
and
prod.id_tamprodum=tp.idtamprod
and
cod_prod='EL CAMPO A BUSCAR'
con esta consulta es facil ,pero en los combo llamado MARCA , CANTIEXISTENCIA,TAMAÑOPRODUCTO, CUANDO YO GUARDO no mando a guardar texto de esos combo sino los ID CORESPONDIENTE, con la siguiente consulta
Código:
tambien les muestro el codigo q utilizo en vbDim query As String = "select * from producto where cod_producto ='" & Me.ListBox1.Text & "'"
Código:
es facil de mostrar los datos en las cajas de textbo y los combobox pero en los combo solo me muestra los ide es por eso que estoy utilizando la consulta de arriba la primera Private Sub ListBox1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseClick
Call Llenar_Textbox()
End Sub
'*****************************************************************************************
Public Sub Llenar_Textbox()
Dim sqdataadapter As SqlDataAdapter
Dim datase As DataSet
Dim cod_producto, nomproducto, id_marca, cantproducto, id_cantprodum, tamproducto, id_tamprodum As String
Dim pc, pv, x As Integer
'VARIABLE PARA USAR EN LAS CONSULTAS
Try
cnx.Open()
If cnx.State = ConnectionState.Open Then
Dim query As String = "select * from producto where cod_producto ='" & Me.ListBox1.Text & "'"
sqdataadapter = New SqlDataAdapter(query, cnx)
datase = New DataSet
sqdataadapter.Fill(datase, "producto")
For x = 0 To datase.Tables("producto").Rows.Count - 1
cod_producto = datase.Tables("producto").Rows(x).Item(1)
nomproducto = datase.Tables("producto").Rows(x).Item(2)
id_marca = datase.Tables("producto").Rows(x).Item(3)
cantproducto = datase.Tables("producto").Rows(x).Item(4)
id_cantprodum = datase.Tables("producto").Rows(x).Item(5)
tamproducto = datase.Tables("producto").Rows(x).Item(6)
id_tamprodum = datase.Tables("producto").Rows(x).Item(7)
pc = datase.Tables("producto").Rows(x).Item(8)
pv = datase.Tables("producto").Rows(x).Item(9)
Me.txtidproducto.Text = (cod_producto)
Me.txtnomproducto.Text = (nomproducto)
Me.cboid_marca.Text = (id_marca)
Me.txtcantproducto.Text = (cantproducto)
Me.cboid_cantprodum.Text = (id_cantprodum)
Me.txttamproducto.Text = (tamproducto)
Me.cboid_tamprodum.Text = (id_tamprodum)
Me.txtpc.Text = (pc)
Me.txtpv.Text = (pv)
Next
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
cnx.Close()
End Sub
ahora les muestro la consulta q esta arriba utilanzandola en vbnet2005
Código:
y aora les muestro elmensaje de error q me manda al acer clic en el listbox en cualqiera de los codigo de producto Dim query As String = "SELECT prod.nomproducto,prod.cantproducto,prod.tamproducto,tp.nomtamprod as tamañoproducto,um.nomum as UnidadMedida ,mk.nombmarca as Marca ,prod.pc,prod.pv" & _
"FROM producto as prod,unidadmedida as um,marca as mk,tamprod as tp" & _
"where prod.id_marca = mk.id_marca and prod.id_cantprodum = um.idum and prod.id_tamprodum=tp.idtamprod and prod.cod_producto= '" & Me.ListBox1.Text & "'"
aver si me hechan una ayuda
HE LA CONSULTA EN UNA SOLA FILA Y AHORA M MANDA ESTE MENSAJE
Código:
PERO AORA ME MANDA ESTE OTRO MENSAJE"SELECT producto.cod_producto,producto.nomproducto,producto.cantproducto,producto.tamproducto,tamprod.nomtamprod,unidadmedida.nomum,marca.nombmarca,producto.pc,producto.pv FROM producto,unidadmedida,marca,tamprod where (producto.id_marca = marca.id_marca) and (producto.id_cantprodum = unidadmedida.idum) and (producto.id_tamprodum=tamprod.idtamprod) and producto.cod_producto = '" & Me.ListBox1.Text & "'"
