MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    Enviar e Validar dados banco access pelo excel via VBA

    avatar
    cbento
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 07/02/2014

    Enviar e Validar dados banco access pelo excel via VBA Empty Enviar e Validar dados banco access pelo excel via VBA

    Mensagem  cbento 7/2/2014, 21:35

    Olá amigos sou novo em programação VBA, preciso de ajuda tenho uma planilha no Excel que envio os dados para um banco no Access, mas gostaria de saber como faço para colocar uma validação, para não ocorrer de enviar os mesmos dados duas vezes, segue código que estou usando para enviar os dados.

    Sub base()

    Dim cn As ADODB.Connection 'Variavel para base
    Dim rs As ADODB.Recordset 'Variavel para tabela
    Dim r As Long 'Variavel para o numero da linha na planilha

    'conectando ao banco de dados

    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\cmpbh\teste.mdb;"

    'conectando a tabela

    Set rs = New ADODB.Recordset
    rs.Open "vpb", cn, adOpenKeyset, adLockOptimistic, adCmdTable 'todos os campos da tabela

    'Numero inicial da planilha

    r = 2

    Do While Len(Range("A" & r).Formula) > 0 'Repete enquanto a coluna A for maior que zero

    With rs

    .AddNew 'insere novo registro no banco de dados

    ' Adiciona valores para cada campo da tabela

    .Fields("nome_Vpb_Diurno") = Range("A" & r).Value
    .Fields("horario_Diurno") = Range("B" & r).Value
    .Fields("nome_Vpb_Noturno") = Range("C" & r).Value
    .Fields("horario_Noturno") = Range("D" & r).Value
    .Fields("data_mes") = Range("E" & r).Value

    .Update 'Atualiza o novo registro
    End With

    r = r + 1 'proxima linha da planilha para o banco de dados

    Loop

    MsgBox "Dados Enviados com Sucesso", vbInformation, "Informação"

    'fecha a tabela
    rs.Close
    Set rs = Nothing

    'fecha o banco de dados
    cn.Close
    Set cn = Nothing

    End Sub

    agradeço aos colegas que me responderam sobre a atualização de dados, pensei um pouco e vejo que no momento esta validação e mais importante.


    Última edição por cbento em 4/3/2014, 14:43, editado 2 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Enviar e Validar dados banco access pelo excel via VBA Empty Re: Enviar e Validar dados banco access pelo excel via VBA

    Mensagem  criquio 7/2/2014, 22:01

    Olá, seja bem vindo ao fórum! Se as planilhas estarão sempre presentes, por que não vincula o Access ao invés de gravar os dados nele? Assim ele poderá ficar sempre atualizado sem ocupar espaço extra no computador.

    OBS: não repita tópicos com a mesma dúvida. Isso polui o fórum e dificulta as pesquisas de outros usuários. O outro tópico foi excluído.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 21/11/2024, 22:26