
11/11/2011, 11:07
|
| | Fecha de Ingreso: octubre-2011 Ubicación: COLOMBIA, Medellín
Mensajes: 42
Antigüedad: 13 años, 4 meses Puntos: 0 | |
como realizo consultas en visual hola es que nunca he realizado consultas y a la base de datos de inventario que cree quiero realizarle varias pero no lo he logrado tengo el siguiente sctyp para que me muestra las fechas la referencia y la cantidad de un articulo, pero no me da
Dim item As ListViewItem
miconexion = New MySqlConnection("server=localhost;user=root;passwo rd=111;database=inventariop")
miconexion.Open()
micomando = New MySqlCommand("select count(*) from facte,factd where facte.nro = factd.nro and fecha >='" & txtfinicial.Text & "' and fecha <= '" & txtffinal.Text & "';", miconexion)
xcantidad = micomando.ExecuteScalar
micomando = New MySqlCommand("select facte.fecha,factd.refer,factd.cant, from facte,factd where facte.nro = factd.nro and fecha >='" & txtfinicial.Text & "' and fecha <='" & txtffinal.Text & "';", miconexion)
misdatos = micomando.ExecuteReader
If xcantidad > 0 Then
While misdatos.Read
item = New ListViewItem(misdatos("nro").ToString)
item.SubItems.Add(misdatos("refer"))
item.SubItems.Add(misdatos("cantidad"))
fe1 = misdatos("fecha")
fecha2 = Format(fe1.ToString("yyy-MM-dd"))
item.SubItems.Add(fecha2)
ListView1.Items.Add(item)
End While
End If
If xcantidad = 0 Then
MessageBox.Show("No Hay datos", "ERROR")
Exit Sub
End If
End Sub |