Ver Mensaje Individual
  #1 (permalink)  
Antiguo 11/11/2011, 11:07
sachis77
 
Fecha de Ingreso: octubre-2011
Ubicación: COLOMBIA, Medellín
Mensajes: 42
Antigüedad: 12 años, 5 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