Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

thicomp

Recupração de dados

Recommended Posts

Boa Tarde!

Tenho um código onde ele faz a leitura de dados de um arquivo, com as informações separadas por ponto e vírgula (;).

O que acontece é que ele deveria fazer uma somatório dos meses disponíveis no arquivo e mostrar, em uma tabela (página WEB), com todos os meses cadastrados e os números relacionados a cada mês.

O que acontece nesse caso é que se eu não possuo algum mês específico no arquivo, ele retorna o valor anterior.

O problema é que eu não consigo retornar zero, caso o mês não exista no arquivo. Acredito que o problema esteja relacionado ao comando SELECT, mas não consigo encontrar uma solução. Alguém teria alguma sugestão?

 

Muito obrigado!


For a=1 to 12
	Set Conn1=Server.CreateObject("ADODB.Connection")
	Conn1.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
	"Dbq=E:\Root\Equipamentos\"&right("00"&request.querystring("equip"), 3)&";" & _
	"Extensions=asc,csv,tab,txt;" & _
	"Persist Security Info=false"
	sql1="SELECT * from "&request.querystring("ano")&".txt where MES_Sel="&a&""
	Set rs1=conn1.execute(sql1)
	
	While Not rs1.EOF
		IF Int(right("0"&a, 2))=Int(right("0"&rs1(2), 2)) Then
			For a2=4 to 16
				IF a2="4" AND rs1(a2)<>"" Then
					p1=p1+1
				End IF		
			Next
		Else
			p1=0
		End IF
		rs1.MoveNext
	Wend
	rs1.close
	Set rs1=Nothing
	conn1.close
	Set	conn1=Nothing
	response.write "<TD> "&p1
Next





 

Compartilhar este post


Link para o post
Compartilhar em outros sites

vc terá que quebrar ele em array para depois recuperar

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.