[Resolvido]Declare design de consulta SQL

amigos,


duvida? queria saber se é possivel criar variaveis dentro do design de consulta com SQL tipo declare e fazer um loop...



ouvi dizer que nao da é vdd mesmo?



tenho um tabela com varios campos com datas... preciso fazer um datediff pra poder enviar e-mail automaticos ao clientes.

entao terei que fazer um consulta de 3 campos

1 nome das colunas repetidas quantas vezes for necessaria para saber qual tipo de vigencia é
2 todas as datas
3 o datediff


ouvi dizer que só com union all vdd?


abraços

Realmente não é possível fazer loops e declarar variáveis nas consultas, mas você pode usá-las através das TempVars e resultado de funções públicas nas linhas de critério.

Outra ideia seria unir os campos necessários lado a lado e filtrar.

Código:

Select Campo1 & '|' & Campo2 As CamposUnidos
From tlTabelaTal
Where Campo1 & '|' & Campo2 like "*UmFiltroOuCampoFiltroOuTempVarsOuFuncaoPublica*";

vlw ivan TMJ


Eu ja sabia que tinha que fazer isso, porem queria um empurrãozinho kkkk

não tem jeito as vezes na programação agente tem que conversar com alguem pra mente esparecer kkkkk


segue como ficou a query:

Código:

SELECT DISTINCT DOCUMENTOS.ID_GERAL,
DOCUMENTOS.DT_VS_VIGENCIA AS DATA_DOCUMENTOS,
DateDiff("M",Now(),[DOCUMENTOS.DT_VS_VIGENCIA]) AS DIAS,
DOCUMENTOS.Alvara_Vigilancia_Sanitaria AS TESTE,
IIf([Alvara_Vigilancia_Sanitaria]=-1,"ALVARA DE VIGILANCIA SANITARIA") AS TXT_DOCUMENTOS
FROM DOCUMENTOS
WHERE DOCUMENTOS.DT_VS_VIGENCIA IS NOT NULL AND DOCUMENTOS.Alvara_Vigilancia_Sanitaria = -1

UNION ALL
Select DISTINCT DOCUMENTOS.ID_GERAL,
DOCUMENTOS.DT_FUNC_VIGENCIA  As DATA_DOCUMENTOS,
DateDiff("M",Now(),[DOCUMENTOS.DT_FUNC_VIGENCIA]) AS DIAS,
DOCUMENTOS.Alvara_funcionamento  AS TESTE,
IIf([Alvara_funcionamento]=-1,"ALVARA DE FUNCIONAMENTO") AS TXT_DOCUMENTOS
From DOCUMENTOS
WHERE DOCUMENTOS.DT_FUNC_VIGENCIA IS NOT NULL AND DOCUMENTOS.Alvara_funcionamento =-1

UNION ALL
Select DISTINCT DOCUMENTOS.ID_GERAL,
DOCUMENTOS.DT_REG_TECMED_VEGENCIA  As DATA_DOCUMENTOS,
DateDiff("M",Now(),[DOCUMENTOS.DT_REG_TECMED_VEGENCIA]) AS DIAS,
DOCUMENTOS.Certificado_Registro_Tecnico_Medico AS TESTE,
IIf([Certificado_Registro_Tecnico_Medico]=-1,"Certificado_Registro_Tecnico_Medico") AS TXT_DOCUMENTOS
From DOCUMENTOS
WHERE DOCUMENTOS.DT_REG_TECMED_VEGENCIA IS NOT NULL AND DOCUMENTOS.Certificado_Registro_Tecnico_Medico -1

UNION ALL
Select DISTINCT DOCUMENTOS.ID_GERAL,
DOCUMENTOS.DT_REG_TECENF_VIGENCIA  As DATA_DOCUMENTOS,
DateDiff("M",Now(),[DOCUMENTOS.DT_REG_TECENF_VIGENCIA]) AS DIAS,
DOCUMENTOS.Certificado_Registro_Tecnico_Enfermeira AS TESTE,
IIf([Certificado_Registro_Tecnico_Enfermeira]=-1,"Certificado_Registro_Tecnico_Enfermeira") AS TXT_DOCUMENTOS
From DOCUMENTOS
WHERE DOCUMENTOS.DT_REG_TECENF_VIGENCIA IS NOT NULL AND DOCUMENTOS.Certificado_Registro_Tecnico_Enfermeira = -1

UNION ALL
Select DISTINCT DOCUMENTOS.ID_GERAL,
DOCUMENTOS.DT_CONTR_SOC_VIGENCIA  As DATA_DOCUMENTOS,
DateDiff("M",Now(),[DOCUMENTOS.DT_CONTR_SOC_VIGENCIA]) AS DIAS,
DOCUMENTOS.Contrato_Social AS TESTE,
IIf([Contrato_Social]=-1,"Certificado_Registro_Tecnico_Enfermeira") AS TXT_DOCUMENTOS
From DOCUMENTOS
WHERE DOCUMENTOS.DT_CONTR_SOC_VIGENCIA IS NOT NULL AND DOCUMENTOS.Contrato_Social = -1

ABRAÇOS

Obrigado pelo retorno. O fórum agradece. Sucesso.