Autor Tema: Recordset contra texto plano  (Leído 1867 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 204
Recordset contra texto plano
« en: Noviembre 20, 2012, 01:57:10 pm »
Palabras clave: recordset, fichero, archivo, texto, plano
Autor: Búho (sacado de Microsoft) / Agosto 2002
Extraído de: La web del Búho

Objetivo:
Abrir un recordset de un fichero de texto plano, donde se tienen registros en forma secuencial.

Cita de: Búho
Primer ejemplo:Abro simplemente el Recordset del fichero de texto.   

Código: [Seleccionar]
Option Explicit
Function TestSchema()
   Dim db As DATABASE, rs As Recordset
   Set db = OpenDatabase("c:\my documents", False, _
   False,"TEXT;Database=c:\my documents;table=contacts.txt")
   Set rs = db.OpenRecordset("contacts.txt")

   rs.MoveLast
   Debug.Print "Record count= " & rs.RecordCount
   rs.Close

End Function

'========================================

Ejemplo 2
Se crea una tabla linkada al fichero de texto:

Código: [Seleccionar]
Option Explicit
Function LinkSchema()
   Dim db As DATABASE, tbl As TableDef
   Set db = CurrentDb()
   Set tbl = db.CreateTableDef("Linked Text")

   tbl.Connect = "Text;DATABASE=c:\Mis Documentos;TABLE=contacts.txt"
   tbl.SourceTableName = "contacts.txt"
   db.TableDefs.Append tbl
   db.TableDefs.Refresh
End Function