[Resolvido]Arquivo AFD

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

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