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

DUVIDA - SELECT VBA LIGANDO COM ACCESS


felipe.passos

Pergunta

Boa tarde Pessoal,

Me ajudem nesse SELECT, quero trazer toda a lista que tem no BD do Access para o Excel usando o VBA

Nesse meu codigo está dando erro.

Option Explicit
Global Db As Database
Global RSt As Recordset
Global RSt2 As Recordset
Global rstp As Recordset
Global RstAux As Recordset
Global UserName, SQL, SQL1 As String

Public Sub Busca_eventos()

Dim Db2 As Database

Dim RSt2 As Recordset
Dim linha As Long ''define a linha onde será inserido
Dim Palavra As Variant

'A cada nova pesquisa o conteúdo anterior será apagado
Range("A6:f1000").Select
Selection.ClearContents
Cells(1, 1).Select

'define de onde buscar o registro:
Palavra = Sheets("Formulário").Range("a1").Value
Palavra = UCase(Palavra)

'ThisWorkbook.Path & "\BD_Orcamento.mdb"

Set Db2 = OpenDatabase(ThisWorkbook.Path & "BD_Orcamento.mdb" & ThisWorkbook.Name, False, False, "Excel 8.0")

Set RSt2 = Db2.OpenRecordset("SELECT * FROM Registro")


'define em qual linha começar:
 linha = 5
'enquanto não houver erro:
While Not RSt2.EOF
linha = linha + 1
Cells(linha, 1) = RSt2("armario")
Cells(linha, 2) = RSt2("caixa")
Cells(linha, 3) = RSt2("prateleira")
Cells(linha, 4) = RSt2("conteudo")
RSt2.MoveNext
Wend
'fecha o banco
RSt2.Close
Db2.Close
       
End Sub

 

E também tenho duvida de como fazer UPDATE

 

Obrigado!

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

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
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...