Ir para conteúdo
Fórum Script Brasil
  • 0

Excel acessando o Access


mamaott

Pergunta

Prezados,

estou com uma duvida cruel.

Estou fazendo uma aplicação no excel em VBA que tem acesso ao Access.

Criei botões no excel para navegação no access, so que os botões não estão funcionando.

Veja o scrip do botão:

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Programação\db_ado.mdb"

cn.Open

Set rs = New ADODB.Recordset

rs.Open "ADO", cn, adOpenDynamic, adLockOptimistic

rs.MoveNext

Me.Text_num.Value = rs.Fields(0)

Me.Text_nome.Value = rs.Fields(1)

Me.Text_trabalho.Value = rs.Fields(2)

obs:

eu consegui acessar normalmente.

Inseri dados e exportei dados normalmente.

mas navegar na tabela foi meu problema.

se vocês puderem me ajudar.

obrigado.

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 0

boas,

Vê se com as alterações abaixo j'a funciona:

Set cn = New ADODB.Connection

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Programação\db_ado.mdb"

cn.Open

Set rs = New ADODB.Recordset

rs.Open "ADO", cn, adOpenDynamic, adLockOptimistic

rs.movefirst

while not rs.eof

Me.Text_num.Value = rs.Fields(0)

Me.Text_nome.Value = rs.Fields(1)

Me.Text_trabalho.Value = rs.Fields(2)

rs.MoveNext

WEND

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...