RELATORIO COM DUAS TABELAS

CAIO.FR.SP 31/07/2009 12:11:13
#318451
galera tem como eu fazer uma pesquisa em duas tabelas (contas a pagar, contas a receber) e passar o resultado para um unico recordset para depois ultiliza-lo no data report?
MADMAX 31/07/2009 16:49:27
#318474
Da para vc fazer sim , da um buscada na net por UNION ALL ...acho que servira para vc ele une 2 selects
EDSON.GETTEN 31/07/2009 17:04:47
#318476
Crie um recordset desconectado conforme segue
Dim TBCxAux As ADODB.Recordset
Set TBCxAux = New ADODB.Recordset
TBCxAux.Fields.Append [Ô]cxA_data[Ô], adChar, 12
TBCxAux.Fields.Append [Ô]cxA_Descricao[Ô], adChar, 50
TBCxAux.Fields.Append [Ô]cxA_valor[Ô], adDouble
TBCxAux.Fields.Append [Ô]cxA_Saldo[Ô], adDouble
TBCxAux.ActiveConnection = Nothing
TBCxAux.CursorLocation = adUseClient
TBCxAux.Open

[ô] carregue aki
TBCxAux.AddNew
TBCxAux(0) = [Ô][Ô]
TBCxAux(1) = [Ô]Saldo Anterior[Ô]
If tbCaixa!Soma <> [Ô][Ô] Then
TBCxAux(2) = tbCaixa!Soma
TBCxAux(3) = tbCaixa!Soma
saldogeral = tbCaixa!Soma
Else
TBCxAux(2) = [Ô]0,00[Ô]
TBCxAux(3) = [Ô]0,00[Ô]
End If
TBCxAux.Update

[ô] Bind the Recordset to the Report
Set drCaixaGlobal.DataSource = TBCxAux [ô]TBOrcamento
drCaixaGlobal.DataMember = TBCxAux.DataMember [ô]TBOrcamento.DataMember
[ô]drcaixaglobal.Sections([Ô]section1[Ô]).Controls([Ô]text1[Ô]).DataField = [Ô]orc_data[Ô]
[ô]drcaixaglobal.Sections([Ô]section1[Ô]).Controls([Ô]text2[Ô]).DataField = [Ô]orc_numero[Ô]
[ô]drcaixaglobal.Sections([Ô]section1[Ô]).Controls([Ô]text3[Ô]).DataField = [Ô]cli_razaosocial[Ô]
[ô]drcaixaglobal.Sections([Ô]section1[Ô]).Controls([Ô]text8[Ô]).DataField = [Ô]orc_valortotal[Ô]
[ô]drcaixaglobal.Sections([Ô]section1[Ô]).Controls([Ô]text4[Ô]).DataField = [Ô]devolucao[Ô]
drCaixaGlobal.ReportWidth = 10850
drCaixaGlobal.Sections([Ô]Section4[Ô]).Controls([Ô]lblcabecalho[Ô]).Caption = [Ô]Caixa Sintético [Ô]
drCaixaGlobal.Sections([Ô]section4[Ô]).Controls([Ô]lblloja[Ô]).Caption = [Ô]vs [Ô] & cmbLoja.Text
drCaixaGlobal.Sections([Ô]Section4[Ô]).Controls([Ô]lblempresa[Ô]).Caption = empresa
drCaixaGlobal.Sections([Ô]Section4[Ô]).Controls([Ô]lblsubcabecalho[Ô]).Caption = [Ô]Período: [Ô] & dtInicioCx.Value & [Ô] a [Ô] & dtFinalCx.Value
drCaixaGlobal.Show vbModal

Else
TECLA 31/07/2009 17:33:41
#318480
Posta a ESTRUTURA das DUAS TABELAS no tópico.
Qual o BANCO DE DADOS?
CAIO.FR.SP 01/08/2009 09:51:20
#318529
Campos da tabela contas a pagar
codigo
titular
descricao
valor
venc
situacao

Campos da tabela contas a receber
codigo
titular
descricao
valor
venc
situacao

Banco de dados acess
Tópico encerrado , respostas não são mais permitidas
Voltar