VB + ACCESS

[Guest João Ricardo]

Desenvolvi um aplicativo em VB utilizando banco de dados ACCESS que utiliza informações de consultas do próprio ACCESS.

Estou precisando passar do VB para o ACCESS valores de variáveis a serem utilizados nas consultas, afim de facilitar a geração dos relatorios.

ex.:

SELECT movimentacao.cod_movimentacao, movimentacao.numero, movimentacao.cod_patrimonio, movimentacao.origem, movimentacao.destino, movimentacao.data_movimentacao, objeto.descricao

FROM movimentacao INNER JOIN (objeto INNER JOIN patrimonio ON objeto.cod_objeto=patrimonio.cod_objeto) ON movimentacao.cod_patrimonio=patrimonio.cod_patrimonio

WHERE movimentacao.cod_movimentacao=x;

x É O VALOR DE UMA VARIÁVEL DO VB QUE PRECISO PASSAR PRO ACCESS.

OBRIGADO.

[kuroi]

veja se isso aqui ajuda: http://www.macoratti.net/ado_sp3.htm

[Guest João Ricardo]

Vlw mesmo, mas existem um outro problema a ser resolvido. Eu montei um relatório no ACCESS que ao ser chamado pelo VB irá executar a consulta que recebe o parâmetro passado.

Como posso fazer para que na chamada do relatório, o mesmo traga as informações da consulta atualizada?

O que esta acontecendo é que o programa passa o parâmetro para a consulta, a consulta é executada corretamente com o valor recebido do VB, porém quando o relatório é chamado ele executa a consulta que solicita o parâmetro novamente.

-------------------------------------------------------------------------------------------------------------------------------------------------------

Dim mc As QueryDef

Dim Ac As Access.Application

Set Ac = New Access.Application

Ac.OpenCurrentDatabase (App.Path & "\SisUC.mdb")

Set mc = db.QueryDefs("Consulta_patrimoniogerencia")

mc.Parameters("pcodgerencia").Value = "1" -> passa o parâmetro para consulta do access e a executa

Ac.DoCmd.OpenReport "FRM_Patrimoniogerencia", acViewPreview -> no access esse relatório chama a consulta novamente

Ac.Visible = True

Ac.DoCmd.Maximize

Ac.Application.RunCommand acCmdZoom100

-------------------------------------------------------------------------------------------------------------------------------------------------------