Newsgroup: it.comp.appl.access
Titolo: 6.211 E' possibile esportare in vari formati scegliendo i campi e senza creare tante query?

Salve a tutti,
    grazie al db allegato alla 6.211 riesco ad esportare i dati che mi 
servono in txt
ho solo una domanda da fare: se il formato con cui esporto i dati mi crea un 
file formattato non come lo voglio io devo modificarlo dopo averlo 
esportato?
Mi spiego meglio io esporto dei dati in txt e mi servirebbero cosě:
05420;si;prova
05425;si;prova
05645;no;pippo
mentre il file che crea l'utility č:
-----------------------------------------------------
|       Comm        |      Chiusa       |    Descrizione    |
| 05420              |             Vero   |         prova        |
| 05425              |             Vero   |         prova        |
| 05645              |              Falso |         pippo        |
-----------------------------------------------------
Ho provato ad esportare il file in xls e da excel trasformarlo in txt e cosě
mi va bene ma vorrei riuscire a fare tutto in automatico su un pulsante
Grazie per i suggerimenti che mi vorrete dare
Sabrina 

 ha scritto nel messaggio 
news:eol602$b4d$1...@news.task.gda.pl...

Ciao Sabrina,
con un pochino di lavoro ed usando TransferText potresti tranquillamente 
esportare la query esattamente come la vuoi. Se i dati esportati sono sempre 
gli stessi (intendo i nomi dei campi), puoi scrivere e salvare una specifica 
di esportazione e passarla la metodo TransferText.
Intanto leggiti sulla guida il metodo...e poi ne riparliamo.
Ciao, Carlo

 ha scritto nel messaggio 
news:eol602$b4d$1...@news.task.gda.pl...

 Per esempio se aggiungi un pulsante alla maschera che ho fornito come 
esempio (Comando34) e scrivi quello sotto riportato ottieni esattamente 
quello che cerchi...
Private Sub Comando34_Click()
On Error Resume Next
Dim MiaQuery As QueryDef
Dim MioSql As String
Dim i As Integer
If Me.EsportaTutto = -1 Then
GoTo EsportaTutto
End If
MioSql = "SELECT "
 i = 0
    For i = 0 To Me.List1.ListCount - 1
    If Me.List1.Selected(i) Then
    MioSql = MioSql & Me.List1.List(i) & ", "
    End If
    Next i
If MioSql = "SELECT " Then
MsgBox "Per proseguire scegliere almeno un campo dalla lista."
Me.List1.SetFocus
Exit Sub
End If
If InStr(Len(Trim(MioSql)) - 1, Trim(MioSql), ",") > 0 Then
MioSql = Mid(Trim(MioSql), 1, Len(Trim(MioSql)) - 1)
End If
MioSql = MioSql & " FROM " & MioNomeTbl & ";"
With CurrentDb
 Set MiaQuery = .CreateQueryDef("TempPerXLS", MioSql)
 DoCmd.TransferText acExportDelim, , "TempPerXLS", "c:\NomeFile.txt", False
 DoEvents
 .QueryDefs.Delete "TempPerXLS"
 Exit Sub
End With
EsportaTutto:
With CurrentDb
 Set MiaQuery = .CreateQueryDef("TempPerXLS", "Select * from " & MioNomeTbl 
& ";")
 DoCmd.TransferText acExportDelim, , "TempPerXLS", "c:\NomeFile.txt", False
 DoEvents
 .QueryDefs.Delete "TempPerXLS"
 Exit Sub
End With
End Sub
Ciao, Carlo 

 > così

Proverò la soluzione proposta comunque già con il suggerimento che mi
avevi
dato attraverso una macro ho ottenuto quello che volevo ho solo il
problema
delle conferme da dare alle query che faccio, ma dalla guida ho visto
che
dovrei riuscire ad intercettare i messaggi di warning.
Avrei solo un altra domanda:
Siccome io sto usando un progetto ADP non trovo dove abilitare le
specifiche di esportazione
cercando qua e la ho trovato un riferimento alla tabella
(MSysIMEXSpecs) ma nel mio progetto non c'è.
Dove sono le specifiche di esportazione nei progetti o come faccia ad
attivare la funzione?
Grazie ancora
Sabrina

 ha scritto nel messaggio 
news:1169134328.2...@38g2000cwa.googlegroups.com...
cut
Proverò la soluzione proposta comunque già con il suggerimento che mi
avevi
dato attraverso una macro ho ottenuto quello che volevo ho solo il
problema
delle conferme da dare alle query che faccio, ma dalla guida ho visto
che
dovrei riuscire ad intercettare i messaggi di warning.
------------------
Docmd.Setwarnings false
'tuo codice
Docmd.Setwarnings True
-----------------------------------------
Avrei solo un altra domanda:
Siccome io sto usando un progetto ADP non trovo dove abilitare le
specifiche di esportazione
cercando qua e la ho trovato un riferimento alla tabella
(MSysIMEXSpecs) ma nel mio progetto non c'è.
Dove sono le specifiche di esportazione nei progetti o come faccia ad
attivare la funzione?
Grazie ancora
Sabrina
---------------------------------------
Nei file ADP non sono presenti le specifiche di importazione o esportazione 
e nemmeno avrebbe senso visto che le tabelle sono di un db SQLServer.
Io non sono in grado di darti una risposta su SQLServer ma, se il messaggio 
viene letto da Giorgio Rancati o se posti un nuovo messaggio, sono sicuro 
che troverai le risposte giuste.
Ciao, Carlo