MIGRANDO DE DAO PARA ADO - PARTE 1

WEBIER 21/02/2012 12:27:04
#395181
agora descobrir uma coisa...

Todas as minhas consultas estão voltando vazias

exemplo:
        Call Abrir_BancodeDados
        Set RS.ActiveConnection = BD_ADO
        RS.Source = [Ô]SELECT * FROM FUNCIONARIO WHERE ACESSO = TRUE AND ATIVO = TRUE AND NIVEL <> 4 ORDER BY NOME[Ô]
        RS.Open

        MsgBox RS.RecordCount


aparece no msgbox -1

Onde tô errando?
WEBIER 21/02/2012 12:51:40
#395184
RESOLVI ASSIM:
Set BD_ADO = CreateObject([Ô]ADODB.Connection[Ô])
BD_ADO.Open [Ô]Provider = Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;Data Source =[Ô] & DBPath
BD_ADO.CursorLocation = adUseClient

Acrescentei o que tá em negrito e funcionou.... NÃO SEI PQ, mas funcionou
LLAIA 21/02/2012 14:24:34
#395192
Funcionou por causa diss oaqui:

BD_ADO.CursorLocation = adUseClient


Ao definir o local do cursor no cliente side, o ADO automaticamente definiu o CursorType, se não me engano, o Static que é igual ao Snapshot da DAO.

Vc tá indo muito no estilo Go Horse.

Leia e estude esses dois posts do Macoratti antes de continuar implementando o seu sistema:

http://www.macoratti.net/ado.htm

http://www.macoratti.net/ado_fast.htm[
Página 2 de 2 [15 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar