ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Como pegar o nome da tabela

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
andreylh
Novato
Novato


Registrado: Segunda-Feira, 4 de Mai de 2009
Mensagens: 18

MensagemEnviada: Seg Mar 08, 2010 4:25 pm    Assunto: Como pegar o nome da tabela Responder com Citação

Boa tarde pessoal,

Estou tentando pegar o nome da tabela que foi feito um delete, por exemplo, para a finalidade de log, como tenho muitas tabelas no meu sistema criei uma procedure no meu Data Module passando como parametro (DataSet: TDataSet), para ligar o procedimento com o evento BeforeDelete do SimpleDataSet (que eu uso), e no código da procedure preciso passa o nome da tabela onde foi feito o delete, achei na internet essa função própria do delphi...

Código:

function GetTableNameFromSQL(const SQL: string): string;


só que não estou conseguindo passar o CommandText ou SQL para dentro da function pois a propriedade DataSet.CommandText, não existe. Como posso pegar o SQL do DataSet? Ou estou aceitando outras sugestões de como pegar o nome da tabela.

Obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
gilsonnrodrigues
Moderador
Moderador


Registrado: Quinta-Feira, 14 de Abril de 2005
Mensagens: 9009
Localização: Governador Valadares-MG

MensagemEnviada: Seg Mar 08, 2010 4:40 pm    Assunto: Responder com Citação

em vez de o (DataSet: TDataSet),


passe o (DataSet: TSimpleDataSet),

ou passe o proptio SQL

(ComandText: String),
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
andreylh
Novato
Novato


Registrado: Segunda-Feira, 4 de Mai de 2009
Mensagens: 18

MensagemEnviada: Seg Mar 08, 2010 4:45 pm    Assunto: Responder com Citação

gilsonnrodrigues escreveu:
em vez de o (DataSet: TDataSet),


passe o (DataSet: TSimpleDataSet),

ou passe o proptio SQL

(ComandText: String),


só que nesse caso não consigo linkar com o evento BeforeDelete do SimpleDataSet.

Mas felizmente depois de muita dor de cabeça, consegui.
Fica a dica para quem por ventura vir a precisar...

Código:

SQLLogsNOMETABELA.AsString := GetTableNameFromSQL((DataSet As TSimpleDataSet).DataSet.CommandText);


Obrigado!
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB