• Jueves 28 de Marzo de 2024, 20:54

Autor Tema:  Importar archivo txt a campos en tabla de access  (Leído 3229 veces)

EduardoNavarrete

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Importar archivo txt a campos en tabla de access
« en: Jueves 23 de Marzo de 2017, 20:20 »
0
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

Haggen

  • Miembro activo
  • **
  • Mensajes: 88
  • Nacionalidad: mx
    • Ver Perfil
    • Mis proyectos
Re:Importar archivo txt a campos en tabla de access
« Respuesta #1 en: Martes 5 de Septiembre de 2017, 03:34 »
0
¿y que error te aparece?

F_Tanori

  • Moderador
  • ******
  • Mensajes: 1919
  • Nacionalidad: mx
    • Ver Perfil
Re:Importar archivo txt a campos en tabla de access
« Respuesta #2 en: Viernes 8 de Septiembre de 2017, 06:48 »
0
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
" ExIsTo y A vEcEs PiEnSo "

NOTA:
===========================================================================================================================
Este foro es para ayudar, aprender, compartir... usenlo para eso,
NO SE RESUELVEN DUDAS POR MENSAJE PRIVADO Y MENOS POR CORREO
===========================================================================================================================