[Resolvido]Fonte de dados - relatório desvinculado.

Vi o tópico http://maximoaccess.forumeiros.com/t2866-resolvidorelatorio-usando-recordsert-para-exibir-varios-registros e estou com o mesmo problema.
Uso o Access acessando uma base de dados SQL. Como ficaria a consulta abaixo:

Dim strSQL As String
strSQL = "SELECT Cliente.Nome, Cliente.CIC_CNPJ, Obra.nomedaObra, tblLogradouros.Descricao AS Logradouro, Obra.numeroPredial," _
& " Obra.complemento, tblBairros.Descricao AS Bairro, tblCidades.Descricao AS Cidade, tblLogradouros.UF, Fornecedores.nomeFornecedor," _
& " Compras.DataDoPagamento, Compras.valorPago, ItensDeCompra.DataDaCompra, Materiais.nomeMaterial, ItensDeCompra.Quantidade," _
& " Medida.SinboloMedida, ItensDeCompra.valorUnitario, ItensDeCompra.valorTotal" _
& " FROM " _
& " IN " & abreBDp _
& " (((Fornecedores INNER JOIN ((tblCidades INNER JOIN (tblBairros INNER JOIN (tblLogradouros INNER JOIN" _
& " (Cliente INNER JOIN Obra ON Cliente.idCliente = Obra.idCliente) ON tblLogradouros.idLogradouro = Obra.idLogradouro)" _
& " ON tblBairros.Codigo = tblLogradouros.CodigoBairro) ON tblCidades.Codigo = tblBairros.CodigoCidade) INNER JOIN" _
& " Compras ON Obra.idObra = Compras.idObra) ON Fornecedores.id_Fornecedor = Compras.idFornecedor) INNER JOIN" _
& " ItensDeCompra ON Compras.idCompra = ItensDeCompra.idCompra) INNER JOIN Materiais ON ItensDeCompra.idMaterial = Materiais.idMaterial) INNER JOIN" _
& " Medida ON Materiais.idMedida = Medida.idMedida" _
& " WHERE (((Obra.idObra) = 1))"

Nota: abreBDp é uma função que retorna o caminho do BD.
Public Function abreBDp() As String
Dim strConexao As String

strConexao = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
& " Persist Security Info=False;Initial Catalog=Cobra;Data Source=SERGIO00\SQLEXPRESS"

abreBDp = strConexao

End Function

Boa tarde, ivanenko, e bem-vindo ao fórum
Não escrutinei muito mas o IN tem de ser depois do FROM, deste género:

Dim strSQL As String
strSQL = "SELECT Cliente.Nome, Cliente.CIC_CNPJ, Obra.nomedaObra, tblLogradouros.Descricao AS Logradouro, Obra.numeroPredial," _
& " Obra.complemento, tblBairros.Descricao AS Bairro, tblCidades.Descricao AS Cidade, tblLogradouros.UF, Fornecedores.nomeFornecedor," _
& " Compras.DataDoPagamento, Compras.valorPago, ItensDeCompra.DataDaCompra, Materiais.nomeMaterial, ItensDeCompra.Quantidade," _
& " Medida.SinboloMedida, ItensDeCompra.valorUnitario, ItensDeCompra.valorTotal" _
& " FROM " _
& " (((Fornecedores INNER JOIN ((tblCidades INNER JOIN (tblBairros INNER JOIN (tblLogradouros INNER JOIN" _
& " (Cliente INNER JOIN Obra ON Cliente.idCliente = Obra.idCliente) ON tblLogradouros.idLogradouro = Obra.idLogradouro)" _
& " ON tblBairros.Codigo = tblLogradouros.CodigoBairro) ON tblCidades.Codigo = tblBairros.CodigoCidade) INNER JOIN" _
& " Compras ON Obra.idObra = Compras.idObra) ON Fornecedores.id_Fornecedor = Compras.idFornecedor) INNER JOIN" _
& " ItensDeCompra ON Compras.idCompra = ItensDeCompra.idCompra) INNER JOIN Materiais ON ItensDeCompra.idMaterial = Materiais.idMaterial) INNER JOIN" _
& " Medida ON Materiais.idMedida = Medida.idMedida" _
& " IN " & abreBDp _
& " WHERE (((Obra.idObra) = 1))"

Alexandre,

Não funcionou.

strSQL = "SELECT Cliente.Nome, Cliente.CIC_CNPJ, Obra.nomedaObra, tblLogradouros.Descricao AS Logradouro," _
& " Obra.numeroPredial, Obra.complemento, tblBairros.Descricao AS Bairro, tblCidades.Descricao AS Cidade," _
& " tblLogradouros.UF, Fornecedores.nomeFornecedor, Compras.idCompra, Compras.DataDoPagamento, Compras.valorPago" _
& " FROM Fornecedores INNER JOIN" _
& " ((tblCidades INNER JOIN (tblBairros INNER JOIN (tblLogradouros INNER JOIN" _
& " (Cliente INNER JOIN Obra ON Cliente.idCliente = Obra.idCliente) ON" _
& " tblLogradouros.idLogradouro = Obra.idLogradouro) ON" _
& " tblBairros.Codigo = tblLogradouros.CodigoBairro) ON" _
& " tblCidades.Codigo = tblBairros.CodigoCidade) INNER JOIN" _
& " Compras ON Obra.idObra = Compras.idObra)" _
& " ON Fornecedores.id_Fornecedor = Compras.idFornecedor" _
& " IN [" & abreBDp & "]" _
& " WHERE (((Obra.idObra) = 1))"

Amigão.. essa solução eu cheguei com a Ajuda do Nobre Alexandre...

Se o for semelhante ao problema que tive ..voce teria que carregar o RecordSource do seu relatorio com a Sql..

Como fiz no meu:

Me.RecordSource = StrDetento 'Aqui carrega o relatório Via recordSource com a variável StrDetento, que contem A tabela e o seu endereço via StrPath




depois do carregamento da Variável StrSQL com a a sql...

Carregaria o RecordSource com a variável..

Me.RecordSource = StrSQL

Lembrando que nesse caso os campos não ficam em brancos...

Eles terão os nomes dos campos... semelhante a um relatorio vinculado a uma tabela...
só que neste caso... ele é preenchido via SQL que é conseguida no seu código


Bem se for semelhante ao meu caso.. seria assim..

Saudações

No meu caso.. eu carregei toda a tabela via caracter coringa...

creio que pode fazer o mesmo para simplificar sua SQL.. isso se no seu caso puder ser feito assim..

Olhe um exemplo de SQL que eu uso ... a parte do Endereço do BD eu sempre uso antes da cláusula WHERE




StrDetento = "SELECT Detentos.ID, Detentos.[Nome] & Space (1) & [Sobrenome] As Detento, Detentos.Infração, Fotos_Detentos.IDFoto, Fotos_Detentos.CaminhoFotoRosto," _
& "Fotos_Detentos.CaminhoPerfil1, Fotos_Detentos.CaminhoPerfil2, Fotos_Detentos.CaminhoPerfil3, Fotos_Detentos.CaminhoPerfil4 FROM Detentos LEFT JOIN Fotos_Detentos ON Detentos.[ID] = Fotos_Detentos.[IDFoto]" _
& "IN '" & StrPath & "'" _
& "WHERE (Detentos.[Nome] Is Not Null);"


Observe tambem a escrita da cláusula IN.. na primeira que postou não esta muito correta..

Lembrando tambem que a variável do nome do BD e o seu carregamento vem sempre antes da SQL

Harysohn,

O seu exemplo usa um BD Access, o meu problema está justamente no BD, pois estou trabalhando com uma fonte SQL2008.
E não está dando certo.

Dim cn As New ADODB.Connection
Dim strSQL As String
Dim strBD As String
strBD = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
& " Persist Security Info=False;Initial Catalog=Cobra;Data Source=SERGIO00\SQLEXPRESS"
With cn
.ConnectionString = strBD
.CursorLocation = adUseServer
.Open
End With

strSQL = "SELECT DataDoPagamento, valorPago" _
& " FROM Compras IN '" & cn & "'" _
& " WHERE (idObra = 1)"

Report_Relatório1.RecordSource = strSQL
DoCmd.OpenReport "Relatório1", acViewPreview

Bem amigão, infelizmente passo a questão a quem entende de SQL

Saudações

Resolvi utilizando uma consulta passagem.
Não era o que queria, pois tenho que criar uma conexão ODBC.

resolvido