Access - Importar Archivo txt a Access

Importar Archivo txt a Access

Publicado por Eduardo (4 intervenciones) el 23/03/2017 15:25:40

Hola necesito su ayuda para importar un archivo txt a una tabla de access ya separando los datos y se agreguen automaticamente a cada campo de la tabla, este es el contenido que tendra el archivo txt

0101000000@1000171A061507000
0101000000@1000171A061517181
0101000000@1000171A061306130
0101000000@1000171A061316301
0101000000@1000171A061606160
0101000000@1000171A061616301
0101000000@1000171A061406230
0101000000@1000171A061416301
0101000000@1000171A 0
0101000000@1000171A 1
0101000000@1000022A061712280
0101000000@1000022A061714341
0101000000@1000022A061707210
0101000000@1000022A061711491
0101000000@1000022A061307510
0101000000@1000022A061308511
0101000000@1000022A061407420

y este es mi codigo hasta el momento

Private Sub importar_Click()

Dim strlinea As String

Dim strcamp1 As String

Dim strcamp2 As Integer

Dim strcamp3 As String

Dim strcamp4 As Date

Dim strcamp5 As Date

Dim strcamp6 As String

Open "N:\RH\BD RecHum\Daniel.txt" For Input As #1

While Not EOF(1)

Line Input #1, strlinea

strcamp1 = Mid(strlinea, 1, 15)

strcamp2 = Mid(strlinea, 16, 3)

strcamp3 = Mid(strlinea, 19, 1)

strcamp4 = Mid(strlinea, 20, 4)

strcamp5 = Mid(strlinea, 24, 4)

strcamp6 = Mid(strlinea, 28, 1)

CurrentDb.Execute ("INSERT INTO [Registro](CodigoBinario,NoNomina,Dato,FechaChequeo,HoraChequeo,Modalidad) VALUES ('" & strcamp1 & "','" & strcamp2 & "','" & strcamp3 & "','" & strcamp4 & "','" & strcamp5 & "','" & strcamp6 & "')")

Wend

Close #1

End Sub

Necesito su ayuda para poder pasar los datos en tipo fecha y en tipo hora, a continuacion les dejo los campos que tengo en la tabla que deseo que se llenen automaticamente
CodigoBinario Short Text
NoNomina Number
Dato Short Text
FechaChequeo Date/Time
HoraChequeo Date/Time
Modalidad Short Text

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 3

Val: 756

Importar Archivo txt a Access

Publicado por Jesús Manuel (375 intervenciones) el 27/03/2017 09:43:09

Para los campos fecha y hora tienen que ir entre # y puede que necesites la funcion format.

http://stackoverflow.com/questions/40805573/inserting-dates-in-access-using-vba

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Importar Archivo txt a Access

Publicado por jose (830 intervenciones) el 14/04/2017 11:36:33

CurrentDb.Execute ("INSERT INTO [Registro](CodigoBinario,NoNomina,Dato,FechaChequeo,HoraChequeo,Modalidad) VALUES ('" & strcamp1 & "'#'" & format(fecha, "MM/DD/YYYY") & "# '" & strcamp3 & "', " & STR$(NUMERO) & " , #" & format(HORA, "HH:MM") & "# ,'" & strcamp6 & "')")

Valora esta respuesta

Comentar