[Resolvido] Leitura de txt

[thicomp 0]

Pessoal, tenho este código, mas não to conseguindo fazer com que ele faca a leitura dos dados nos txt's. Alguém poderia me dar uma ajuda???

 

Ele me retorna o seguinte erro

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Text Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xc04 Thread 0xca0 DBC 0x2f7a11c Text'.

 

/Proj/Estatisticas/estat.asp, line 102

 

 

OBS: A linha do erro está em vermelho

 

Obrigado

 

tipo="Ativos"
				response.write "<TABLE cellpadding='0' cellspacing='0' border='0' width='600' bgcolor='#EEF3F9'>"
	Set Folder=FSO.GetFolder("F:\Proj\Usuarios\"&tipo&"")
	Set Folders=Folder.SubFolders
	n1=0
	response.write "<TR><TD align='center' colspan='1'>[%]<TD colspan='500'> <TD colspan='1' align='center'>Nº de Pedidos"
		For Each Folders1 In Folders
			response.write "<TR><TD>"&folders1.Name
			Set Folder1=FSO.GetFolder("F:\Proj\Usuarios\"&tipo&"\"&Folders1.Name&"\")
			Set Files=folder1.Files
			For Each Files1 In Files
				response.write "<TR><TD bgcolor='red'>"&files1.name
				Set arq=CreateObject("Scripting.FileSystemObject")
				Set Conn=Server.CreateObject("ADODB.Connection")
				' Set the Dbq portion of the string to the physical folder where your price files reside
	   [color="#FF0000"]		 Conn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _[/color]
				"Dbq=F:\Proj\Usuarios\"&tipo&"\"&Folders1.Name&"\"&files1.Name&";" & _
				"Extensions=asc,csv,tab,txt;" & _
				"Persist Security Info=false"
				sql="SELECT * from "&files1.Name&".txt order by Codigo"
				Set rs=conn.execute(sql)
				While Not rs.EOF
					Set FSO=CreateObject("Scripting.FileSystemObject")
					teste=teste+1
					response.write "<TR bgcolor='"&cor&"'><TD align='center'>"&teste&"<TD align='center'>"
					response.write "<TD align='center'>"&FormataData(rs(1))
					response.write "</TD><TD align='center'>"&rs(6)
					response.write "</TD><TD align='center'> <H7>"&rs(5)&"</TD>"
					rs.MoveNext
				Wend
				rs.close
				Set rs=Nothing
				conn.close
				Set conn=Nothing	
			next
		Next

[xanburzum 169]

crie antes o caminho do arquivo em uma variavel e depois atribua ao DBQ

[hargon 64]

Você não precisa usar dessa forma.

 

Faça uma pesquisa aqui no Fórum. Temos vários exemplos de leitura de arquivos texto.

[xanburzum 169]

você pode fazer atraves de arquivo udl,tb

no txt você pode delimitar colunas

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\pasta\;Extended Properties="text;HDR=Yes;FMT=Delimited";

O delimitador pode ser especificado no registro na seguinte localização:

HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ Jet \ 4.0 \ Engines \ Text

"Format" = "TabDelimited"

ou

"Format" = "Delimited(;)"

 

Comprimento fixo colunas

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\txtFilesFolder\;Extended Properties="text;HDR=Yes;FMT=Fixed";

"HDR = Yes;" indica que a primeira linha contém columnnames, não dados.

"HDR = No;" indica o contrário.

 

Para especificar cada o comprimento coluna use o arquivo Schema.ini.

 

ODBC

Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\txtFilesFolder\;Extensions=asc,csv,tab,txt;

As informações do arquivo de esquema informa ao driver sobre o formato dos arquivos de texto. O arquivo está localizado na mesma pasta como arquivos de texto e deve ter o nome schema.ini.

 

[customers.txt]
Format=TabDelimited
ColNameHeader=True
MaxScanRows=0
CharacterSet=ANSI

[orders.txt]
Format=Delimited(;)
ColNameHeader=True
MaxScanRows=0
CharacterSet=ANSI

[invoices.txt]
Format=FixedLength
ColNameHeader=False
Col1=FieldName1 Integer Width 15
Col2=FieldName2 Date Width 15
Col3=FieldName3 Char Width 40
Col4=FieldName4 Float Width 20
CharacterSet=ANSI

http://www.connectionstrings.com/textfile

[thicomp 0]

Pessoal, obrigado pela ajuda!

Achei onde eu estava errando...

 

Especifiquei 2 vezes o nome do arquivo, na especificação do caminho em dbq e depois no SELECT...

 

Era esse o problema...

 

Mas mesmo assim, valeu pela ajuda de vcs...

 

Abçs