Fórum Problemas com select count utilizando dbexpress #268582
15/02/2005
0
Apesar de ter postado está dúvida ontem, eo colega vinicius2k mais uma vez ter me dado uma alternativa para o problema, fiquei ainda com a dúvida na minha cabeça e gostaria de retira-la de forma definitiva.
Na verdade o que eu queria era fazer um select count antes da exclusão de dados, para verificar se o registro a ser excluido tem algum relacionamento com outra tabela, contudo não estou conseguindo capturar o código da tabela através do parâmetro.
Estou fazendo assim:
Dm.Qry_Verificar.Close;
Dm.Qry_Verificar.CommandText:=
´SELECT COUNT(*) AS ´TOTAL´ FROM ACESSO WHERE CHAVE_GERENCIAMENTO=:REGISTRO_GERENCIAMENTO´;
Dm.Qry_Verificar.ParamByName(´Registro_Gerenciamento´).AsInteger:=Dm.Qry_Verificar.ParamByName(´Registro_Gerenciamento´).AsInteger;
Dm.Qry_Verificar.Active:=True;
If Dm.Qry_Verificar.FieldByName(´TOTAL´).AsInteger0 Then
Begin
Dm.Qry_Verificar.Active:=False;
Application.MessageBox(´Não é possível excluir esse Grupo !!´+#13+´Existe(m) subgrupo(s) relacionado(s) a este grupo.´,´Atenção´,Mb_Ok+Mb_IconStop);
Exit;
End;
Dm.Qry_Verificar.Active:=False;
Desde já Agradeço a Atenção de Todos.
Na verdade o que eu queria era fazer um select count antes da exclusão de dados, para verificar se o registro a ser excluido tem algum relacionamento com outra tabela, contudo não estou conseguindo capturar o código da tabela através do parâmetro.
Estou fazendo assim:
Dm.Qry_Verificar.Close;
Dm.Qry_Verificar.CommandText:=
´SELECT COUNT(*) AS ´TOTAL´ FROM ACESSO WHERE CHAVE_GERENCIAMENTO=:REGISTRO_GERENCIAMENTO´;
Dm.Qry_Verificar.ParamByName(´Registro_Gerenciamento´).AsInteger:=Dm.Qry_Verificar.ParamByName(´Registro_Gerenciamento´).AsInteger;
Dm.Qry_Verificar.Active:=True;
If Dm.Qry_Verificar.FieldByName(´TOTAL´).AsInteger0 Then
Begin
Dm.Qry_Verificar.Active:=False;
Application.MessageBox(´Não é possível excluir esse Grupo !!´+#13+´Existe(m) subgrupo(s) relacionado(s) a este grupo.´,´Atenção´,Mb_Ok+Mb_IconStop);
Exit;
End;
Dm.Qry_Verificar.Active:=False;
Desde já Agradeço a Atenção de Todos.
Lnunes
Curtir tópico
+ 0
Responder
Posts
15/02/2005
Gandalf.nho
[b:f620251f4b][color=red:f620251f4b]Notificação de Infração às Regras de Conduta :[/color:f620251f4b][/b:f620251f4b]
Duplicidade
[url]http://forum.clubedelphi.net/viewtopic.php?p=185127[/url]
Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].
Duplicidade
[url]http://forum.clubedelphi.net/viewtopic.php?p=185127[/url]
Para maiores esclarecimentos pode mandar-me uma [url=http://delphiforum.icft.com.br/forum/privmsg.php?mode=post&u=8378]Mensagem Particular[/url].
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)