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

    Substituir tabela no access importando a do SQL via código

    avatar
    sawagner
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 29
    Registrado : 12/05/2016

    Substituir tabela no access importando a do SQL via código Empty Substituir tabela no access importando a do SQL via código

    Mensagem  sawagner 5/10/2016, 21:01

    Boa tarde pessoal,


    Estou precisando de ajuda para montar um código que ao rodar ele substitua a tabela que tem no access importando de um banco SQL.


    Terá o mesmo nome que está no SQL.


    Isto me ajudará bastante pois todo mês tenho que deletar as tabelas e importar manualmente. Eu não posso usar vínculo com o banco sql eu tenho que importar mesmo.


    Marco Messa
    Marco Messa
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 291
    Registrado : 28/06/2010

    Substituir tabela no access importando a do SQL via código Empty Re: Substituir tabela no access importando a do SQL via código

    Mensagem  Marco Messa 6/10/2016, 17:55

    Você precisa que o código execute ao abrir a aplicação: https://support.office.com/pt-br/article/Criar-uma-macro-que-seja-executada-quando-voc%C3%AA-abrir-um-banco-de-dados-98ba1508-dcc6-4e0f-9698-a4755e548124?omkt=pt-BR&ui=pt-BR&rs=pt-BR&ad=BR

    Executar um loop para excluir todas as tabelas do banco:
    Código:
    Dim dbs As DAO.Database
    Dim i As Integer

    Set dbs = CurrentDb

    'Executa o loop em todas as tabelas
    For i = dbs.TableDefs.Count - 1 To 0 Step -1
            ' Aqui você pode fazer a verificação exata de quais tabelas quer apagar
       If Not (dbs.TableDefs(i).Name Like "MSys*" Or dbs.TableDefs(i).Name Like "~*") Then
          dbs.TableDefs.Delete dbs.TableDefs(i).Name
       End If
    Next i

    Set dbs = Nothing

    Usar o método DoCmd.TransferDatabase: https://msdn.microsoft.com/pt-br/library/office/ff196455.aspx

    Exemplo:

    Código:
    DoCmd.TransferDatabase acImport, "ODBC Database", _
    "Driver={SQL Server};Server=" & SQLServerNameStr & ";Database=" & DBNameStr & _
    ";Trusted_Connection=Yes", acTable, "dbo.TabeladoSql"


    .................................................................................
    Tea with me that I book your face Cool

      Data/hora atual: 8/11/2024, 01:51