none
Inserir Dados do Excel no Access RRS feed

  • Pergunta

  • Pessoal,

    Estou com o seguinte problema já a alguns dias:
    Na minha empresa nem todos tem acesso ao Access, porem o Excel é liberado para 100% por esse motivo utilizei o Excel como Interface Grafica com o Usuário.

    A aplicação que estou desenvolvendo é muito simples, uma simples agenda telefonica com a possibilidade de inserir/atualizar/excluir dados.

    A dificuldade que estou tendo é a seguinte:
    Quando realizo o comando SQL INSERT INTO no excel os dados não estão sendo inseridos no BD do Access. Existe alguma maneira certa de se fazer essa Inclusão e Atualização de Dados no Access via Excel??????

    Abaixo segue o código utilizado:

    Set dbAgenda = OpenDatabase("C:\AgendaDB.mdb")
    sASQL = "INSERT INTO tbl_Contatos " _
            & "(Supplier_Code,CName,CTelefone,CFax,CCel,Cemail,CCargo,CDivisão,CEndereco,CObs,User_ID) VALUES (" _
            & CInt(cbEmpresa.List(cbEmpresa.ListIndex, 1)) & ",""" & tbNome & """,""" & tbTelefone & """,""" & tbFax & """,""" & tbCelular & """,""" _
            & tbEmail & """,""" & tbCargo & """,""" & tbDivisao & """,""" & tbEnder & """,""" & tbObs & """,""" & UserId & """)"
       
        dbAgenda.Execute sASQL

    Obrigado!
    Daniel

    segunda-feira, 26 de novembro de 2007 14:25

Respostas

  • Tente assim:

     

    Code Block
    Set dbAgenda = OpenDatabase("C:\AgendaDB.mdb")
    sASQL = "INSERT INTO tbl_Contatos " _
            & "(Supplier_Code,CName,CTelefone,CFax,CCel,Cemail,CCargo,CDivisão,CEndereco,CObs,User_ID) VALUES (" _
            & CLng(cbEmpresa.List(cbEmpresa.ListIndex, 1)) & ","'" & tbNome & "'","'" & tbTelefone & "'","'" & tbFax & "'","'" & tbCelular & "'","'" _
            & tbEmail & "'","'" & tbCargo & "'","'" & tbDivisao & "'","'" & tbEnder & "'","'" & tbObs & "'","'" & UserId & "')"
       
        dbAgenda.Execute sASQL

     

     

     

    O mais limpo e fácil de debugar seria usar um recordset, mas tente antes da forma acima.
    terça-feira, 27 de novembro de 2007 15:43
    Moderador