Salve
Dovrei importare il contenuto di un file rtf in un database access.
In particolare ho un file per ogni record del database e devo inserire nel campo note il contenuto del file corrispondente.
Id Note
01 contenuto del file 01.rtf
02 contenuto del file 02.rtf
Potete aiutarmi per favore?
una domanda preliminare: devi proprio mettere il "contenuto" nel campo note? di solito si mette il solo percorso...
si mi serve avere il contenuto del file per poi fare delle ricerche all'interno del campo note.
esempio cerca tutti gli id che contengono nel campo note la parola "pippo"
Grazie per l'aiuto
ok, i file rtf sono dei semplici file di testo. aprili con FSO, leggine il contenuto con .ReadAll e poi scrivilo nel db.
Non usare "Note" come nome del campo, è una parola riservata di access.
grazie per i vostri suggerimenti, ci sono riuscito!
Alla prossima!
----------------------------------------------------
nello spirito del forum, spiega come hai fatto (postando la soluzione), così aiuterai qualche altro forumista che dovesse avere lo stesso problema.
----------------------------------------------------
certamente, ecco il codice
rs1.Open "SELECT * FROM Anagrafica order by Id_Candidato", Connessione, 3, 3
do while not rs1.eof
id_candidato=rs1("Id_Candidato")
ilfile=server.mappath("./note/"&id_candidato&".rtf")
Set file = CreateObject("Scripting.FileSystemObject")
Set ilfile = file.OpenTextFile(ilfile, 1, False)
do while not ilfile.AtEndOfStream
illine=ilfile.readline
rs1("Note") = illine
loop
ilfile.Close
set ilfile=nothing
set file=nothing
rs1.Update
rs1.MoveNext
Loop
rs1.Close
mmmmm ma così facendo
do while not ilfile.AtEndOfStream
illine=ilfile.readline
rs1("Note") = illine
loop
memorizzi solo l'ultima riga! dovresti usare .ReadAll
ho provato ad usare read.all ma mi memorizza molti caratteri strani all'inizio del record tipo...{\rtf1\adeflang1025\ansi\ansicpg1252\uc1\
è un problema di formattazione??
Permessi di invio
Rispondi quotando