ADICIONAR DADOS NO ACTIVE REPORT SEM BASE DE DADOS

USUARIO.EXCLUIDOS 02/10/2006 11:18:47
#174953
Bom dia pessoal!

Alguém sabe como adicionar dados no Active Report sem base de dados?

Agradeço desde já!

[S50][S68][S81]
USUARIO.EXCLUIDOS 02/10/2006 12:01:35
#174976
PAULA, eu não uso muito AR, mas acredito que dê para passar um Recordset para ele não? Se sim, vc pode fazer um recordset virtual com ADO:

Exemplo carregando um recordset baseado num ListBox (List1)
Dim rs As ADODB.Recordset, i As Integer
Set rs = New ADODB.Recordset
rs.Fields.Append "ID", adInteger
rs.Fields.Append "DESCRICAO", adVarChar, 100
rs.Open
For i = 0 To List1.ListCount - 1
  rs.AddNew
  rs.Fields("ID") = i
  rs.Fileds("DESCRICAO") = List1.List(i)
  rs.Update
Next i
rs.MoveFirst
'Exemplo para enviar o RS para um DataReport,
'tente adaptar ao AR
Set DataReport1.DataSourc = rs
DataReport1.Show vbModal
rs.Close
Set rs = Nothing


Qualquer dúvida poste...flw
USUARIO.EXCLUIDOS 03/10/2006 08:31:26
#175184
Esse código não é do Data Report?
LIONHEART 03/10/2006 09:13:57
#175193
Sim, mas a idéia é a mesma.
Vc precisa passar um RecordSet desconectado.
USUARIO.EXCLUIDOS 04/10/2006 08:40:09
#175477
Vou ver se consigo fazer isso. Obrigada
Tópico encerrado , respostas não são mais permitidas
Voltar