VBA - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: VBA

dummies

CERQUILHO
SP - BRASIL

Postada em 02/09/2006 11:07 hs

Bom dia,

Já fiz alguns programas em VB6, mas agora estou precisando desenvolver relatórios em Execel usando VBA.

Eu fiz a seguinte rotina :

While Not Rs.EOF
Range("a1:a10") = Rs.Fields("title")
Rs.MoveNext
Wend

Em VB dentro de um listview ou combo....funcionaria bem...., mas da forma que está acima ele não gera erro porém retorna apenas o ultimo registro da consulta para todas as celulas de A1 : A10.

Como faço para ele retornar todos os registros da consulta?

Caso eu não tenha sido claro...por favor me digam.

Agradeço desde já.

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 04/09/2006 08:53 hs

tente uma por uma...

dim i as long

i = 1

While Not Rs.EOF
Range("a" & i) = Rs.Fields("title")

i = i + 1
Rs.MoveNext
Wend

While Not Rs.EOF
Range("a" & rs.AbsolutePosition) = Rs.Fields("title")
Rs.MoveNext
Wend

tenta ae...

dummies

CERQUILHO
SP - BRASIL

Postada em 07/09/2006 07:41 hs

Belezzzzzzzzz.....Ghost_jlp,

Deu certo !

Agora ...como fecho esse post?

Elieser Topassi

SÃO JOSÉ DO RIO PRETO
SP - BRASIL

Postada em 07/09/2006 08:44 hs

pra fechar clica no CADEADO que aparece no 1ro post de cima.

Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net

e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)

Página(s): 1/1