Sergio
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 04/10/2006 19:42 hs
Eu preciso criar uma aplicação em VB6 que execute queries em arquivos .txt sem utilizar banco de dados.
O que eu preciso fazer? Que código eu preciso acrescentar no programa?
Obrigado.
|
|
|
|
|
|
|
|
Postada em 04/10/2006 19:53 hs
é a mesma coisa só q vc vai conectar com um arquivo texto... a não ser q ele venha formatado diferente do padrão q é com tabulação ou pto e vírgula. veja a string de conexão: ConexaoADO.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c: xtFilesFolder;Extended Properties=""text;HDR=Yes;FMT=Delimited""" vc vai passar a pasta onde está o arquivo. No caso estamos passando q o arquivo texto tem um cabeçalho com os nomes dos campos e está delimitado... por default está delimitado por ";" A pasta funciona como se fosse o SGBD e o arquivo como se fosse tabela. O resto é igual, consulta, inclusão, etc... o Jet faz o resto :) Se tiver alguma dúvida postae. at+ |
|
TÓPICO EDITADO
|
|
|
|
kerplunk
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/10/2006 08:33 hs
Só complementando:
Na string de conexão tem o parâmetro "HDR=Yes" Este parâmetro determina o comportamento da primeira linha do arquivo texto, se estiver Yes, a primeira linha do arquivo contém os NOMES DE CAMPOS caso contrário (e eu acho que vcs sacaram que deve ser HDR=No :oP) a primeira linha é tb interpretada como dados, mesmo que contenha nomes de campos.
|
|
|
|
Sergio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 22/10/2006 19:47 hs
obrigado pelas dicas...
mas eu ainda estou com algumas duvidas...
1º problema: os arquivos texto não possuem delimitadores ";" nem tabulação, os campos sao delimitados pelo tamanho (cada campo tem um tamanho fixo), o q eu devo fazer? preciso mostrar os dados de cada campo em um textbox diferente.
2º problema: preciso fazer junçoes mas nao sei como fazer...
obrigado
|
|
|
|
wncruz
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 24/10/2006 14:04 hs
Sergio, ve se eu entendi. Vc, deverá usar o comando Open NomeArquivo.TXT For Input As #1 strLinha = "" Do While Not EOF(1)
Input #1, strLinha txtCodigo = mid(strLinha,1,8) txtNome = mid(strLinha,8,38) Loop Close #1 Mais ou menos assim qq duvida postar Sds, |
|
|
|
