Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

da query esportare file di testo da vba

920 views
Skip to first unread message

leopard73

unread,
Oct 27, 2010, 7:45:52 PM10/27/10
to
?ho una query con i campi codice e qta
dovrei su click di un pulsante creare nel disco c: un file di testo
pippo.txt formattato come segue

codice1; qta1
codice2; qta2
codice3; qta3
...
codiceN; qtaN

qualcuno sa darmi qualche indicazione?

Karl Donaubauer

unread,
Oct 28, 2010, 3:03:32 AM10/28/10
to

<F1> TransferText

--
Ciao
Karl
*********
Access FAQ: http://www.donkarl.com/it

leopard73

unread,
Oct 28, 2010, 5:06:58 AM10/28/10
to
?Grazie, sai come posso creare il file INI? � proprio necessario?

"Karl Donaubauer" ha scritto nel messaggio
news:8isli7...@mid.individual.net...

leopard73

unread,
Oct 28, 2010, 5:48:37 AM10/28/10
to
?io ho risolto cosi!
tu che ne pensi? mi piace complicarmi la vita?
per� funziona! mentre trasfertext mi chiede un file ini che non capisco come
creare.
Si pu� ottimizzare questo codice secondo voi?

Dim db As Database
Dim rs As Recordset
Dim i
Dim stringa As String

Set db = CurrentDb
Set rs = db.OpenRecordset("select * from scarichitxt")

If rs.RecordCount > 0 Then
rs.Edit
rs.MoveFirst
For i = 1 To rs.RecordCount
stringa = rs!Codice & ";" & rs!Quantita
If i = 1 Then
Open "C:\pippo.txt" For Output As #1
Print #1, stringa
ElseIf i > 1 Then
Open "C:\pippo.txt" For Append As #1
Print #1, stringa
End If
Close #1
rs.MoveNext
Next i
End If

Alessandro Cara

unread,
Oct 28, 2010, 6:15:56 AM10/28/10
to
Il 28/10/2010 11.48, leopard73 ha scritto:
> ?io ho risolto cosi!
> tu che ne pensi? mi piace complicarmi la vita?
Si

> per� funziona! mentre trasfertext mi chiede un file ini che non capisco
> come creare.
Hai provato a scrivere il transfertext cosi'?
DoCmd.TransferText acExportDelim,, _
"Nome Tabella", "C:\path\Nome file testo"

> Si pu� ottimizzare questo codice secondo voi?

Se vuoi copiare un migliaio di record e metterci mezza giornata no.


>
>
> Set db = CurrentDb
> Set rs = db.OpenRecordset("select * from scarichitxt")
>

Open "C:\pippo.txt" For Output As #1

do until rs.eof
Print #1, rs!Codice & ";" & rs!Quantita
rs.MoveNext
Loop
Close #1
--

ac (x=y-1)

Karl Donaubauer

unread,
Oct 28, 2010, 6:24:52 AM10/28/10
to
leopard73 wrote:
> ?io ho risolto cosi!
> tu che ne pensi? mi piace complicarmi la vita?

S�.

> per� funziona! mentre trasfertext mi chiede un file ini che non
> capisco come creare.

> ...

Hai sbagliato qc, altrimenti non chiede uno schema.ini perch�
non c'� bisogno.

ac ti ha gi� scritto un semplice esempio.
Se non riesci, incolla il codice che hai provato.

leopard73

unread,
Oct 28, 2010, 5:49:35 PM10/28/10
to
?tnx!

"Alessandro Cara" ha scritto nel messaggio
news:H3cyo.26127$%a.1...@tornado.fastwebnet.it...

leopard73

unread,
Oct 28, 2010, 5:50:12 PM10/28/10
to
?riprovo domani grazie.

"Karl Donaubauer" ha scritto nel messaggio
news:8it1bm...@mid.individual.net...

leopard73

unread,
Oct 28, 2010, 6:04:53 PM10/28/10
to
?>Hai provato a scrivere il transfertext cosi'?

>DoCmd.TransferText acExportDelim,, _
> "Nome Tabella", "C:\path\Nome file testo"

il tuo codice mi da

errore di runtime "3441"
il separatore di campo nella specifica dei file di testo corrisponde al
separatore decimale o al delimitatore di testo

cosa vorr�????


Alessandro Cara

unread,
Oct 29, 2010, 4:33:24 AM10/29/10
to
> cosa vorrà????
Se non mostri cosa hai scritto e' difficile capire. Per favore copia e
incolla qui la istruzione che ti da errore.

--

ac (x=y-1)

Karl Donaubauer

unread,
Oct 29, 2010, 5:08:42 AM10/29/10
to
> cosa vorrà????

Se la tua versione segreta di Access è 2007 esiste un tale bug noto.
Non solo per questo ma sempre sarebbe meglio di usare una
specifica di esportazione nella quale si puo impostare il
deliminatore desiderato ecc.

Vedi anche
http://groups.google.com/group/microsoft.public.it.office.access/browse_frm/thread/fd6345bc1257b428/e4586ddf159dcb4a

Poi si usa la specifica nel commando come anche mostrato nella guida:

DoCmd.TransferText acExportDelim, "MiaBellaSpecifica", _
...

radicale.002

unread,
Oct 29, 2010, 8:16:32 PM10/29/10
to

Ma questa query (fammi capire) restituisce una riga sola ?

0 new messages