Private Sub consulta2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtctipo.Focus()
txtctipo.Clear()
txtcsubtipo.Clear()
With ListView1
.Items.Clear()
.Columns.Clear()
.View = View.Details
.GridLines = True
.Columns.Add("codigo tipo")
.Columns.Add("codigo subtipo")
.Columns.Add("referencia")
.Columns.Add("nombre")
End With
End Sub
Private Sub cmdsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsalir.Click
Me.Close()
End Sub
Private Sub txtctipo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtctipo.KeyPress
Select Case e.KeyChar
Case Is = Chr(13)
If txtctipo.Text.Length = 0 Then
MessageBox.Show("codigo no valido")
Exit Sub
End If
txtcsubtipo.Focus()
Case "0" To "9", "", Chr(8)
txtctipo.ForeColor = Color.Navy
Case Else
txtctipo.ForeColor = Color.DarkViolet
e.Handled = True
End Select
End Sub
Private Sub txtcsubtipo_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcsubtipo.KeyPress
Select Case e.KeyChar
Case Is = Chr(13)
If txtcsubtipo.Text.Length = 0 Then
MessageBox.Show("codigo no valido")
Exit Sub
End If
cmdbuscar.Focus()
Case "0" To "9", "", Chr(8)
txtcsubtipo.ForeColor = Color.Navy
Case Else
txtcsubtipo.ForeColor = Color.DarkViolet
e.Handled = True
End Select
End Sub
Private Sub cmdbuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdbuscar.Click
Dim xcantidad As Integer
ListView1.Items.Clear()
Dim item As ListViewItem
miconexion = New MySqlConnection("server=localhost;user=root;passwo rd=111;database=inventariop")
miconexion.Open()
micomando = New MySqlCommand("select count(*)from articulos,tproductos,subtprod where articulos.codt=" & txtctipo.Text & " and articulos.codsubtp =" & txtcsubtipo.Text & " and articulos.codt = tproductos.codt and articulos.codt = subtprod.codt;", miconexion)
xcantidad = micomando.ExecuteScalar
micomando = New MySqlCommand("select articulos.codt,articulos.codsubtp, articulos.nombre, articulos.refer, articulos.existencias, tproductos.codt, subtprod.codsubtp, subtprod.nomstp from articulos,tproductos,subtprod where articulos.codt=" & txtctipo.Text & " and articulos.codsubtp=" & txtcsubtipo.Text & ";", miconexion)
misdatos = micomando.ExecuteReader
If xcantidad > 0 Then
While misdatos.Read
item = New ListViewItem(misdatos("codt").ToString)
item.SubItems.Add(misdatos("codsubtp"))
item.SubItems.Add(misdatos("refer"))
item.SubItems.Add(misdatos("nombre"))
item.SubItems.Add(misdatos("existencias"))
ListView1.Items.Add(item)
End While
End If
If xcantidad = 0 Then
MessageBox.Show("No Hay codigo", "ERROR")
Exit Sub
End If
End Sub
End Class
muchas gracias
. 
