bom dia

 

Como faço para fazer uma pesquisa em um banco de dados e mandar imprimir essa consulta,  no PRINT

No FRM tenho 2 txt  "txt1 e txt2", meu banco de dados tem o nome de VENDAS e a tabela onde eu quero buscar a informação chama CLIENTE, e o campo pda tabela chama CODIGO. Acontece que eu quero fazer uma consulta entre um intervalo tipo, tenho 200 clientes e quero fazer uma do 51 ate 98 por exemplo. como faço tudo isso par amandar a pesquisa para imprimir tipo PRINT

 

USO VB6

ACCESS 2003

DAO 3.6

Dim gConexao as new Adodb.Connection, TbCliente as new Adodb.Recordset

'Abrir o Bd

gConexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:MinhapastaVendas.MDB;"

tbcliente.Open "Select * from Cliente where Codigo >=" & text1.text & " and Codigo<=" & text2.text, gConexao, adOpenForwardOnly, adLockReadOnly

Do while not tbCliente.eof

   printer.print tbcliente!Codigo & " " & tbCliente!Nome

   tbcliente.Movenext

loop

tbcliente.Close

gConexao.close

'Observação pra usar Ado vc precisa se indicar em: Project/References/Microsoft Ativex Data Objects 2.1 (ou 2.6) library
 

 

J Carlos, Bom dia

 

Tem como eu ficar com DAO e ADO, no mesmo programa? pois o restante do sistema esta desenvolvida todo em DAO 3.6

 

Pode, sem problemas ou substitui a rotina que mandei por DAO

Embora o Ado é muito mais interessante e versátil.