Gravar dados de arquivo txt em mdb

delgisa · Outubro 14, 2009

Saudações!!!

Estou com uma grande dificuldade.

Tenho um script que abre um arquivo txt e grava em um banco de dados. Até aí é simples, agora que vem o problema.:

Tenho uma tabela onde cadastro funcionários com so seguintes campos:

codsalario (auto)

codempresa (inteiro)

matriculafuncionario (texto)

saláriobase

salariobruto

competencia(texto)

E o arquivo texto vem com este formato:

;01;000000036;1000,00;1300,00;200910;

;02;000000036;1000,00;1300,00;200910;

Importar estes dados para o banco é tranquilo, mas preciso analisar os dados antes de importar. Por exemplo:

Eu posso ter funcionário João da Silva com matrícula 000000036 que trabalha na empresa "A" como posso ter o funcionário Pedro com matrícula 000000036 que trabalha na empresa "B".

Até aí tranquilo, apesar das matrículas serem iguais, as empresas são diferentes, não tem problema.

O problema começa qdo vou importar novamente o arquivo. Se tiver matrícula repetida e competência também (ex.: outubro de 2009) ele duplica, como na verdade não deveria importar e se vier mesmos dados, apenas atualizar o que for diferente.

Ou seja, se já tiver, uptdate, se não, insert.

Não sei se consegui explicar bem é isso.

Deixo abaixo o código que uso para gravar o arquivo atualmente:

<%
Dim Conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "dbq="&Server.MapPath("banco.mdb")&";driver={Microsoft Access Driver (*.mdb)}"

'Antes de criarmos o FSO, iremos exibir uma imagem de envio
'Somente para ilustrar pois dependendo do arquivo o processo pode ser demorado
response.write "<img src='inserindo.gif'>"

Dim objFSO

'Aqui que daremos início ao sistema
'Criaremos o objeto FileSystemObject
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim varArquivo

'Agora, com o uso do FSO, iremos abrir o arquivo texto que iremos criar
Set varArquivo = objFSO.OpenTextFile(server.MapPath("arquivo.txt"), 1)

dim arrayLinha

'Agora que o arquivo já foi aberto, iremos ler linha por linha
'O comando AtEndOfStream determina que iremos repetir o processo abaixo
'até o fim do arquivo
Do while not varArquivo.AtEndOfStream

'Abaixo, criaremos um array para separar os dados entre ponto-e-vírgula
'ReadLine é usado para indicar que iremos separar os dados desta linha
arrayLinha=split(varArquivo.ReadLine,";",-1,1)

'Com o array criado, iremos inserir de acordo com a ordem dos campos
'Usando 'arrayLinha(0)' nós determinamos cada dado pela ordem do arquivo de texto
'começando pelo zero que é respectivamente o campo nome e por ai adiante
conexao.execute "INSERT INTO CADASTRO (codempresa, matriculafuncionario, salariobase, salariobruto, competencia) VALUES ('"&arrayLinha(1)&"','"&arrayLinha(2)&"','"&arrayLinha(3)&"','"&arrayLinha(4)&"','"&arrayLinha(5)&"',)"

'Passar para próxima linha
loop

'Destruiremos e fecharemos o FSO e o acesso ao arquivo de texto
varArquivo.Close
Set varArquivo = Nothing
Set objFSO = Nothing

'Destruiremos e fecharemos a conexão com o banco de dados
Conexao.close
Set Conexao = nothing


'Abaixo, caso a ordem ou a quantidade de campos do arquivo de texto
'seja inferior a do banco de dados, retornaremos uma mensagem de erro
if err>0 then
response.write "<script>history.back(1);alert('Ocorreu algum problema na inserção.\nVerifique o layout do arquivo de texto.')</script>"
response.End()
end if
 
%>

Jardel

Mário Monteiro · Outubro 14, 2009

antes de inserir cada linha precisa fazer este tratamento

no seu código esta importando tudo

delgisa · Outubro 14, 2009

antes de inserir cada linha precisa fazer este tratamento

no seu código esta importando tudo

Então, esse tratamento que não sei fazer... tipo: como eu dou a select pra saber se já existe... como armazeno esta informação... tenho que dar select a cada linha?

Desculpe, mas se alguém tiver uns exemplos para que eu possa entender, eu agradeço

xanburzum · Outubro 15, 2009

faz uma condicional , para validar o tratamento

Mário Monteiro · Outubro 15, 2009

o select precisa ser feito a cada inserção mesmo para evitar estas inconsistências

este procedimento ocorre com que frequência?

xanburzum · Outubro 15, 2009

você pode por exemplo:

<%    
   Option explicit
   'declaro as var
   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert
   'recupero todos os dados
   varlogin=trim(request.form("login"))
   varsenha=trim(request.form("senha"))
   varemail=trim(request.form("email"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	call fechaconexao %>

delgisa · Outubro 16, 2009

o select precisa ser feito a cada inserção mesmo para evitar estas inconsistências

este procedimento ocorre com que frequência?

Você está certo...sim, ocorre com frequência.

Vou fazer alguns testes...

vlw por enquanto

delgisa · Outubro 16, 2009

você pode por exemplo:

<%    
   Option explicit
   'declaro as var
   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert
   'recupero todos os dados
   varlogin=trim(request.form("login"))
   varsenha=trim(request.form("senha"))
   varemail=trim(request.form("email"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	call fechaconexao %>

Muio bom exemplo xanburzum. Notei que fez uma condicional recebendo dados de um formulário... acredito que a lógica seja essa. Agora vou tentar adaptar no meu script, vou ver como eu faço para trazer a informação do arquivo txt e usar o teste de comparação conforme você exemplificou:

'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd

O que eu conseguir postarei aqui,

Abraços e muito obrigado por enquanto

Mário Monteiro · Outubro 16, 2009

Ok então posts as evoluções e dificuldades aqui

E se resolver não deixe de avisar

Abraços

delgisa · Outubro 23, 2009

você pode por exemplo:

<%    
   Option explicit
   'declaro as var
   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert
   'recupero todos os dados
   varlogin=trim(request.form("login"))
   varsenha=trim(request.form("senha"))
   varemail=trim(request.form("email"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	call fechaconexao %>

Muio bom exemplo xanburzum. Notei que fez uma condicional recebendo dados de um formulário... acredito que a lógica seja essa. Agora vou tentar adaptar no meu script, vou ver como eu faço para trazer a informação do arquivo txt e usar o teste de comparação conforme você exemplificou:

'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd

O que eu conseguir postarei aqui,

Abraços e muito obrigado por enquanto

Saudações!

Depois de algum tempo quebrando cabeça,volto aqui com alguma progressão para alguém medar um help:

Bom, eu acrescentei uma select para comparar se já existe na tabela os dados que estão vindo no arquivo txt. Acontece que consegui fazer uma comparação e copnsigo até dar um comando de Update caso já tenha os dados na tabela.

Mas notei uma coisa:Quando o banco de dados está vazio, ele passa pela select pois não acha nenhum dado e vai direto ao Insert, daí tudo bem.

Mas quando já tenho informação no banco executo o update, eu consigo alterar os dados mas não consigo sair do comando insert, ou seja, ele atualiza os dados e vai para o comando insert e insere novamente os dados.

Preciso de fazer uma rotina que faça ele atualizar linha por linha e inseri somente a linha que não tiver no banco.

Postei o código fonte pra darem uma olhada. Desculpe pela bagunça... o código está igual minha mente... com muita infomração que não é útil, rsrsrsrsr

é isso aí pessoal, vamos ver se conseguimos!!!

<%
Dim Conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "dbq="&Server.MapPath("banco2.mdb")&";driver={Microsoft Access Driver (*.mdb)}"

'Antes de criarmos o FSO, iremos exibir uma imagem de envio
'Somente para ilustrar pois dependendo do arquivo o processo pode ser demorado
response.write "<img src='inserindo.gif'>"

Dim objFSO

'Aqui que daremos início ao sistema
'Criaremos o objeto FileSystemObject
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim varArquivo

'Agora, com o uso do FSO, iremos abrir o arquivo texto que iremos criar
Set varArquivo = objFSO.OpenTextFile(server.MapPath("salario.txt"), 1)

dim arrayLinha

'Agora que o arquivo já foi aberto, iremos ler linha por linha
'O comando AtEndOfStream determina que iremos repetir o processo abaixo
'até o fim do arquivo
Do while not varArquivo.AtEndOfStream

'Abaixo, criaremos um array para separar os dados entre ponto-e-vírgula
'ReadLine é usado para indicar que iremos separar os dados desta linha
arrayLinha=split(varArquivo.ReadLine,";",-1,1)

'Aqui faço uma select na tabela funcionario, necessariamente no campo matriculafuncionario
'Para posterior comparar ao conteúdo da arrayLinha(2)
dim Sqlfuncionario, rs
Sqlfuncionario = "SELECT matriculafuncionario FROM funcionario where codempresa='"&arraylinha(1)&"' and (matriculafuncionario='"&arraylinha(2)&"') and (competencia= "&arraylinha(5)&")"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 2
rs.CursorType = 1
rs.LockType = 2
rs.open Sqlfuncionario, Conexao

If not rs.EOF then
'Response.Write Sqlfuncionario
Dim atualiza
atualiza= "update funcionario set salariobase="&arraylinha(3)&", salariobruto="&arraylinha(4)&" where codempresa='"&arraylinha(1)&"' and (matriculafuncionario= '"&arraylinha(2)&"') and (competencia= "&arraylinha(5)&")"
set rsquery = Conexao.execute(atualiza) 
 'aqui deve inserir a linha de UPDATE 17/10/2009
else
Response.Write "Não  há nenhuma matrícula igual"
End If
'Set rsfuncionario = Conexao.Execute ( Sqlfuncionario )
' aqui eu trago o contéudo do recordset: 
'Response.Write arrayLinha(1)
'rsfuncionario.Close
'Set rsfuncionario = Nothing
'Com o array criado, iremos inserir de acordo com a ordem dos campos
'Usando 'arrayLinha(0)' nós determinamos cada dado pela ordem do arquivo de texto
'começando pelo zero que é respectivamente o campo nome e por ai adiante
conexao.execute "INSERT INTO funcionario (codempresa, matriculafuncionario, salariobase, salariobruto, competencia) VALUES ('"&arrayLinha(1)&"','"&arrayLinha(2)&"','"&arrayLinha(3)&"','"&arrayLinha(4)&"','"&arrayLinha(5)&"')"

'Passar para próxima linha
loop

'Destruiremos e fecharemos o FSO e o acesso ao arquivo de texto
varArquivo.Close
Set varArquivo = Nothing
Set objFSO = Nothing

'Destruiremos e fecharemos a conexão com o banco de dados
Conexao.close
Set Conexao = nothing
set rsquery = nothing

'Abaixo, caso a ordem ou a quantidade de campos do arquivo de texto
'seja inferior a do banco de dados, retornaremos uma mensagem de erro
if err>0 then
response.write "<script>history.back(1);alert('Ocorreu algum problema na inserção.\nVerifique o layout do arquivo de texto.')</script>"
response.End()
end if
 
%>

jrcardozo · Outubro 23, 2009

você colocou o insert fora do IF que verifica se existe o registro. tem que ficar assim

Do while not varArquivo.AtEndOfStream
 arrayLinha=split(varArquivo.ReadLine,";",-1,1)
 dim Sqlfuncionario, rs
 Sqlfuncionario = "SELECT matriculafuncionario FROM funcionario where codempresa='"&arraylinha(1)&"' and (matriculafuncionario='"&arraylinha(2)&"') and (competencia= "&arraylinha(5)&")"
 Set rs = Server.CreateObject("ADODB.Recordset")
 rs.CursorLocation = 2
 rs.CursorType = 1
 rs.LockType = 2
 rs.open Sqlfuncionario, Conexao

 If not rs.EOF then
 Dim atualiza
 atualiza= "update funcionario set salariobase="&arraylinha(3)&", salariobruto="&arraylinha(4)&" where codempresa='"&arraylinha(1)&"' and (matriculafuncionario= '"&arraylinha(2)&"') and (competencia= "&arraylinha(5)&")"
 set rsquery = Conexao.execute(atualiza)
 else
 conexao.execute "INSERT INTO funcionario (codempresa, matriculafuncionario, salariobase, salariobruto, competencia) VALUES ('"&arrayLinha(1)&"','"&arrayLinha(2)&"','"&arrayLinha(3)&"','"&arrayLinha(4)&"','"&arrayLinha(5)&"')"
 End If
loop

delgisa · Outubro 24, 2009

você colocou o insert fora do IF que verifica se existe o registro. tem que ficar assim

Do while not varArquivo.AtEndOfStream
 arrayLinha=split(varArquivo.ReadLine,";",-1,1)
 dim Sqlfuncionario, rs
 Sqlfuncionario = "SELECT matriculafuncionario FROM funcionario where codempresa='"&arraylinha(1)&"' and (matriculafuncionario='"&arraylinha(2)&"') and (competencia= "&arraylinha(5)&")"
 Set rs = Server.CreateObject("ADODB.Recordset")
 rs.CursorLocation = 2
 rs.CursorType = 1
 rs.LockType = 2
 rs.open Sqlfuncionario, Conexao

 If not rs.EOF then
 Dim atualiza
 atualiza= "update funcionario set salariobase="&arraylinha(3)&", salariobruto="&arraylinha(4)&" where codempresa='"&arraylinha(1)&"' and (matriculafuncionario= '"&arraylinha(2)&"') and (competencia= "&arraylinha(5)&")"
 set rsquery = Conexao.execute(atualiza)
 else
 conexao.execute "INSERT INTO funcionario (codempresa, matriculafuncionario, salariobase, salariobruto, competencia) VALUES ('"&arrayLinha(1)&"','"&arrayLinha(2)&"','"&arrayLinha(3)&"','"&arrayLinha(4)&"','"&arrayLinha(5)&"')"
 End If
loop

Ae jonathandj, fechou com chave de ouro.

Estou com mais um desafio: Preciso de analisar linha por linha se está com a quantidade de separadores corretos. Ex.: Supanhamos que o arquivo txt tenha 5 informações. Cada linha começa e termina com um separador ;(ponto e vírgula) e entre os campos também, ou seja, se são 5 informações, cada linha tem que vir com 6 ;(ponto e vírgual). Vocês sabem de uma função ou rotina que consigo realizar este feito? Pois se o arquivo tiver uma linha errada, não posso nem começar a importa-lo.

Desculpe aí pessoal pelo erro primário... é que estou ralando sozinho pra aprender asp. Aproveito a oportunidade e colaborar e compartilhar humildemente com os companheiros que possam vir a precisar de um código assim (postei abaixo o código pronto).

<%
Dim Conexao
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open "dbq="&Server.MapPath("banco2.mdb")&";driver={Microsoft Access Driver (*.mdb)}"

'Antes de criarmos o FSO, iremos exibir uma imagem de envio
'Somente para ilustrar pois dependendo do arquivo o processo pode ser demorado
'response.write "<img src='inserindo.gif'>"

Dim objFSO

'Aqui que daremos início ao sistema
'Criaremos o objeto FileSystemObject
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

Dim varArquivo

'Agora, com o uso do FSO, iremos abrir o arquivo texto que iremos criar
Set varArquivo = objFSO.OpenTextFile(server.MapPath("salario.txt"), 1)

dim arrayLinha

'Agora que o arquivo já foi aberto, iremos ler linha por linha
'O comando AtEndOfStream determina que iremos repetir o processo abaixo
'até o fim do arquivo
Do while not varArquivo.AtEndOfStream

'Abaixo, criaremos um array para separar os dados entre ponto-e-vírgula
'ReadLine é usado para indicar que iremos separar os dados desta linha
arrayLinha=split(varArquivo.ReadLine,";",-1,1)

'Aqui faço uma select na tabela funcionario, necessariamente no campo matriculafuncionario
'Para posterior comparar ao conteúdo da arrayLinha(2)
dim Sqlfuncionario, rs
Sqlfuncionario = "SELECT matriculafuncionario FROM funcionario where codempresa='"&arraylinha(1)&"' and (matriculafuncionario='"&arraylinha(2)&"') and (competencia= "&arraylinha(5)&")"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 2
rs.CursorType = 1
rs.LockType = 2
rs.open Sqlfuncionario, Conexao

If not rs.EOF then
'Response.Write Sqlfuncionario


Dim atualiza, atualizado, novo
atualiza= "update funcionario set salariobase='"&arraylinha(3)&"', salariobruto='"&arraylinha(4)&"' where codempresa='"&arraylinha(1)&"' and (matriculafuncionario= '"&arraylinha(2)&"') and (competencia= "&arraylinha(5)&")"
set rsquery = Conexao.execute(atualiza) 
 'aqui deve inserir a linha de UPDATE 17/10/2009
atualizado= (atualizado+1)
else

'Com o array criado, iremos inserir de acordo com a ordem dos campos
'Usando 'arrayLinha(0)' nós determinamos cada dado pela ordem do arquivo de texto
'começando pelo zero que é respectivamente o campo nome e por ai adiante
conexao.execute "INSERT INTO funcionario (codempresa, matriculafuncionario, salariobase, salariobruto, competencia) VALUES ('"&arrayLinha(1)&"','"&arrayLinha(2)&"','"&arrayLinha(3)&"','"&arrayLinha(4)&"','"&arrayLinha(5)&"')"
novo= (novo+1)
End If
'Passar para próxima linha
loop

'Destruiremos e fecharemos o FSO e o acesso ao arquivo de texto
varArquivo.Close
Set varArquivo = Nothing
Set objFSO = Nothing

'Destruiremos e fecharemos a conexão com o banco de dados
Conexao.close
Set Conexao = nothing
set rsquery = nothing

'Abaixo trago o resultado da importação: quantidade de registros atualizados e quantidade de novos registros
response.Write"Total de registros atualizados:"&Atualizado&"<br>"
response.Write"Total de registros novos:"&novo

'Abaixo, caso a ordem ou a quantidade de campos do arquivo de texto
'seja inferior a do banco de dados, retornaremos uma mensagem de erro
if err>0 then
response.write "<script>history.back(1);alert('Ocorreu algum problema na inserção.\nVerifique o layout do arquivo de texto.')</script>"
response.End()
end if
 
%>

Abraço a todos!!!

xanburzum · Outubro 24, 2009

irei disponibilizar o code, no lab. de scripts....

você pode contar a ocorrencia de determinado caracter na string, no caso o ;

existe um topico com varias funcoes de manipulacao de string, k postei, dá uma pesquisada irá te ajudar

delgisa · Outubro 24, 2009

irei disponibilizar o code, no lab. de scripts....

você pode contar a ocorrencia de determinado caracter na string, no caso o ;

existe um topico com varias funcoes de manipulacao de string, k postei, dá uma pesquisada irá te ajudar

Ok, irei pesquisar, valeu!!!

Patrique · Outubro 24, 2009

Velho eu fiz para um site um sistema para gerar logs da area administrativa das ações provenientes dos administradores, vou te passar uma parte do code, veja a pagina index.asp ela tem exatamente o que você esta querendo, basta você estudar e fazer o seu ou modificar para sua necessidade.

http://migre.me/9Nzf

boa sorte

delgisa · Outubro 24, 2009

Velho eu fiz para um site um sistema para gerar logs da area administrativa das ações provenientes dos administradores, vou te passar uma parte do code, veja a pagina index.asp ela tem exatamente o que você esta querendo, basta você estudar e fazer o seu ou modificar para sua necessidade.

http://migre.me/9Nzf

boa sorte

Valeu meu amigo, pode deixar que vou dar uma olhada sim.

Valeu pelo help.

Abraços

Patrique · Outubro 24, 2009

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

xanburzum · Outubro 24, 2009

olha akitb pode te ajudar

Patrique · Outubro 24, 2009

E ai mano, conseguiu pelo script que te passei?

delgisa · Outubro 26, 2009

E ai mano, conseguiu pelo script que te passei?

Olá meu amigo, ainda não estudei seu código, neste final de semana não deu para desenvolver este projeto...Mas nesta semana eu darei uma vasculhada nele e posto aqui o que eu conseguir, valeu e obrigado por enquanto.

Arquivado

Gravar dados de arquivo txt em mdb

Recommended Posts

delgisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

delgisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

delgisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

delgisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

delgisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jrcardozo 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

delgisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

delgisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

delgisa 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Patrique 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

delgisa 0