Fala pessoal!!!
Estou tentando resolver um problema com minha consulta.
Estou ajustando algumas rotinas em um sistema em VBA e me deparei com uma consulta feita em Access, ela funciona muito bem como uma consulta salva, porém estou tentando transforma-la em uma string, que será enviada (via execute) para o BD
SQL.
Pelo que entendi, o problema todo acontece porque ela tem como base, uma consulta agrupada.
Segue a encrenca.....
SELECT Sinistro.sinistro, Titular, Sinistrado, Clientes_Apolices.IdCliente, Clientes.NmCliente, Clientes.ClassCliente, Seguradora.codigo, Seguradora.Seguradora, Clientes_Apolices.Empresa, Empresa.NmEmpresa, ClassSinCob.DescCobert, Status.DescStatus, Sinistro.[dt evento] AS DtEvento, Sinistro.[dt aviso] AS DtAviso FROM ((((((Sinistro INNER JOIN Clientes_Apolices ON (Sinistro.Empresa = Clientes_Apolices.Empresa) AND (Sinistro.IdApolice = Clientes_Apolices.IdApolice)) INNER JOIN Apolice ON Clientes_Apolices.IdApolice = Apolice.IdApolice) INNER JOIN Seguradora ON Apolice.codigo = Seguradora.codigo) INNER JOIN Clientes ON Clientes_Apolices.IdCliente = Clientes.IdCliente) INNER JOIN (SELECT Sinistro, CodCobert, DescCobert FROM (SELECT Sinistro, Min(TipoCoberturas.SeqLogica) AS MinSeqLogica FROM TipoCoberturas INNER JOIN [Sinistros Cobertura] ON TipoCoberturas.CodCobert = [Sinistros Cobertura].CodCobert GROUP BY Sinistro) AS TpSinistroCOB INNER JOIN TipoCoberturas ON TpSinistroCOB.MinSeqLogica = TipoCoberturas.SeqLogica ORDER BY TpSinistroCOB.Sinistro) AS ClassSinCob ON Sinistro.sinistro = ClassSinCob.Sinistro) INNER JOIN Status ON Sinistro.Status = Status.Status) INNER JOIN Empresa ON (Clientes_Apolices.Empresa = Empresa.Empresa) AND (Clientes_Apolices.IdApolice = Empresa.IdApolice) WHERE Sinistro.sinistro = '12745816' ORDER BY Sinistro.sinistro;
Sei que é difícil analisar sem o BD, mas se alguém tiver alguma dica, já ajudaria bastante!!!
Já estou perdendo o pouco cabelo que tenho!!!!
hahahahahahahahahaha
Abraço a todos!!!
