MaximoAccess

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

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.


    avatar
    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 282
    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: Qui 17 Ago 2017, 12:49