Public Sub conectagrid()
Dim adapta2 As New OleDbDataAdapter
Dim datavacio As New DataSet
Dim comados = conexion.CreateCommand
comados.CommandType = CommandType.Text
'Try
'comados.CommandText = "SELECT reg,Cantidad,Pts,Fecha,Producto,NombreFormaPago,Iv aVenta,Barra,NombTerminal,Plu,Anulado,IdComanda From VentasAhora WHERE Barra = @combo1 and NombTerminal = @combo2 and Anulado=0 and Fecha BETWEEN @FI AND @FF ORDER BY reg"
'comados.CommandText = "SELECT reg,SumaDeTotal,Fecha,Barra,NombTerminal,Anulado From EstimaTickets2 WHERE Barra = @combo1 and NombTerminal = @combo2 and Anulado=0 and Fecha BETWEEN @FI AND @FF ORDER BY reg"
comados.CommandText = "SELECT reg,Fecha,Barra,NombTerminal,Plu,Anulado,IdComanda , ROUND(Sum(Cantidad*Pts),2) AS TOTAL From VentasAhora WHERE Barra = @combo1 and NombTerminal = @combo2 and Anulado=0 and Fecha BETWEEN @FI AND @FF group by reg,Fecha,Barra,NombTerminal,Plu,Anulado,IdComanda order by reg"
'creo los parametros que uso en el SELECT, para filtrar en el datagridview(dgtotales)
comados.Parameters.AddWithValue("@combo1", ComboMostrador.SelectedValue.ToString)
comados.Parameters.AddWithValue("@combo2", ComboTerminal.SelectedValue.ToString)
comados.Parameters.AddWithValue("@FI", Fecha1.Value.Date.ToString("dd/MM/yyyy"))
comados.Parameters.AddWithValue("@FF", Fecha2.Value.Date.ToString("dd/MM/yyyy"))
adapta2.SelectCommand = comados
adapta2.Fill(datavacio, "VentasAhora")
'MessageBox.Show(adapta2.Fill(datavacio, "IntroduccionDeVentasAhora").ToString)
'aquí cargo el datasource y el datamenber del datagrid
DgEstima.DataSource = datavacio
DgEstima.DataMember = "VentasAhora"
DgEstima.Refresh()
