Mostar Mensagem em tela
Caros Amigos.
tenho este select
SELECT
COD_AIT
FROM
TAtualizaDE AD
WHERE (AD.Cod_AIT IN (SELECT Cod_AIT FROM TAIT WHERE (Num_L = 613)))
AND (AD.Cod_Recebimento IS NULL OR AD.Cod_Recebimento <>14)
AND (AD.DtEntrada_Operacao =
(SELECT MAX(DtEntrada_Operacao) FROM TAtualizaD ATD WHERE (AD.Cod_AIT = ATD.Cod_AIT)))
AND AD.cod_ait NOT IN (SELECT cod_ait FROM TCancelamento)
AND AD.cod_ait NOT IN (SELECT cod_ait FROM TCancNo)
Como faço para todos os resultados deste um select aparecerem num
application message? tipo uma lista de todos os campos retornados!
e
ste e o que eu tenho
if (FieldByName(´COD_AIT´).AsString > IntToStr(0)) then
Application.MessageBox(PChar(´Não é possível gerar ´ + ´Porque existe(m) pendência(s) de ´ +
FieldByName(´COD_AIT´).AsString + ´ local.´),
´Erro´, MB_OK + MB_ICONERROR)
Desde ja grato pela gentileza de todos...
Atenciosamente.
tenho este select
SELECT
COD_AIT
FROM
TAtualizaDE AD
WHERE (AD.Cod_AIT IN (SELECT Cod_AIT FROM TAIT WHERE (Num_L = 613)))
AND (AD.Cod_Recebimento IS NULL OR AD.Cod_Recebimento <>14)
AND (AD.DtEntrada_Operacao =
(SELECT MAX(DtEntrada_Operacao) FROM TAtualizaD ATD WHERE (AD.Cod_AIT = ATD.Cod_AIT)))
AND AD.cod_ait NOT IN (SELECT cod_ait FROM TCancelamento)
AND AD.cod_ait NOT IN (SELECT cod_ait FROM TCancNo)
Como faço para todos os resultados deste um select aparecerem num
application message? tipo uma lista de todos os campos retornados!
e
ste e o que eu tenho
if (FieldByName(´COD_AIT´).AsString > IntToStr(0)) then
Application.MessageBox(PChar(´Não é possível gerar ´ + ´Porque existe(m) pendência(s) de ´ +
FieldByName(´COD_AIT´).AsString + ´ local.´),
´Erro´, MB_OK + MB_ICONERROR)
Desde ja grato pela gentileza de todos...
Atenciosamente.
Alexespina
Curtidas 0
Respostas
Delphi32
16/09/2005
não entendi direito... o código que você tem não funciona?
Só um detalhe: quando eu faço isso eu não comparo o texto
usando AsString, mas AsInteger já que é o tipo original do
campo, mas isso não deveria influenciar...
Até!
Só um detalhe: quando eu faço isso eu não comparo o texto
usando AsString, mas AsInteger já que é o tipo original do
campo, mas isso não deveria influenciar...
Até!
GOSTEI 0
Alexespina
16/09/2005
o meu select funciona apeanas quero exibir todos os resultados dele numa messagem na tela como faço?
GOSTEI 0
Rjun
16/09/2005
Retorna o resultado numa query e depois com um loop leia toda a query montando a string que voce quer mostrar.
GOSTEI 0