Ir para conteúdo
Fórum Script Brasil
  • 0

Atualizar Uma Base Access Usando Txt E Asp


patrick_pss

Pergunta

Voce saberia me dizer como faço para atualizar uma base de dados usando um arquivo de txto com ; e usando o asp?

No caso o que eu gostaria era de algo similar ao MYSQL Admin, aonde eu possa buscar um arquivo de txt e incluir os dados na base?

você saberia como?

fica ai a minha dúvida

Veja o exemplo

E aonde eu encontro esse File System Object ? aqui no post tem?

Link para o comentário
Compartilhar em outros sites

7 respostass a esta questão

Posts Recomendados

  • 0

cyberalexxx bom dia

agradeço os teus comentários

Eu já consegui gravar um txt na minha máquina e em meu server na web ok

Agora eu gostaria de saber como vou realizar essa transição entre um arquivo de texto exemplo:

INSERT INTO `Docs` VALUES ( 1, '004', '04.000.000/0001-00', 'Empresa 004 Ltda', ' 1', '3', '000500400105-6', 'G8109001', 'pis Faturamento', '2', 'M00', '06', '10/6/2005', '31/5/2005', '10/9/2005', '15/6/2005', '25/11/2005', '05/2005', '1,00', '0,00', '0,00', '1,00', 'K0040505.HTM#K0040', 'ERIS', 'Vencimento 10/06/2005', '(-) Retenção na Fonte: R$ 0,00', 'Valor Liq. a Recolher: R$ 31,46');

Para dentro da base de dados Access?

Igual a administração do MYSQL

Por um acaso você tem alguma linha de script que complete esta operação?

3.gif

Link para o comentário
Compartilhar em outros sites

  • 0

O que eu tinha em mente seria o seguinte:

supondo a seguinte tabela:

nome(varchar)

idade(Int)

endereço(varchar)

supondo o seguinte arquivo texto:

arquivo.txt

Dino da Silva Sauro;50000;Caverna

Bob Esponja;10;Fundo do Mar

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set arquivo = FSO.OpenTextFile("c:\arquivo.txt",1)

Do while arquivo.AtEndOfStream=false
   linha = arquivo.Readline
   campo = split(linha,";")
   sql = "Insert into tabela (nome,idade,endereco) Values('" & campo(0) & "', " & campo(1) & ", '" & campo(2) & "')"
   conecta.execute(sql)
loop

mais ou menos isso!!

Link para o comentário
Compartilhar em outros sites

  • 0

Valeu mas ainda assim não está funcionando, da um erro assim vou tentar explicar

Erro de tempo de execução do Microsoft VBScript erro '800a0035'

Arquivo não encontrado

O arquivo que ele ta falando é o arquivo de texto?

Ta lá no server, porque ele não acha?

Agora fica a pergunta ele precisa saber qual banco se conectar certo para adicionar as informações na base de dados.

Eu tentei usar este pedaço de script mas não deu certo tmb?

 

<%
!-- adicionar esta conexão para que o script possa funcionar? mas não funciona

'Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("banco.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

!-- fim não da certo

aparece este erro

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0x1d0 Thread 0xac4 DBC 0x1758f5c Jet' do Registro.

!-- fim não da certo



Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set arquivo = FSO.OpenTextFile("Docs.txt",1)

Do while arquivo.AtEndOfStream=false
  linha = arquivo.Readline
  campo = split(linha,";")
  sql = "Insert into tabela (nome,idade,endereco) values('" & campo(0) & "', " & campo(1) & ", '" & campo(2) & "')"
  conecta.execute(sql)
loop
%>

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...