|
|
Postada em 22/10/2007 12:13 hs
ola pessoal
eu recebo um arquivo em txt como segue abaixo 1JOAO DA SILVA
2RUA AMARO
2Nº154
2BAIRRO CASA VERDE
2CEP0222558
1MARIA DA SIVLA
2RUA 10
2Nº253
2CEP0558855
1MARIO SILVESTER
2RUA SAOPAULO
2Nº2535
2BAIRRO SAO PAULO
2CEP23553552 eu preciso anexar em uma tabela access "clientes", cujos campos são
"nome"(campo texto)
"Endereçamento"(campo memorando) Só que eu nem sei por onde começar a anexar via vb este arquivo pois não
entendo estes modelos com identificação de registro pelo numero.
os registros que começam com "1" seriam referentes ao campo "cliente" e os com
final "2" seriam do campo "endereçamento" que, estes teriam que estar como no txt,um abaixo
do outro".
Agradeço muito a colaboração
JC |
|
|
|
|
|
|
|
Postada em 24/10/2007 09:52 hs
por favor alguém pode ajudar? JC |
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 24/10/2007 16:59 hs
Dim Conteudo as string dim Nome as string dim Endereco as string Open "C:\pasta\arquivo.txt" for input as #1 do while not eof(1) line input #1, Conteudo if mid(conteudo,1,1) = "1" then nome = mid(conteudo,2) if endereco <>"" then SQL = "Insert Into Clientes (Nome,Endereçamento) Values('" & Nome & "','" & endereco & "') cn1.execute sql nome = "" endereco = "" end if elseif mid(conteudo,1,1) = "2" then endereco = Endereco & " " & mid(conteudo,2) endif loop close #1 Mais ou menos isso |
|
|
|
|
|
Postada em 25/10/2007 15:10 hs
desculpe a demora em responder legal, funcionou ! só que ele não anexa o primeiro dado do txt (joao da silva). qual será o problema? JC |
|
|
|
|
|
Postada em 25/10/2007 18:26 hs
Se me permitem... juca aproveitando o código do Kerplunk tenta modificar umas linhas: Dim Conteudo as string
dim Nome as string
dim Endereco as string
Open "C:pastaarquivo.txt" for input as #1
do while not eof(1)
line input #1, Conteudo
if mid(conteudo,1,1) = "1" then if endereco <>"" then
SQL = "Insert Into Clientes (Nome,Endereçamento) Values('" & Nome & "','" & endereco & "')
cn1.execute sql
nome = mid(conteudo,2)
endereco = ""
elseif nome = ""
nome = mid(conteudo,2)
end if elseif mid(conteudo,1,1) = "2" then
endereco = Endereco & " " & mid(conteudo,2)
endif
loop
close #1 |
|
|
|
|
|
Postada em 26/10/2007 09:42 hs
Perfeito! agradeço a ambos a colaboração abraços |
|
|
|
