EXPORTAR ARQUIVO DE TEXTO

CARINHENA 01/10/2004 00:09:44
#44137
Pessoal, tenho uma tabela (acces 2000) q têm os seguintes nomes e dados:

Nome / Autonumeração / Igual / Verdadeiro ou Porta
LocP_ 7 = 7
chk_ 7 = Verdadeiro
LocP_ 8 = 8
chk_ 8 = Verdadeiro
etc...

preciso exportar estes dados para um documento txt.
Ja tentei pelo próprio acces, mas, sai desta forma:
LocP_ 7 = 7
Chk_ 7 = Verdadeiro.

ou seja, com espaços entres os campos.
Como eu faço para que no arqiovo de texto, não haja nenhum tipo de espaço entre os campos?
ex:
LocP_7=7
chk_7=Verdadeiro

Sem nenhum espaço?

agradeço quem me der uma luz...

()ne()n
THIAGO.CESAR 01/10/2004 08:33:50
#44144 Resposta escolhida
Se você for fazer a rotina uma única vez, não vejo problemas em você gerar o arquivo com espaço mesmo e, no Bloco de Notas, em Editar/Substituir você substitui os espaços por nada.

Caso isso for uma rotina, você pode fazer assim

 SQL = "Select * From Tabela"
rs.Open SQL, cn, adOpenForwardOnly, adLockReadOnly
Open "C:\Arquivo.txt" for output As #1
rs.MoveFirst
While not rs.EOF
Print #1, Campo1;Campo2;Campo3
rs.MoveNext
Wend
Close #1


Ok?
THIAGO.CESAR 01/10/2004 08:39:36
#44145
Além dos erros de gramática[S25], tem um problema no meu código acima.

Não coloque o rs.MoveFirst, pois, se não me engano, o tipo adLockReadOnly não suporta o evento. Faça o código dessa forma mesmo, mas sem essa linha Ok? Qualquer problema é só postar.[S71]
THIAGO.CESAR 04/10/2004 16:00:40
#44515
Bem... se quiser pode mandar pro meu e-mail o banco de dados aí que eu te mostro como fazer... pelas suas explicações, o que já postei me parece adequado.
Quanto ao bloco de Notas você pode ir em Editar/Substituir e colocar no campo "Localizar" um espaço simples e no campo "Substituir por" você deixa em branco e clica em Substituir Tudo. Só não convém fazer isso se houver espaço entre os nomes.

tcesar@pop.com.br
Tópico encerrado , respostas não são mais permitidas
Voltar