• Jueves 28 de Marzo de 2024, 15:48

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - EduardoNavarrete

Páginas: [1]
1
MS Access / Importar archivo txt a campos en tabla de access
« en: Jueves 23 de Marzo de 2017, 20:20 »
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

Páginas: [1]