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

    [Resolvido]Arquivo AFD

    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 25/07/2017

    [Resolvido]Arquivo AFD Empty [Resolvido]Arquivo AFD

    Mensagem  alantb Ter 27 Set - 10:42

    Olá, alguém sabe de um exemplo de como importar arquivos afd (arquivo de marcações de ponto biométrico) para uma tabela no Access??

    ALAN
    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 25/07/2017

    [Resolvido]Arquivo AFD Empty Re: [Resolvido]Arquivo AFD

    Mensagem  alantb Qui 29 Set - 13:26

    Pessoal, consegui o que precisava fazendo umas adaptações em um código do Macoratti. Segue como ficou:

    esse é um trecho do txt a ser importado para tabela:

    000000258322102019132900000005465822b0
    00000025932210201913290000000126106d82
    0000002603221020191332000000063444b20b
    0000002613221020191333000000054771b850
    000000262322102019133500000003037678ea
    00000026332210201913370000000634876349
    00000026432210201913430000000553520984
    000000265322102019153200000006344459c7
    00000026632210201917230000000440754282
    0000002673221020191724000000032751c7d0
    0000002683221020191725000000052434aa8c

    O código é ficou assim:

    Public Sub LeArquivoTexto()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim F As Long
    Dim Linha As String


    F = FreeFile
    Open txtArquivo For Input As F 'abre o arquivo texto
    Set db = DBEngine(0).OpenDatabase(txtBase) 'abre o banco de dados

    On Error Resume Next

    db.Execute "DROP TABLE tbPonto"

    On Error GoTo trata_erro

    db.Execute "CREATE TABLE tbPonto (NroLinha text,DataDia text ,Horario text, Matricula text)"
    Set rs = db.OpenRecordset("tbPonto", dbOpenTable)


    Do While Not EOF(F)
    Line Input #F, Linha


    NroLinha = Mid(Linha, 1, 9)
    DataDia = Mid(Linha, 11, Cool
    Horario = Mid(Linha, 19, 4)
    Matricula = Mid(Linha, 24, 12)


    rs.AddNew 'inclui novo registro
    rs(0) = NroLinha
    rs(1) = DataDia
    rs(2) = Horario
    rs(3) = Matricula


    rs.Update 'grava o registro inserid

    Loop

    MsgBox "Arquivo texto importado com sucesso !! "

    LimparCampos
    rs.Close
    Application.RefreshDatabaseWindow
    db.Close

    Close #F
    Exit Sub

    trata_erro:
    MsgBox Err.Description

    End Sub

    Encerramos por aqui...

    ALAN

    crysostomo gosta desta mensagem


      Data/hora atual: Ter 7 Fev - 18:59