opa! agora sim!


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: opa! agora sim!

RDM.TECNOLOGIA

SÃO PAULO
SP - BRASIL

Postada em 26/07/2007 14:33 hs

Pessoal estou passando aqui o código do que eu realmente quero bem resumido p vocês entenderem melhor.

no código abaixo eu gero um .txt com o resultado de uma consulta.

Open "C:Relatorio.txt" For Append As #1

Print #1, RsGrupoRec(0) & " " & RsGrupoRec(1) & " " & RsGrupoRec(2) & " " & RsGrupoRec(3) & " " & RsSemRec(0) & " " & RsSemRec(1) & " " & RsSemRec(2) & " " & RsSemRec(3) & " " & RsSemRec(4)

Close #1

até ai blz, mas eu gostaria de gravar neste mesmo arquivo, mais 3 consultas uma abaixo da outra separadas em 4 blocos de dados, no código acima eu gerei um bloquinho, como faço para gerar outro bloco depois deste?

tipo:

-------- bloco de consultas 1 ---------------

campo1 campo2 campo3
xxxxxxx xxxxxxx xxxxxxx

xxxxxxx xxxxxxx xxxxxxx

-------- bloco de consultas 2 ---------------

campo1 campo2 campo3 campo4
xxxxxxx xxxxxxx xxxxxxx xxxxxxx

xxxxxxx xxxxxxx xxxxxxx xxxxxxx

-------- bloco de consultas 3 ---------------

campo1 campo2 campo3 campo4 campo5
xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx

xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx

-------- bloco de consultas 4 ---------------

campo1 campo2 campo3 campo4 campo5 campo6
xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx

xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx xxxxxxx

valeu

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 26/07/2007 15:02 hs

Tenta assim:

sSQL = "SELECT * FROM TABELA01"

Call S_GerarArquivo(0,sSQL,"-----Primeira Consulta-----")

sSQL = "SELECT * FROM TABELA02"

Call S_GerarArquivo(1,sSQL,"-----Segunda Consulta-----")

sSQL = "SELECT * FROM TABELA03"

Call S_GerarArquivo(1,sSQL,"-----Terceira Consulta-----")

Public Sub S_GerarArquivo(ByVal opcao as byte,ByVal SQL as String,Optional ByVal sTexto as String)

RS.OPEN SQL,CONEXAO

sTexto = sTexto & VbNewLine & VbNewLine 'pula linha

Do While Not RS.EOF

'Seu código para gravar no arquivo ...

sTexto = sTexto & RS(0) & " " RS(1) 'e assim por diante

RS.movenext

Loop

sTexto = sTexto & VbNewLine

RS.Close

IF opcao = 0 Then 'Output

Open "C:Relatorio.txt" For Output As #1

elseif opcao = 1 Then 'Append

Open "C:Relatorio.txt" For Append As #1

Endif

Print #1, sTexto

Close #1

End Sub

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 26/07/2007 15:11 hs

Opa, muda para assim. Esqueci que o append também cria o arquivo se necessário:

Public Sub S_GerarArquivo(ByVal SQL as String,Optional ByVal sTexto as String)

RS.OPEN SQL,CONEXAO

sTexto = sTexto & VbNewLine & VbNewLine 'pula linha

Do While Not RS.EOF

'Seu código para gravar no arquivo ...

sTexto = sTexto & RS(0) & " " RS(1) 'e assim por diante

RS.movenext

Loop

sTexto = sTexto & VbNewLine

RS.Close

Open "C:Relatorio.txt" For Append As #1

Print #1, sTexto

Close #1

End Sub

Só tem o inconveniente de apagar o arquivo antes de gerar um novo usando este método. Senão junta o conteúdo anterior.

At+

TÓPICO EDITADO

Página(s): 1/1