Urgente - problemas com o Active Report


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Urgente - problemas com o Active Report

Clau

ARARAQUARA
SP - BRASIL

ENUNCIADA !

Postada em 16/01/2006 11:41 hs

URGENTE!

Estou tentando imprimir umas fichas de cadastro no Active Reporte, utilizo uma conexão ADO com o Banco SQL Server.

Gostaria de saber como faço para imprimir os registros de um a tabela do banco, pois só consigo fazer com o active exiba apenas o 1º registro.

Segue ó código que estou utilizando no active report, tbcx é meu recordset.

Private Sub Activereport_fetchdata(eof As Boolean)

If Not tbcx.eof Then
tbcx.MoveNext
Else
Exit Sub
End If

End Sub

Private Sub Detail_Format()

If Not tbcx.eof Then
   field1.Text = tbcx.Fields("sequenciafc")
   Dim Wano, Wmes, Wdia As String
   Wano = Mid$(tbcx.Fields("data"), 3, 2)
   Wmes = Mid$(tbcx.Fields("data"), 5, 2)
   Wdia = Mid$(tbcx.Fields("data"), 7, 2)
   Field2.Text = Wdia + "/" + Wmes + "/" + Wano
   'Image1.Picture = LoadPicture("" & Fields.Item("foto"))
   Image1.Picture = LoadPicture("" & tbcx.Fields("foto"))
   Field3.Text = tbcx.Fields("categoria")
   Field4.Text = tbcx.Fields("titulo")
   Field5.Text = tbcx.Fields("sequencia")
   Field6.Text = tbcx.Fields("sequencia_tit")
   Field7.Text = tbcx.Fields("nome")
   Field8.Text = tbcx.Fields("modalidade")
   Field9.Text = tbcx.Fields("categoria_esp")
   Field10.Text = tbcx.Fields("apelido") & ""
   Field11.Text = tbcx.Fields("dtnasci") & ""
   Field12.Text = tbcx.Fields("tamanho") & ""
   Field13.Text = tbcx.Fields("posicao") & ""
   Field14.Text = tbcx!foneres & "/" & tbcx!fonecom & "/" & tbcx!celular & "-" & tbcx.Fields("OBS") & ""
Else
Exit Sub
End If
End Sub

Claudene Gonçalves msn: claudeneg@hotmail.com

Alfterra

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 16/01/2006 20:25 hs

tenta colocar um objeto ADO no AR e no botao imprimir faz o seguinte:

AR.ADO.ConnectionString = CN_String 'string de conexao como BD
AR.ADO.Recordset = TbRs ' tabela ou rs

AR.FieldTOTAL.DataField = "TAPAGAR" 'um text no AR chamado de fieltotal e na propriedade datafield ligada ao campo da tabela no caso TAPAGAR, faz isso pra todos os campos que vc queira mostrar no AR.

AR.show

Clau

ARARAQUARA
SP - BRASIL

ENUNCIADA !

Postada em 17/01/2006 08:22 hs

Alfterra, eu agradeço sua ajuda, mas infelizmente nã deu certo

Alfterra

SÃO PAULO
SP - BRASIL

Postada em 17/01/2006 10:52 hs

cara, acabei de taestar aqui com 680 regidtros e funfou numa boa....

Private Sub Command1_Click()
Abrir_CNN
ABRIR_TB

     With AR
           .Caption = "Impresso em " & Format$(Date, "dd/mm/yyyy") & " POR ALFTERRA - NOTAS FISCAIS DE " & UCase(MonthName(MES)) & "/" & "2004 - CHAMIX"
           .LBLNF.Caption = "Notas Fiscais Emitidas em " & UCase(MonthName(MES)) & "/2004 - CHAMIX IMPORTORÇÃO E EXPORTORÇÃO LTDA"
           .ADO.ConnectionString = CNN.ConnectionString
           .ADO.Recordset = TB
           .FieldDATA.DataField = "DATA"
           .FieldNUMERO.DataField = "NUMERO"
           .FieldRazaoSocial.DataField = "RAZAO_SOCIAL"
           .FieldUF.DataField = "UF"
           .MaskBoxCNPJ.DataField = "CNPJ"
           .MaskBoxIE.DataField = "IE"
           .FieldSITUACAO.DataField = "SITUACAO"
           '------------------------------------------------
           .LBLTOTAL.Caption = TB.RecordCount
           .LblRodape.Caption = .Caption
           .Show 1
      End With

End Sub

Clau

ARARAQUARA
SP - BRASIL

Postada em 17/01/2006 11:20 hs

para que pudesse usar um filtro de seleção, coloquei ADO.Source = "Select" ao invés de ADO.Recordset e passei os campos da forma que vc explicou, até td certo, porém preciso formatar um campo do tipo char ex: "20060117", passando - o para data ex: format(campo, yyyy/mm/dd) = 17/01/2006; e preciso colocar uma foto em cd ficha.

Da forma como explicou, eu não consegui obter essas funcionalidades.

Grata pela atenção!

Claudene Gonçalves msn: claudeneg@hotmail.com

Alfterra

SÃO PAULO
SP - BRASIL

Postada em 17/01/2006 14:55 hs

c ja tentou formatar o campo do AR que vai receber os dados em formato de data? se a foto tiver relacinada com dados/na mesma tabela, vc incluir uma IMAGE no AR e define o datafied como falei acima e atribui a ele o campo da tabela, deve funfar...tenta aí....

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR