Fórum Apagar um Grupo e tudo ligado a ele!! #232234
14/05/2004
0
Allan Elias Ramos :?:
Aersoftware
Curtir tópico
+ 0Posts
15/05/2004
Aersoftware
Allan Elias Ramos :cry:
Gostei + 0
15/05/2004
Adilsond
Gostei + 0
15/05/2004
Gustavoguim
que tipo de BD vc utiliza....
qualquer coisa gustavoguim@yahoo.com.br..... :)
Gostei + 0
15/05/2004
Aersoftware
Nossa, acordamos de pé esquerdo hj.. mas tudo bem.. :wink:
Gustavo, estou usando um banco em Access e conexão via Ado.. mas ja estou migrando o bd pra Firebird 1.5 com conexao pelo dbexpress... grato pela ajuda.. :roll:
Allan Elias Ramos :roll:
Gostei + 0
16/05/2004
Adilsond
1 - Criar uma ´consulta exclusão´ no access com parametros que será a chave da tabela mestre e utilizar um componente StoredProcedure. No evento BeforeDelete de sua table/query montar os parametros e executar a storedprocedure.
ou
2 - No access crie uma ´consulta exclusão´, vá na opção sql e copie a query gerada. No delphi coloque um componente para Query e cole o sql na propriedade sql. Troque o nome dos parametros pelo mesmo nome dos campos de sua tabela maters com ´:´ na frente para dizer que são parametros. Associe a propriedade DataSource ao datasource ligado na table/query master. No evento BeforeDelete da table/query master voce executa a query. MinhaQuery.ExecSQL (os parametros serão passados automaticamente, com a associação da propriedade DataSource).
ou
3 - Crie uma table/query detail e no evento BeforeDelete voce a abre e faz a exclusão de linha a linha. Ex:
begin
MinhaQuery/MinhaTable.Open;
while not MinhaQuery/MinhaTable.EOF do
MinhaQuery/MinhaTable.Delete;
MinhaQuery/MinhaTable.Close;
end;
Gostei + 0
16/05/2004
Aersoftware
Allan Elias Ramos :roll:
Gostei + 0
17/05/2004
Rômulo Barros
With(Query)Do Begin Close; Sql.Add(´Delete from Revistas where CodSubGrupo = ´ +´(select CodSubGrupo from SubGrupo where CodGrupo = ´ + QryGrupo.FieldByName(´CodGrupo´).AsString + )´); ExecSql; Close; Sql.Add(´Delete from SubGrupo where CodGrupo = ´ + QueryGrupo.FieldByName(´CodGrupo´).AsString); ExecSql; End;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)