SoloCodigo

Bases de Datos => MS Access => Mensaje iniciado por: EduardoNavarrete en Jueves 23 de Marzo de 2017, 20:20

Título: Importar archivo txt a campos en tabla de access
Publicado por: EduardoNavarrete 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
Título: Re:Importar archivo txt a campos en tabla de access
Publicado por: Haggen en Martes 5 de Septiembre de 2017, 03:34
¿y que error te aparece?
Título: Re:Importar archivo txt a campos en tabla de access
Publicado por: F_Tanori en Viernes 8 de Septiembre de 2017, 06:48
Hola

la fecha se inserta con el simbolo #

insert into tabla (fecha_nacimiento) values (#1980-12-31#)


confirma el formato, lo puedes trasnformar con la funcion format
Saludos