|
|
Postada em 11/08/2005 08:33 hs
'rs.Open sql, cn Essa linha está em comentário, o RecordSet não vai abrir nunquinha e é por isso que vc não recebe erro e nem passa pelo if que testa se tem registros no RecordSet. Pra resolver, tire essa linha do comentário. |
|
|
|
|
|
|
|
Postada em 11/08/2005 08:37 hs
kra, eu consegui fazer. Olha só: sql = "SELECT Count(pedido.codigo_pedido) AS ContarDecodigo_pedido ,pedido.eqz "
sql = sql & "FROM cadastrovendedor ,pedido "
sql = sql & "WHERE pedido.codigo_vendedor *= cadastrovendedor.codigo_vendedor "
sql = sql & "AND (((pedido.data2) Between Convert(Datetime,'" & Trim(cmbDiaI.text) & "/" & Trim(cmbMesI.text) & "/" & Trim(cmbAnoI.text) & "',103) "
sql = sql & "And Convert(Datetime,'" & Trim(cmbDiaF.text) & "/" & Trim(cmbMesF.text) & "/" & Trim(cmbAnoF.text) & "',103))) "
sql = sql & "GROUP BY pedido.eqz, cadastrovendedor.divisao "
sql = sql & "ORDER BY cadastrovendedor.divisao "
value pelo help
Rafael Carlos Martin Desenvolvedor de WebSites e Sitemas E-mail:rafa-martin@ibest.com.br |
|
|
|
|
