DATA REPORT COMO MOSTRAR DADOS DE UMA SELECT?
é possivel usar mais de uma tabela por relatório?
e COMO MOSTRAR DADOS DE UMA SELECT no ralatório?
e COMO MOSTRAR DADOS DE UMA SELECT no ralatório?
Sim, faça uma consulta nas tabelas usando um JOIN, e crie os RptTextBox no DataReport com os nomes das colunas das 2 tabelas.
e se fosse só de uma tabela mas com select?
O mesmo esquema.
dá um exemplo de como ficaria com essa select: VDatas.Open [Ô]SELECT * FROM datas WHERE Data >= [Ô] & [Ô]#[Ô] & Format((dtpDe.Value), [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô] & [Ô] AND Data <= [Ô] & [Ô]#[Ô] & Format((DtpAte.Value), [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô] & [Ô]ORDER By Data[Ô]
pessoal eu queria mostrar dados de uma tabela somente como fazet?
Se eu endendi vc que colocar duas tabelas no mesmo datareport
vc esta usando o DataEnvironment
Add as Tabelas depois Relaciona a mesma.
SELECT CadPedidos.* FROM CadPedidos
vc esta usando o DataEnvironment
Add as Tabelas depois Relaciona a mesma.
SELECT CadPedidos.* FROM CadPedidos
mas eu não queria utilizar do dataenviromet e queria pegar dados primeiro de uma tabela e por no ralatório e depois de outra tabela no msm relatório.
vc ja tentou assim:
RS.Open [Ô]Tabela1[Ô], db, 1, 3
RS.Fields([Ô]Nome[Ô]) = Text1.Text
RS.Fields([Ô]Cidade[Ô]) = Text2.Text
RS.Close
RS.Open [Ô]Tabela2[Ô], db, 1, 3
RS.Fields([Ô]Codigo[Ô]) = Text1.Text
RS.Fields([Ô]Produto[Ô]) = Text2.Text
RS.Close
eu acho que assim funciona Ok.
RS.Open [Ô]Tabela1[Ô], db, 1, 3
RS.Fields([Ô]Nome[Ô]) = Text1.Text
RS.Fields([Ô]Cidade[Ô]) = Text2.Text
RS.Close
RS.Open [Ô]Tabela2[Ô], db, 1, 3
RS.Fields([Ô]Codigo[Ô]) = Text1.Text
RS.Fields([Ô]Produto[Ô]) = Text2.Text
RS.Close
eu acho que assim funciona Ok.
Amigo eu estou querendo colocar no datareport não numa caixa de texto obrigado, mas não tem nada a ver com que pedi
nem tem select aÃ...
nem tem select aÃ...
Esse exemplo exibe num Rpt os dados da tabela TBMOVIMENTO filtrado pelo código e data de inclusão.
Dim SQL as String
------------------------------------
Public Sub ImprimeMat()
Sql = [Ô]SELECT tbmovimento.CodigoPedido,tbmovimento.CodigodoCliente,tbmotivo.CodMotivo, tbmotivo.Descricao_motivo AS Motivo, tbmovimento.Dias, tbmovimento.Acontar, tbmovimento.DataInclusao [Ô] & _
[Ô]FROM tbmotivo INNER JOIN tbmovimento ON tbmotivo.CodMotivo = tbmovimento.CodMotivo [Ô] & _
[Ô]WHERE tbmovimento.CodigodoCliente =[Ô] & CLng(txtcod) & _
[Ô]AND tbmovimento.DataInclusao Between #[Ô] & Format(Me.msk1.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND # [Ô] & Format(Me.msk2.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# ;[Ô]
Set rs = conn.Execute(Sql)
If rs.EOF = False Then
Set Rpt.DataSource = rs
Rpt.Orientation = rptOrientPortrait
Rpt.Show
End If
End Sub
Dim SQL as String
------------------------------------
Public Sub ImprimeMat()
Sql = [Ô]SELECT tbmovimento.CodigoPedido,tbmovimento.CodigodoCliente,tbmotivo.CodMotivo, tbmotivo.Descricao_motivo AS Motivo, tbmovimento.Dias, tbmovimento.Acontar, tbmovimento.DataInclusao [Ô] & _
[Ô]FROM tbmotivo INNER JOIN tbmovimento ON tbmotivo.CodMotivo = tbmovimento.CodMotivo [Ô] & _
[Ô]WHERE tbmovimento.CodigodoCliente =[Ô] & CLng(txtcod) & _
[Ô]AND tbmovimento.DataInclusao Between #[Ô] & Format(Me.msk1.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND # [Ô] & Format(Me.msk2.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# ;[Ô]
Set rs = conn.Execute(Sql)
If rs.EOF = False Then
Set Rpt.DataSource = rs
Rpt.Orientation = rptOrientPortrait
Rpt.Show
End If
End Sub
Tópico encerrado , respostas não são mais permitidas