MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Erro update em tabela Access

    avatar
    sidymir
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 30/10/2017

    Erro update em tabela Access Empty Erro update em tabela Access

    Mensagem  sidymir 27/8/2020, 03:39

    Estou tentando executar o código abaixo, ele não mostra erro de execução, no entanto não envia as informações do formulário Excel para a tabela do Access.

    Código:
    Public Sub AddDatabaseEntry()

     Dim cn As New ADODB.Connection
     Dim rs As New ADODB.Recordset
     Dim stDB As String, stSQL As String, stProvider As String
     Dim Name As String
     Dim Address As String

     Name = Txtname
     Address = Txtcpf
       
     stDB = "Data Source= " & ThisWorkbook.Path & "\Projeto_Central.accdb"
     stProvider = "Microsoft.ACE.OLEDB.12.0"

     'Opening connection to database
     With cn

         .ConnectionString = stDB
         .Provider = stProvider
         .Open

     End With

    'SQL Statement of what I want from the database
     '''stSQL = "INSERT INTO Cadastro (Nome, CPF) " & _
             "Values (""" & Name & """, """ & Address & """)"
             
             
    stSQL = "INSERT INTO Cadastro (Nome, CPF) " & _
             "Values ('" & Name & "', '" & Address & "')"
             
             
    'stSQL = "INSERT INTO Cadastro (Nome, CPF)" & "Values ('" & Page(2).Txtnome & "','" & Txtcpf & "')"

     cn.Close
     Set rs = Nothing
     Set cn = Nothing

    End Sub

    Anexo arquivo em XLSX
    Anexos
    Erro update em tabela Access AttachmentProjeto - UPH.xlsm
    Você não tem permissão para fazer download dos arquivos anexados.
    (387 Kb) Baixado 2 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7086
    Registrado : 15/03/2013

    Erro update em tabela Access Empty Re: Erro update em tabela Access

    Mensagem  ahteixeira 27/8/2020, 10:09

    Olá Sidney Miranda, seja bem-vindo ao fórum.

    Este fórum é de MsAccess, o tópico foi movido para "Off Tópic - Assuntos Variado".

    Abraço e bons estudos.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3708
    Registrado : 04/04/2010

    Erro update em tabela Access Empty Re: Erro update em tabela Access

    Mensagem  Avelino Sampaio 27/8/2020, 12:12

    Olá!

    Está faltando o senhor mandar executar a consulta.  Algo assim:

    ...
    cn.execute stsql
    ...


    Sucesso!

    sidymir gosta desta mensagem

    avatar
    sidymir
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 30/10/2017

    Erro update em tabela Access Empty Re: Erro update em tabela Access

    Mensagem  sidymir 27/8/2020, 21:45

    Realizei a edição do código inserindo o comando informando, mas continua sem atualizar a tabela do Access
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1179
    Registrado : 13/12/2016

    Erro update em tabela Access Empty Re: Erro update em tabela Access

    Mensagem  Alexandre Fim 27/8/2020, 22:04

    Pelo que eu entendi, vc quer inserir no Access os dados de Nome e CPF da planilha "Central"?
    É isso?


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    Erro update em tabela Access Empty Re: Erro update em tabela Access

    Mensagem  JPaulo 28/8/2020, 19:30

    Código:
    Public Sub AddDatabaseEntry()
      Dim cn As New ADODB.Connection
      Dim rs As New ADODB.Recordset
      Dim stDB As String, stSQL As String, stProvider As String
      Dim Name As String
      Dim Address As String

      'Name = Txtname
      'Address = Txtcpf
     
       
      stDB = "Data Source= " & ThisWorkbook.Path & "\Projeto_Central.accdb"
      stProvider = "Microsoft.ACE.OLEDB.12.0"

      With cn

          .ConnectionString = stDB
          .Provider = stProvider
          .Open

      End With

    stSQL = "INSERT INTO Cadastro (NOME) VALUES ('" & UserForm1.Txtnome.Value & "')"
    cn.Execute stSQL

      cn.Close
      Set rs = Nothing
      Set cn = Nothing
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Erro update em tabela Access Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Erro update em tabela Access Folder_announce_new 102 Códigos VBA Gratuitos...
    Erro update em tabela Access Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 2/3/2021, 19:59