Palabras clave:
recordset, fichero, archivo, texto, planoAutor:
Búho (sacado de Microsoft) / Agosto 2002Extraído de:
La web del BúhoObjetivo: Abrir un recordset de un fichero de texto plano, donde se tienen registros en forma secuencial.
Primer ejemplo:Abro simplemente el Recordset del fichero de texto.
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:
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