CONSULTA CONEXAO ACCESS PARAMETRO VIA DAO PARA ADO

BRUNOJUL 19/07/2011 13:48:22
#379548
Olá

Podem auxiliar ,

Tenho este codigo que funciona via DAO , gostaria de verificar se conhecem algo dentro das mesmas funcionalidades em ADO ?

Preciso abrir uma consulta já prontra em Access e via VB só passas os parametros .

***********este codigo abaixo abre a consulta em Access e executa conforme os parametros**********

Dim Cs As DAO.QueryDef
Dim rs As DAO.Recordset
Dim DB As DAO.Database

Set DB = DBEngine.OpenDatabase(App.Path & [Ô]\BD_DADOS.MDB[Ô], False, False, [Ô];pwd=[Ô][Ô][Ô])

Set Cs = DB.QueryDefs([Ô]Q_Sql_Impostos[Ô])
Cs.Parameters([Ô]@MES[Ô]).Value = cmb_mes.Text
Cs.Parameters([Ô]@PERIODO[Ô]).Value = cmb_qinzena.Text
Cs.Parameters([Ô]@NUM[Ô]).Value = frm_principal.num.Text

Set rs = Cs.OpenRecordset(dbOpenDynaset)

Cs.Close
DB.Close

Set DB = Nothing
Set Cs = Nothing
[ô][ô][ô][ô][ô][ô]*****************************************************************************************************************
grato;;
ROBIU 19/07/2011 13:58:01
#379549 Resposta escolhida
Tópico encerrado , respostas não são mais permitidas
Voltar