Newsgroup: it.comp.appl.access
Titolo: Import Export su file txt

Riprovo perchč non so se sia arrivata:
Ciao a tutti,
come scrivo il codice per fare im modo che possa esportare su file txt
(csv)il
contenuto di una tabella,e poi cancellare tutti i suoi record?
Ovviamente poi mi serve anche il codice per importare tutto di nuovo.
Ho provato con macro ..output su..ma il file viene scritto in un formato che
poi non č piu utilizzabile dal comando importa(sempre da macro).Inoltre col
comando importa devo ogni volta specificare il formato dei dati e io vorrei
che tanto l'esport che l'import sia fatto in modo automatico senza nessuna
specificazione
grazie
stefano


Prova con il Metodo TransferText (vedi help)...
Ciao.

 ciao
Uno dei motivi per non usare le macro; ma non ho capito se vuoi un esempio o
non sai come fare per parametrizzare il transfertext.
Comunque una cosa semplice č:
(presa parzialmente dall'esempio dell'help)
export
'-----------------
DoCmd.TransferText acExportDelim, "NomeSpecificaExportImport",
"NomeTabella", inputbox("Inserire il  nome del file per
l'esportazione","Esportazione dati","c:\documenti\export\dati.txt")
'-----------------
import
'-----------------
DoCmd.TransferText acImportDelim, "NomeSpecificaExportImport",
"NomeTabella", inputbox("Inserire il  nome del file per
l'importazione","Importazione dati","c:\documenti\import\dati.txt")
'-----------------
Ciao.

 wrote in message
news:997ij0$jn1$1...@suite03.caspur.it...


ok sono riuscito ad inserire il codice,solo che ogni volta devo scrivere il
percorso per esteso-
Come posso fare in modo che invece mi si apra una finestrella di browse per
andare a scegliere il file nella cartella che voglio?
ciao

 ha scritto nel messaggio
news:otJt6.78566$lj4.2...@news6.giganews.com...

Devi utilizzare degli oggetti activex, in particolare il mscontrol32.ocx (se
non ricordo male). Ma se non hai confidenza con il VBA la vedo dura. Se vuoi
un esempio sul sito comune 
www.sitocomune.com
 c'é qualcosa; altrimenti
l'altra soluzione può essere quella di inserire una casella di testo per la
directory (chiamata directory) e una casella di riepilogo (chiamata
listaFileImporta) per i files presenti in quella directory.
Nell'evento "su disattivato" della casella di testo chiamata directory
inserisci il codice:
'-----------------
Private Sub directory_LostFocus()
Me!listaFileImporta.RowSource = elenco_file(Me!directory, "*.txt")
End Sub
'-----------------
Poi un bel pulsante che ti esegue l'importazione del file:
'--------------
Private Sub pulsImporta_Click()
if not isnull(me!listaFileImporta) then
    DoCmd.TransferText acImportFixed, "NomeSpecifica", "NomeTabella",
Me!directory & "\" & Me!listaFileImporta, False
else
    msgbox "Non hai selezionato nessun file da importare!!!"
end if
End Sub
'--------------
Poi un modulo con dentro la funzione che legge i files presenti nella
directory indicata:
'--------------
Public Function elenco_file(director_y As String, tipo_file As String)
'
'Per gentile concessione di Michele AMATO
'
Dim ritorno As String, file_da_trovare As String
file_da_trovare = director_y & "\" & extFile
Dim lsFile As String
lsFile = Dir(file_da_trovare)
If lsFile = vbNullString Then
    elenco_file = "(file non trovati)"
    Exit Function
Else
    Do
        ritorno = IIf(ritorno = "", Null, ritorno & ";") & Chr(34) & lsFile
& Chr(34)
        lsFile = Dir
    Loop While lsFile <> vbNullString
End If
elenco_file = ritorno
End Function
'--------------
Speriamo di non essermi scordato nulla...
Ciao.

 wrote in message
news:997rmo$m9p$1...@suite03.caspur.it...

ammazza...e se questo era piu facile allora il vba che è??
cmq ora provo col controllo active x prima.
grazie comunque
ciao


Ciao.