![ActiveDelphi - Índice do Fórum](templates/subSilver/images/logo_phpBB.gif) |
ActiveDelphi .: O site do programador Delphi! :.
|
Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
andreylh Novato
![Novato Novato](../modules/PNphpBB2/templates/PNTheme/images/narodniki-classic/star1.gif)
Registrado: Segunda-Feira, 4 de Mai de 2009 Mensagens: 18
|
Enviada: Seg Mar 08, 2010 4:25 pm Assunto: Como pegar o nome da tabela |
|
|
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 |
|
![](templates/subSilver/images/spacer.gif) |
gilsonnrodrigues Moderador
![Moderador Moderador](../modules/PNphpBB2/templates/PNTheme/images/narodniki-classic/moderador.gif)
Registrado: Quinta-Feira, 14 de Abril de 2005 Mensagens: 9009 Localização: Governador Valadares-MG
|
Enviada: Seg Mar 08, 2010 4:40 pm Assunto: |
|
|
em vez de o (DataSet: TDataSet),
passe o (DataSet: TSimpleDataSet),
ou passe o proptio SQL
(ComandText: String), |
|
Voltar ao Topo |
|
![](templates/subSilver/images/spacer.gif) |
andreylh Novato
![Novato Novato](../modules/PNphpBB2/templates/PNTheme/images/narodniki-classic/star1.gif)
Registrado: Segunda-Feira, 4 de Mai de 2009 Mensagens: 18
|
Enviada: Seg Mar 08, 2010 4:45 pm Assunto: |
|
|
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 |
|
![](templates/subSilver/images/spacer.gif) |
|
|
Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido Editar Mensagens: Proibido. Excluir Mensagens: Proibido. Votar em Enquetes: Proibido.
|
|