Newsgroup: it.comp.appl.access
Titolo: importa & esporta

ciao a tutti, volevo chiedervi un favore........
ho una tabella di access, in cui devo esportare dati in un programma che a
sua volta lavora in internet, ed esportare da tale prograsto mma dati, ed
inserirli nella mia tabella.
questo prog. usa due formati standard di imput ed output.
il primo formato è testo tabulato,ovvero un  formato nel quale i campi di un
record sono separati dal carattere standard di tabulazione(carattere ascii
9) ed i records sono separati dal carattere standard di ritorno carrello
(carattere ascii 13).
il secondo formato è invece testo a lunghezza fissa, in questo formato ogni
campo ha una lunghezza predeterminata ed immutabile,secondo dei valori
definiti in una apposita tabella dame creata. i records presentano comunque
un carattere di ritorno carrello(carattere ascii 13) alla fine quale
separatore.
quindi volevo chiedervi, come faccio ad impostare la separazione dei
caratteri di tabulazione e ritorno carrello, nella mia tabella?come devo
procedere per esportare al prog. dati compatibili?
ciao...



puoi vedere se le opzioni di esportazione sono sufficienti oppure devi
creare i file da codice con open file etc.... o con l'apertura di un
filesystem
Saluti.
Emanuele.

 Emanuele.
creando il file da codice , risuulterebbe un casino..........invece cosa
intendi per apertura di un filesystem, gentilmente potresti essere piů
esauriente......

esauriente......
potrà essere anche un casino ma se non c'è altro modo non hai scelta
il filesystem è un oggetto VBA per la gestione dei file su disco vedi
l'help in linea
eccoti un esempio da sistemare che importa file metel
On Error GoTo Err_importacame_Click
Dim fs, f, f1, fc, s, agg, lis, posizione, nomefile
Set fs = CreateObject("Scripting.FileSystemObject")
posizione = dicidirectory("came")
lis = False
If posizione <> "" Then
    Set f = fs.GetFolder(posizione)
    Set fc = f.Files
    nomefile = dicinome("came")
    For Each f1 In fc
        If f1.Name = nomefile Then lis = True
    Next
End If
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Dim ultimocodart As Double
Set rs = db.OpenRecordset("SELECT Val(Right([codart],Len([codart])-3))
AS Cod FROM metelcame ORDER BY Val(Right([codart],Len([codart])-3))
DESC")
If rs.EOF Then
    ultimocodart = 0
Else
    ultimocodart = rs![cod]
End If
rs.Close
Set rs = db.OpenRecordset("SELECT * FROM metelcame")
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim Riga, cerca, vecchio, nuovo As Variant
If lis Then
 Set f = fs.OpenTextFile(posizione & nomefile, ForReading)
 Riga = (f.readline)
 Do While f.atendofstream = False
    Riga = (f.readline)
    cerca = UCase("" & Trim(Left(Riga, 19)))
    cerca = "CCA" & cerca
    rs.FindFirst ("desc=""" & cerca & """")
    If rs.NoMatch = True Then
        rs.AddNew
        rs![CodArt] = "CCA" & ultimocodart + 1
        ultimocodart = ultimocodart + 1
        rs![PRODUTTORE] = "CCA"
        rs![misura] = "Pz."
        rs![Desc] = cerca
        rs![Desc2] = Mid(Riga, 33, 43)
        rs![pzoprodut] = Val(Mid(Riga, 100, 9)) / 100
        rs![barre] = Mid(Riga, 20, 13)
        rs![data] = Date
        rs.Update
    Else
        rs.Edit
        rs![Desc2] = Mid(Riga, 33, 43)
        rs![pzoprodut] = Val(Mid(Riga, 100, 9)) / 100
        rs![barre] = Mid(Riga, 20, 13)
        rs![data] = Date
        rs.Update
    End If
 Loop
 f.Close
 MsgBox "Importazione completata"
Else
    MsgBox ("File " & dicidirectory("came") & dicinome("came") & " non
trovato")
End If
rs.Close
Set db = Nothing
Exit Sub
Err_importacame_Click:
    MsgBox "Errore durante l'importazione dei dati"
    Exit Sub
End Sub
Saluti.
Emanuele.