RELATORIO - URGENTE
Gostaria de criar um relatório onde alguns campos serão preenchidos com dados de outra tabela do banco de dados....
Estou usando o DataReport, sem o DataEnvironment (aprendi através de um exemplo postado aqui mesmo no vbmania)
Me conecto ao banco de dados da seguinte maneira...
[ô]Está no módulo
Public objBD As New ADODB.Connection
[ô]No formulário de destino
Sub ImprimirPosse()
objBD.Open [Ô]DRIVER={Microsoft Access Driver (*.mdb)};DBQ=[Ô] & App.Path & [Ô]\dados.mdb[Ô], , [Ô]123456[Ô]
Dim objRS As ADODB.Recordset
If MA.RecordCount = 0 Then
MsgBox [Ô]Nenhum registro encontrado para impressão[Ô], vbInformation, [Ô]JusSoft[Ô]
Exit Sub
Else
Set objRS = objBD.Execute([Ô]SELECT * FROM Mandados[Ô])
If objRS.EOF = False Then
[ô]Define o DataSource do relatório
Set drpMPosse.DataSource = objRS
[ô]Mostra o relatório
drpMPosse.Show
drpMPosse.SetFocus
End If
End If
End Sub
Private Sub cmdImprimir_click()
Call ImprimirPosse
End sub
Queria que pegar alguns campos de outras tabelas e colocar no mesmo formulario que o código acima o preenche...
como faço isso usando o mesmo comando acima?
Estou usando o DataReport, sem o DataEnvironment (aprendi através de um exemplo postado aqui mesmo no vbmania)
Me conecto ao banco de dados da seguinte maneira...
[ô]Está no módulo
Public objBD As New ADODB.Connection
[ô]No formulário de destino
Sub ImprimirPosse()
objBD.Open [Ô]DRIVER={Microsoft Access Driver (*.mdb)};DBQ=[Ô] & App.Path & [Ô]\dados.mdb[Ô], , [Ô]123456[Ô]
Dim objRS As ADODB.Recordset
If MA.RecordCount = 0 Then
MsgBox [Ô]Nenhum registro encontrado para impressão[Ô], vbInformation, [Ô]JusSoft[Ô]
Exit Sub
Else
Set objRS = objBD.Execute([Ô]SELECT * FROM Mandados[Ô])
If objRS.EOF = False Then
[ô]Define o DataSource do relatório
Set drpMPosse.DataSource = objRS
[ô]Mostra o relatório
drpMPosse.Show
drpMPosse.SetFocus
End If
End If
End Sub
Private Sub cmdImprimir_click()
Call ImprimirPosse
End sub
Queria que pegar alguns campos de outras tabelas e colocar no mesmo formulario que o código acima o preenche...
como faço isso usando o mesmo comando acima?
Informe os dados da OUTRA tabela além do CAMPO que é COMUM nas 2.
O nome da outra tabela é Oficial.
Dela quero obter os campos de Matricula, Nome, Comarca!
Agora os campos comuns entre as duas tabelas é nenhum!
Dela quero obter os campos de Matricula, Nome, Comarca!
Agora os campos comuns entre as duas tabelas é nenhum!
AJUDAAAA!!!!!!!
Agradeço a todos que tentaram me ajudar...
Não encontrei a solução do jeito que eu queria, então restou-me improvisar....
Solução...
Crie na tabela de Mandados, o campo Comarca, MatrÃcula e Oficial....
esse campos são preenchidos diretamente por Recordset....e no momento de exibir os valores, em tabela... simplesmente eu escondo as colunas.... dessa forma o DataSource do meu relatório irá coletar os dados da mesma tabela que os demais dados...
Improviso também vale né...
Valeu .. e obrigado a todos...
Não encontrei a solução do jeito que eu queria, então restou-me improvisar....
Solução...
Crie na tabela de Mandados, o campo Comarca, MatrÃcula e Oficial....
esse campos são preenchidos diretamente por Recordset....e no momento de exibir os valores, em tabela... simplesmente eu escondo as colunas.... dessa forma o DataSource do meu relatório irá coletar os dados da mesma tabela que os demais dados...
Improviso também vale né...
Valeu .. e obrigado a todos...
Tópico encerrado , respostas não são mais permitidas