Como pasar un archivo TXT a SQL o a un Recordset.?

Quisiera saber si me puedes ayudar.
Necesito sacar los datos de un archivo TXT, y llevarlos a una tabla de SQL. Los datos dentro del archivo TXT se encuentran separados por Tabulaciones.
Utilice el ejemplo que pongo a continuación, pero me muestra todos los datos en una columna y estos a su vez separados solo por un símbolo (cuadrado).
Private Function Leer_Txt_con_Ado() As ADODB.Recordset
      Dim rs As ADODB.Recordset
      Set rs = New ADODB.Recordset
      Dim conn As ADODB.Connection
      Set conn = New ADODB.Connection
      'Cadena de conexión
      conn.Open "DRIVER={Microsoft Text Driver (*.txt; *.csv)};" & _
                    "DBQ=" & App.Path & ";", "", ""
      'Ejecutamos el recordset pasandole el archivo de texto en la cláusula From
      rs.Open "select * from [archivo.txt]", conn, adOpenStatic, _
                  adLockReadOnly, adCmdText
      'eliminamos las variables
      Set Leer_Txt_con_Ado = rs
      Set rs = Nothing
      Set conn = Nothing
End Function

2 respuestas

Respuesta
1
Lo que tu estas utilizando es para archivos separados por coma, no por tabulaciones
Por eso no te funciona.
¿Y cómo puedo hacerlo para trabajar con este tipo de archivos (tabulados)?
Tienes que abrir el archivo con un Open de VB, luego leer linea a linea y separar los campos por el tabulador.
Puedes utilizar la función InStr que convierte un linea, la que lees del archivo en un array con cada campo que esta separado pro el tabulador.
Respuesta
1
Quiero compartir contigo este código, ya que por lo visto muchos de nosotros hemos tenido dudas en este tema. Este ejemplo fue creado en todoexpertos y yo lo único que hice fue poner mi granito de arena para que esto funcione.
Suerte y no duden en consultar
Dim bd As ADODB.Connection
Dim rec As ADODB.Recordset
Dim buscar As ADODB.Recordset
Dim tres As ADODB.Recordset
Dim arreglo()
Dim i As Integer
Private Sub cmDImportar_Click()
'----------------- Apertura de DB --------*----------
Set bd = New ADODB.Connection
bd.Provider = "Microsoft.Jet.OLEDB.4.0"
bd.Properties("Data Source") = App.Path + "\base.mdb"
bd.Properties("Jet OLEDB:Database Password") = ""
bd.Open
''bd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Sibs\otros\bdmodreloj.mdb;Persist Security Info=False"
'--------------- Proceso de Conexión -----------------
Dim nFile%, vDummy, ArrPlan, con
Dim Col1, Col2, Col3, Col4, Col5, Col6, Col7, Col8, Col9, Col10
'Cuadro de dialogo abrir
ArrPlan = App.Path + "\Temporal.txt"
con = 0
' Open the file for Input.
Open ArrPlan For Input As #1
''paso la base de TXT a MDB para mayor manejo"
Do While Not (EOF(1))
        con = con + 1
        'Separación de los datos del archivo en columnas delimitadas
        Line Input #1, Linea
       '' Input Linea, Col1, Col2, Col3, Col4, Col5, Col6, Col7, Col8, Col9, Col10
       i = 0
       BuscarCadena 1, Linea
        'j = 1
        'Do While j <= i
        'MsgBox arreglo(9, j)
        'j = j + 1
       ' Loop
        Col1 = Trim(arreglo(9, 1))
        Col2 = Trim(arreglo(9, 2))
        Col3 = Trim(arreglo(9, 3))
        Col4 = Trim(arreglo(9, 4))
        Col5 = Trim(arreglo(9, 5))
        otro = Trim(arreglo(9, 6))
        If otro = "FF FF FF FF FF" Or otro = "00 00 00 00 01" Then
            Col6 = "0"
            Col7 = "0"
            Col8 = "0"
            Col9 = "0"
            Col10 = "0"
        Else
            Col6 = Trim(arreglo(9, 6))
            Col7 = Trim(arreglo(9, 7))
            Col8 = Trim(arreglo(9, 8))
            Col9 = Trim(arreglo(9, 9))
            Col10 = Trim(arreglo(9, 10))
        End If
        Set rec = New ADODB.Recordset
        rec.Open "Select * from temporal ", bd, adOpenKeyset, adLockOptimistic
        If Col6 <> "0" Then
            With rec
                .AddNew
                !fecha = Format(Col1, "000000")
                !hora = Col2
                !terminal = Col3
                !sector = Col4
                !id_credencial = Col5
                !f1 = Col6
                !f2 = Col7
                !f3 = Col8
                !f4 = Col9
                !f5 = Col10
                .Update
                .Close
            End With
        End If
Loop
Close 1
''hago ahora el traspaso
        Set rec = New ADODB.Recordset
        rec.Open "Select * from temporal", bd, adOpenKeyset, adLockOptimistic
        If rec.BOF = True Or rec.EOF = True Then
            MsgBox " no existen registros a importar"
            Exit Sub
        End If
        rec.MoveFirst
        Do While Not rec.EOF = True
                Var_fecha = rec!fecha
                Var_idCredencial = rec!id_credencial
                Set buscar = New ADODB.Recordset
                buscar.Open "Select * from marcajes Where fecha Like '" & Var_fecha & "' And id_credencial Like '" & Var_idCredencial & "'", bd, adOpenKeyset, adLockOptimistic
                If buscar.BOF = True Or buscar.EOF = True Then
                buscar.AddNew
                    buscar!fecha = rec!fecha
                    If rec!f1 = "01" Then
                        buscar!entrada = rec!hora
                    End If
                    If rec!f1 = "02" Then ' regreso de comida o entrada nuevamente al trabajo
                        buscar!entrada2 = rec!hora
                    End If
                    If rec!f1 = "03" Then ' salgo a comer o voy a comer
                        Set tres = New ADODB.Recordset
                        tres.Open "Select min(hora) as Var_minimo from temporal where f1= '03' And id_credencial Like '" & Var_idCredencial & "'", bd, adOpenKeyset, adLockOptimistic
                        buscar!salida = tres!Var_minimo
                        Set tres = New ADODB.Recordset
                        tres.Open "Select max(hora) as Var_maximo from temporal where f1= '03' And id_credencial Like '" & Var_idCredencial & "'", bd, adOpenKeyset, adLockOptimistic
                        buscar!salida2 = tres!Var_maximo
                        tres.Close
                        Set tres = Nothing
                    End If
                    buscar!terminal = rec!terminal
                    buscar!sector = rec!sector
                    buscar!id_credencial = rec!id_credencial
                    buscar!f1 = rec!f1
                    buscar!f2 = "0"
                    buscar!f3 = "0"
                    buscar!f4 = "0"
                    buscar!f5 = "0"
                    buscar.Update
                Else
                    buscar!fecha = rec!fecha
                    If rec!f1 = "01" Then
                        buscar!entrada = rec!hora
                    End If
                    If rec!f1 = "02" Then ' regreso de comida o entrada nuevamente al trabajo
                        buscar!entrada2 = rec!hora
                    End If
                    If rec!f1 = "03" Then ' salgo a comer o voy a comer
                        Set tres = New ADODB.Recordset
                        tres.Open "Select min(hora) as Var_minimo from temporal where f1= '03' And id_credencial Like '" & Var_idCredencial & "'", bd, adOpenKeyset, adLockOptimistic
                        buscar!salida = tres!Var_minimo
                        tres.Close
                        Set tres = New ADODB.Recordset
                        tres.Open "Select max(hora) as Var_maximo from temporal where f1= '03' And id_credencial Like '" & Var_idCredencial & "'", bd, adOpenKeyset, adLockOptimistic
                        buscar!salida2 = tres!Var_maximo
                        tres.Close
                        Set tres = Nothing
                    End If
                    buscar!terminal = rec!terminal
                    buscar!sector = rec!sector
                    buscar!f1 = rec!f1
                    buscar!f2 = "0"
                    buscar!f3 = "0"
                    buscar!f4 = "0"
                    buscar!f5 = "0"
                    buscar.Update
                End If
            rec.MoveNext
        Loop
        Set rec = New ADODB.Recordset
        rec.Open "delete * from temporal", bd, adOpenKeyset, adLockOptimistic
bd.Close
MsgBox "Tarea Finalizada", vbInformation, "Procesos completados"
Exit Sub
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Contar registros con sql en vba excel

Tengo un Formulario en excel vba y deseo saber cuantos registros tiene el archivo "Empleados.xls" utilizando sql y finalmente mostrar la cantidad en un textbox. He logrado extraer datos e ir al ultimo registro del archivo "Empleado.xls", pero me...
1 respuesta

Macro para copiar datos de un libro a otro

Estoy intentando montar una macro que me permita, desde el libro1 en el que la ejecuto, abrir otro libro2, seleccionar un rango de datos, copiarlo y pegarlo en el libro1. Mi conocimiento de visual basic es limitadísimo, así que buscando por ahí...
2 respuestas

Archivos de Texto

Tengo un archivo plano txt, el cual contiene una serie de registros, y sus campos se encuentran separados por ";" (punto y coma). Necesito modificar ese archivo de modo que cada campo est'he separado por tabuladores; es decir, hacer de forma...
1 respuesta

Guardar imagen en mysql

Quiero guardar una imagen en un campo blob de mysql y no puedo, utilizo vfp, muy similar al visual basic que tu conoces, el problema es que no se si el load_file solo funciona en el servidor, lo que pasa es que yo tengo terminales remotas conectadas...
1 respuesta

Conectar con una Consulta Access

Esta es primera vez que le hago una consulta sobre el particular... Mi problema es el siguiente. Tengo una aplicación desarrollada con VB 6.0 y necesito accesar una Consulta de access. La consulta es el resultado de varios registros que se duplican...
1 respuesta

Visual basic 6.0 y sql server 2000

La verdad no se mucho de visual basic recién estoy empezando a aprender... Estoy tratabndo de hacer una aplicación la cual se pueda conectar a una base de datos hecha en sql server 2000 los datos pueden ser añadidos a esta base ingresando por teclado...
1 respuesta

Recuperar clave identity

Te comento que estoy utilizando VB 6.0 y Sql Server 2005. Tengo estas tablas: Voluntario NumVoluntario NumDador ApeVol NomVol FNacVol TipoDocumento NumDocumento DomicilioParticular TelefonoParticular Celular EMail Profesión Dador NumDador...
1 respuesta

Consultas con Adodc en visual basic

Te escribo para preguntarte como hago yo para poder realizar consultas desde visual basic a una base de datos en access con el componente Adodc u otro control diferente al Data, he hecho lo siguiente con el control Adodc: Adodc1.recordsource="select...
1 respuesta

Busco información sobre la utilización de listbox y obténer valores de una base de datos en Access

Necesito un pequeño favor. Estoy haciendo una agenda en Visual Basic, y quiero visualizar en un control LISTBOX, los nombres de mis contactos de una base de datos hecha en Access, y al hacer un clic sobre este control quiero que se visualizen los...
1 respuesta

Datagrid s.o.s

Como estas estoy trabajando con vb6 y access 2000. Tengo una inquietud que es la siguiente. Tengo un formulario que me pide el código del estudiante y un datagrid que me muestra todo lo que tiene la tabla préstamo (codestudiante, codlibro, fecha) mi...
2 respuestas