Bueno, imaginemos que los productos están en un control ListBox de un formulario llamado Form1 y quieres mostrar el total de ventas de ese día (campo "Total_Dia" de la tabla) del elemento (Producto) seleccionado en un control TextBox ("Text1") de un segundo formulario que se llama Form2
También imaginemos que ya tienes hecha a la conexión a la base de datos y se llama "cn" y además que estás trabajando con ADO y VB6.
Y siguiendo con la imaginación, la base de datos está en formato Access.
Coloca este código en el evento Click del ListBox:
Código PHP:
Dim rs As New ADODB.Recordset
Dim sql As String
rs.CursorLocation = adUseClient
sql = "Select * From Pedidos Where Producto = '" & List1.Text & "' And Fecha_Pedido = #" & Date & "#"
rs.Open sql, cn, adOpenStatic, adLockOptimistic
If rs.RecordCount > 0 Then
Form2.Text1.Text = rs!Total_Dia
Form2.Show
Else
MsgBox "No hay ventas de ese producto en el dia de hoy"
End If
