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


3 participantes

    [Resolvido]duvida back end front end e backup

    avatar
    wesleyrob9
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 08/02/2012

    [Resolvido]duvida back end front end e backup Empty duvida back end front end e backup

    Mensagem  wesleyrob9 23/2/2012, 20:19

    ola! mais uma vez

    to com uma duvida a uito tempo sobre dividir um BD. Porque dividi o bD em front end e back end, ai verifiquei que o front end tambem aumenta de tamanho tipo; quando o sistema começou a ser usado tinha um tanto de espaço e depois de algum tempo, não so o back end mas tambem o front aumentaram o tamanha. isso e normal?
    avatar
    Convidad
    Convidado


    [Resolvido]duvida back end front end e backup Empty Re: [Resolvido]duvida back end front end e backup

    Mensagem  Convidad 23/2/2012, 20:26


    Olá!

    Isto é normal.
    Faça um Compactar/Reparar de vez em quando.
    E evite armazenar imagens no bd.

    avatar
    wesleyrob9
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 08/02/2012

    [Resolvido]duvida back end front end e backup Empty Re: [Resolvido]duvida back end front end e backup

    Mensagem  wesleyrob9 24/2/2012, 00:12

    mas porque se os dados sao gravados na tabela e nao no front end.

    e aproveitando como isnsiro um backup automatico no back end?
    avatar
    Convidad
    Convidado


    [Resolvido]duvida back end front end e backup Empty Re: [Resolvido]duvida back end front end e backup

    Mensagem  Convidad 24/2/2012, 00:35


    Código para criar um zip do BackEnd:


    Option Compare Database
    Option Explicit

    Public Sub ZipaBanco()
    'Criado pelo colega Raw do Canadá
    'Adaptado por JPaulo ® Maximo Access
    Dim strDate As String, DefPath As String
    Dim oApp As Object
    Dim fname, FileNameZip
    'Dim strPrefix As String
    On Error Resume Next

    DefPath = fncOrigem(mSystem) 'Local e pasta onde está o banco de backup
    If Right(DefPath, 1) <> "\" Then
    DefPath = DefPath & "\"
    End If

    strDate = Format(Now, "dd-mmm-yy_h-mm-ss")
    FileNameZip = DefPath & Empresa & " Backup " & Format(Date, "Long Date") & " .zip"
    'strPrefix = "Teste" 'Nome do banco
    fname = BackEndAtual
    On Error Resume Next
    CriaNovoZip (FileNameZip)
    Set oApp = CreateObject("Shell.Application")
    oApp.NameSpace(FileNameZip).CopyHere fname
    Info "Criado com sucesso em: " & FileNameZip
    Set oApp = Nothing
    Exit Sub
    End Sub

    Public Sub CriaNovoZip(sPath)
    'Criado pelo colega Raw do Canadá
    'Adaptado por JPaulo ® Maximo Access
    Dim ofso, arrHex, sBin, i, Zip
    On Error Resume Next
    Set ofso = CreateObject("Scripting.FileSystemObject")
    arrHex = Array(80, 75, 5, 6, 0, 0, 0, _
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
    For i = 0 To UBound(arrHex)
    sBin = sBin & Chr(arrHex(i))
    Next
    On Error Resume Next
    With ofso.CreateTextFile(sPath, True)
    .Write sBin
    .Close
    End With
    Exit Sub
    End Sub

    'No seu botão é só chamar:

    'Private Sub SeuBotão_Click()
    'Call ZipaBanco
    'End Sub



    Identificação da Empresa:

    Public Function Empresa() As String
    Empresa = "Nome da Empresa"
    End Function



    Pasta para o backup:

    '-------------------------------------------------
    'Código de Avelino Sampaio
    'Cria uma lista para usar com o argumento pasta
    'Cada item corresponde a número começando do zero
    '-------------------------------------------------
    Public Enum mPasta
    mRaiz
    mSystem
    End Enum

    Public Function fncOrigem(Optional pasta As mPasta = mRaiz)
    On Error Resume Next
    Dim strLocal As String

    Select Case pasta
    Case 0: strLocal = "\"
    Case 1: strLocal = "\System\"
    Case Else: MsgBox "Pasta informada fora da lista...", vbInformation, "Aviso"
    End Select

    fncOrigem = Application.CurrentProject.Path & strLocal

    End Function



    Retorna o arquivo backend:

    Public Function BackEndAtual() As String

    Dim strCon As String
    ' tab_Clientes deve ser uma tabela do backend
    strCon = CurrentDb.TableDefs("tab_Clientes").Connect
    BackEndAtual = Right$(strCon, Len(strCon) - InStr(1, strCon, "=", 2))

    End Function


    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]duvida back end front end e backup Empty Re: [Resolvido]duvida back end front end e backup

    Mensagem  Avelino Sampaio 24/2/2012, 05:26

    Olá

    Alem da ótima dica do Norberto, sugiro que assista minhas duas vídeos-aulas abaixo:

    Backup

    e

    Segurança usando o OPEN

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]duvida back end front end e backup Empty Re: [Resolvido]duvida back end front end e backup

    Mensagem  criquio 7/3/2012, 18:10

    Estou passando o tópico a Resolvido. Se necessário, reabra por gentileza.
    Caso já tenha resolvido, favor dar um retorno.
    Grato:

    A moderação.


    .................................................................................
    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.


    Conteúdo patrocinado


    [Resolvido]duvida back end front end e backup Empty Re: [Resolvido]duvida back end front end e backup

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 05:56