MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    sawagner
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  sawagner em Qua 05 Out 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
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Marco Messa em Qui 06 Out 2016, 17:55

    Você precisa que o código execute ao abrir a aplicação: [Você precisa estar registrado e conectado para ver este link.]

    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: [Você precisa estar registrado e conectado para ver este link.]

    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 [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 03 Dez 2016, 19:43