PORFAVOR AYUDA!!!
necesito que me ayuden ocn un problema de data report. Tengo el data environment conectado a la base y el data report al envirnment,.
en el boton inprimir puse este codigo
Set entorno = New DataEnvironment2
DataEnvironment2.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "ventas.mdb" + ";Persist Security Info=False"
DataEnvironment2.Connection1.Open
Set listado = entorno.Commands("Venta")
listado.CommandType = adCmdText
listado.CommandText = " SHAPE { SELECT producto, cantidad, total,fecha,operador,rubro,stock from tabla1 where (rubro = c) and (operador = d) and fecha between (a) and (b) order by fecha} AS Command1 COMPUTE SUM(Command1.'total') AS Ventas, Command1 "
DataEnvironment2.venta Combo2.Text, Combo1.Text, Mask1.Text, Mask2.Text
Load DataReport2
DataReport2.Show 1
DataReport2.Refresh
Unload Me
pero me dice que tengo que hacer la consulta sql. O sea que no me la acepta. esto lo hago porque al instalarlo no me funciona si no lo hago por codigo..
GRACIAS!!!! AYUDEN!!
en el boton inprimir puse este codigo
Set entorno = New DataEnvironment2
DataEnvironment2.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "ventas.mdb" + ";Persist Security Info=False"
DataEnvironment2.Connection1.Open
Set listado = entorno.Commands("Venta")
listado.CommandType = adCmdText
listado.CommandText = " SHAPE { SELECT producto, cantidad, total,fecha,operador,rubro,stock from tabla1 where (rubro = c) and (operador = d) and fecha between (a) and (b) order by fecha} AS Command1 COMPUTE SUM(Command1.'total') AS Ventas, Command1 "
DataEnvironment2.venta Combo2.Text, Combo1.Text, Mask1.Text, Mask2.Text
Load DataReport2
DataReport2.Show 1
DataReport2.Refresh
Unload Me
pero me dice que tengo que hacer la consulta sql. O sea que no me la acepta. esto lo hago porque al instalarlo no me funciona si no lo hago por codigo..
GRACIAS!!!! AYUDEN!!
