Importar datos a BD

[Juan Sánchez]

Hola grupo.
¿Hay alguna función o similar en VB que importe texto a una BC Access?
Necesitaría algo así como el TransferText de Access.
Con archivos ASCII se puede hacer con open y tal, pero resulta bastante más
lento.
Gracias.
--
"jstentor"@cemi.ingenia.es
pero sin comillas

[opsistemas]

Lo mejor que puedes hacer es crearte tu propia rutina
Ej:
Dim BD as dataBase
Dim tabla as recordset
Dim cadenaLinea as string
Dim nfichero as integer

nfichero=FreeFile()
' Esto es para Access en lugar de utilizar CurrentDB realiza el
'metodo OpenDataBase para abrir un objeto DataBase
Set BD = OpenDataBase("fdsdf.MDB")
Set Tabla=BD.OpenRecordSet("Tabla")
'
Open "Fichero" For input as nfichero
Do while Not Eof(nfichero)
Line Input #nfichero, CadenaLinea
'Partes con mid , Left o Right por donde tu quieras en la longitud
' de la cadena y posteriormente realizas un insert Into en la BD.
sql= "Insert Into NombreTabla (Campo1,campo2, ...,campo n,)" & _
" VALUES ( variable1,variable2,...,variablen)"
' Cuidado con los tipos de datos las cadenas van con comillas y las fechas
con almuadillas en MDB's ...
Tabla.Execute sql
Loop
Close # nfichero

Juan Sánchez <"jstentor"@cemi.ingenia.es> escribió en mensaje
<01be1168$bd182620$f7e5e0c2@sadm-inf-01>...

[Endeavour]

Holas:

Puedes "controlar" Access desde VB...

Dim oAccess as New Access.Application

With oAccess
.OpenCurrentDatabase <MDB>
.DoCmd.TransferText <Opciones>
.Close
End With

''' Tambien puedes crear una Sub() en un modulo de Access que realize lo
que tu quieras, y llamarla desde VB

With oAccess
.OpenCurrentDatabase <MDB>
.Run <SubCreadaEnUnModuloDeAccess>
.Close
End With

--
ACENTOS OMITIDOS POR SI ACASO ME EQUIVOCO

Luis

MailTo: "luis_saiz()mx3()redestb()com" + "(arroba) (punto) (punto)" +
Replace("com","es")

[Juan Sánchez]

Bien, bien, bien.
Funciona. Muchas gracias.