JOGAR DO LIST VIEW PARA O DATA REPORT

MASTER2020 18/04/2007 22:31:23
#212647
caros amigos programadores gostaria de pedir uma dica, preciso pegar o conteudo do list view e mandar pra um data report e possivel..
at ricardo at+
MASTER2020 18/04/2007 22:53:09
#212650
sera q eu criar uma variavel num modulo
e declarar ex
a=listveiw1
e chamar no data report sera q da
3LTON 19/04/2007 07:50:06
#212670
Vc tera que criar uma tabela em memoria e depois seta-la no seu data report.
MASTER2020 19/04/2007 22:36:35
#212861
3lton poderia me explicar melhor nunca fiz isso..
se puder fico grato
MASTER2020 20/04/2007 09:46:22
#212906
pessoal precisodesta dica
USUARIO.EXCLUIDOS 20/04/2007 09:54:35
#212909 Resposta escolhida
Para criar o banco em memoria vc faz assim:

Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
''Criação do Recordset em memória
rs1.Fields.Append "data", adDate
rs1.Fields.Append "codigo", adChar, 5
rs1.Fields.Append "descricao", adChar, 80 ', adDouble
rs1.Fields.Append "credito", adDouble
rs1.Fields.Append "debito", adDouble

'Abertura do recordset
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
rs1.Open


Ai vc corre pelo seu list incluindo os registros
algo como:
rs1.addnew
rs1!data = campodata
rs1!codigo = codigo
rs1!descricao = descricao
rs1!credito = vlcredito
rs1!debito = vldebito
rs1.update


para setar o rs ao seu datareport vc faz

Set DR_movCaixa.DataSource = rs1

abraços
MASTER2020 20/04/2007 11:04:11
#212935
Maumau
vou testar depois eu posto..obrigado
MASTER2020 20/04/2007 11:07:00
#212937
Maumau duvida nao preciso ter uma tabela msm no bd
ela e so na memoria e isso
MASTER2020 20/04/2007 11:12:53
#212940
maumau duvida
quando carrega o form

Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
''Criação do Recordset em memória
rs1.Fields.Append "data", adDate
rs1.Fields.Append "codigo", adChar, 5
rs1.Fields.Append "descricao", adChar, 80 ', adDouble
rs1.Fields.Append "credito", adDouble
rs1.Fields.Append "debito", adDouble

'Abertura do recordset
rs1.CursorLocation = adUseClient
rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
rs1.Open



quando incluio no list
ocorre isso


rs1.addnew
rs1!data = campodata
rs1!codigo = codigo
rs1!descricao = descricao
rs1!credito = vlcredito
rs1!debito = vldebito
rs1.update


pra abrir no data report
Set DR_movCaixa.DataSource = rs1

mas aki tenho q colocar nas text.
algo tipo
codcliente=rs1!codigo
+-
issso
USUARIO.EXCLUIDOS 20/04/2007 11:59:53
#212968
é... as informações vc vai buscar na list...
os campos vc vai criar de acordo com a list tbm...

o inclusão (addnew) vc vai colocar no loop para varrer o list

algo como:

for a:=0 to list.listcount
rs1.addnew
rs!campo1 = campodolist
rs!campo2 = campodolist
rs.update
next

não me lembro quais os dados do list... mas a ideia é essa..

Abraços
MASTER2020 20/04/2007 22:10:22
#213105
maos a obra maumau valeu
Página 1 de 2 [12 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar