Como deletar 3 tabelas de uma so vez?

Question

Ola amigos,Alguem pode me dar uma ideia como fa�o para deletar esses arquivos?Eh o seguinte: Criei 3 tabelas (paradox) 1� fa�o lancamento de sequencia, a 2� para acumular valores e a 3� para acumular ...

Aroldo Zanela · Answer

Colega,Por favor, coloque um fragmento maior do c�digo, bem como, reavalie este trecho:[code:1:2fd283395a]no table3 fiz assim: if not table3.LOCATE(�CF�,edit3.TEXT,&#91;&93;) then begin table4.append; [/code:1:2fd283395a]Pois voc� localiza na Table3 e adiciona na Table4....

Marco Salles · Answer

[quote:e77fd04a29]Bom ate ai tudo blz, certinho, o problema eh se eu precisar excluir? como fazer? se eu selecionar na dbgrid do table1 que eh a sequencia vai deletar o table2 e o table3 errado do que fiz e o pior a soma das duas tables vai ficar errada. sera que tem algum jeito de fazer essa exclusao?[/quote:e77fd04a29] Bem , pelo que eu pude entender , voce que ao selecionar um Cnpj na tabela Table1 , voce que excluir este mesmo Cnpj na table2 e consequentemente excluir o Cpf Na tabela 3...� Isto :?:  :?:  :?: se for isto , Acho que a melhor maneira de fazer isto � trabalha com mestre detalhe.....Onde os campos cnpj e cpf fa tabela1 ser�o os mestres e os respctivos campos da cnpj e cpf das tabelas 2 e 3 correspondentes ser�o os detalhes (digamos assim)...A Vantagem disso � que toda vez que no seu grid voce selecionar um cnpj e um cpf da sua tabela1 , �automaticamente� os registros da tabela2 ser� aponta para aquele cnpj e os registros da tabela 3 sera apontado para aquele cpf... � isto que eu entendi � isto que eu sugiro...

Adriano_servitec · Answer

Ola amigo Aroldo desculpe nao ter colocado o codigo inteiro foi mal.

Ola Marco eh o seguinte o campo cpf eh CF (classificacao fiscal), como vc disse esta correto.

Quero excluir o cnpj na table2 e na table3
Criei 3 tabelas no database desktop

coloquei na table2 e table3 que acumula os valors o cnpj como index e nao usei o asterisco para cirar chave primaria pq nao quero que apare�ao o KEY VIOLATION, pq preciso que acumule os valores para somar, fiz o index para usar o mastersource e o masterfields para apontar no datasource1 que eh do table1

na table2 funcionou direitinho, mais na table3 aparece o seguinte erro CANNOT ACCESS INDEX FIELD CNPJ

Acho que agora expliquei melhor
Desde ja agrade�o pela ajuda
Obridado.

Marco Salles · Answer

Desulpe , mas n�o to entendendo o que voce quer com

preciso que acumule os valores para somar

Aculular cnpj e CF para somar :?: :?: :?: Nun entendi :cry: :cry:

Adriano_servitec · Answer

Ola Marco, vamo la entaoCriei um index no database desktop das table2 e tabel3, tambem criei uma chave primaria no cnpj * depois fazer um index do CNPJ no secoundary Index, para ligar no datasource1 da table1 dentro do form.Fiz dessa forma salvei os index assim idxcnpj do table2 e idxcnpj2 do table3, liguei as dias tables na table1, mais nao obtive resultado.Vou ser um pouco mais claro como fica os dbgrid no formexemplo do lancamentocnpj 77089000234cf 1valor $ 500,00ipi $ 50,00no dbgrid1 ele aparece assim no dbgrid2 tambem e no dbgrid3 tambem ai fa�o um novo lan�amentocnpj 77089000234cf 2valor $ 150,00ipi $ 15,00no dbgrid 1 vai criar uma nova linha com os dados do lancamento, do dbgrid2 ele vai acumular pq o cnpj eh o mesmo entao no dbgrid2 fica assim:cnpj 77089000234nao tem CF pq na tabela 2 nao precisavalor $650,00 pq tinha $500,00 + $150,00 que incluiipi $ 65,00 tambem o mesmo de cima.e na dbgrid3 vai incluir uma nova linha pq o CF aonde o locate faz a consulta nao eh o mesmo que o primeiro lan�amento, se nao faz igual ao dbgrid2, e no dbgrid2 se o cnpj nao for igual ele inclui uma nova linha para o lan�amento, o trabalho do locate nassas dias tabelas eh verificar se ja esta cadastrado para acumular os valores se nao estiver incluir uma nova linha. Isso tudo esta dentro de um form. para verificar os lan�amentos.Agora se eu tiver que alterar/excluir algum lan�amento nao sei como fa�o no table2 e no table3, pq ja esta acumulado a soma dos valores.Nao sei se vc entendeu minha...

Adriano_servitec · Answer

Ola amigos, to quebrando a cabe�a com essas 3 tables e nao chego a nenhuma conclusao como fazer para alterar ou excluir os lan�amentos.

Coloquei nos 3 tables um autoincremento para ver se seria possivel excluir por codigo, nao funcionou pq fiz 4 lan�amentos na table1 ficou assim
sequencia cnpj..................CF...valor
000000001 00658414000147 01....500,00
000000002 00658411000147 02....500,00
000000003 00562518000120 02....100,00
000000004 30658478000188 02....200,00

na table2 ficou assim: Obs nessa table nao precisa do CF
sequencia cnpj.....................valor
000000001 00658414000147....1000,00 //somou os valores pq a cnpj eh a mesma
000000002 00562518000120.....100,00
000000003 30658478000188.....200,00

na table3 ficou assim: Obs nessa table nao precisao do CNPJ
a table2 ficou assim:
sequencia CF...valor
000000001 01....500,00
000000002 02....800,00 //somou os valores pq a CF 02 tem tes itens incluidos

Se eu tentar excluir por sequencia observe que nao bate as sequencias, se colocar o CNPJ na table3 e tentar excluir por CNPJ nao vai excluir certo pq na table3 o locate esta para procurar somente por CF ai ele apaga a ultimo cnpj cadastrado nessa table e inclui o que acabei de lan�ar, pro valores tambem nao da pois pode existir valores repitidos, bom enfim pelo que vi nao tem jeito de fazer altera�ao/exclusao nessas tables 2 e 3.

Entao queria saber se somente uma table ou query tem como fazer tudo isso para aparecer na dbgrid, ela pode ser a primeira table1 mais na dbgrid2 essa table1/query faz a soma conforme o CNPJ e na dbgrid3 a mesma table1/query faz as somas conforme a CF.

Acho que usando o SQL da para fazer (o problema eh que nao sei usar essa linguagem SQL), pois o que preciso eh somente aparecer os dados certos nas dbgrids, depois para fazer o relatorio fa�o o mesmo esquema como esta nas dbgrids.

Desde ja agrade�o a ajuda e colabora�ao!
Obrigado
Adriano...

Marco Salles · Answer

[quote:d9a5c1d83e]Entao queria saber se somente uma table ou query tem como fazer tudo isso para aparecer na dbgrid,[/quote:d9a5c1d83e]Eu acho que a pregunta poderia ser outraEnt�o queria saber se somente com uma tabela tem como aparecer tudo isso ai nos tres Grids [quote:d9a5c1d83e]pois o que preciso eh somente aparecer os dados certos nas dbgrids, depois para fazer o relatorio fa�o o mesmo esquema como esta nas dbgrids. [/quote:d9a5c1d83e]Ent�o .. Porque n�o uma so tabela  :?:  :?:  :?: [quote:d9a5c1d83e]Acho que usando o SQL da para fazer [/quote:d9a5c1d83e]Sim a id�ia � usar o agrupamento.. Agrupamento por cnpj e agrupamento por CF na sua pesquisaseria isto mesmo  :?:  :?:  :?:  Ou ainda n�o entendi...

Adriano_servitec · Answer

Ae Marco acho que eh isso mesmo agrupamento
me parece ser group By no SQL nao eh, o problema eh eu saber como fazer isso amigo, sera que eh assim?

select * from tbipi
group by cnpj //para grid2

e select * from tbipi
group by cf // para a grid3

dai como fica as somas? antes estava assim no botao gravar
procedure TForm2.BitBtn2Click(Sender: TObject);
VAR
proxNum: integer;
begin
if application.messagebox(�Deseja gravar este lan�amento?�,�Gravar�,36)=idyes
then
begin
table1.edit;
table1cf.value:=edit3.text;
table1codigo.value:=table3cfnum.value;
table1.Post;
bitbtn1.setfocus;
if not table2.LOCATE(�cnpj�,edit1.TEXT,[]) then //se nao achar o cnpj no grid2
begin
TABLE2.REFRESH;
table2.Last;
ProxNum:= table2.fieldbyName(�SEQUENCIA�).AsInteger +1;
table2.append;
table2.edit;
table2cnpj.value:=table1cnpj.value;
table2valor.value:=table1valor.value;
table2ipi.value:=table1ipi.value;
table2.post;
query1.refresh;
query2.refresh;
query3.refresh;
BITBTN1.SETFOCUS;
end else
begin
TABLE2.REFRESH;
table2.Last;
ProxNum:= table2.fieldbyName(�SEQUENCIA�).AsInteger +1;
table2.edit;
table2cnpj.value:=table1cnpj.value;
table2valor.value:=table2valor.value+table1valor.value; // aqui faz as somas
table2ipi.value:=table2ipi.value+table1ipi.value; //aqui faz as somas
table2.post;
query1.refresh;
query2.refresh;
query3.refresh;
BITBTN1.SETFOCUS;
end;
if not table4.LOCATE(�CF�,edit3.TEXT,[]) then //se nao achar o CF no grid3
begin
TABLE4.REFRESH;
table4.Last;
ProxNum:= table4.fieldbyName(�SEQUENCIA�).AsInteger +1;
table4.append;
table4.edit;
table4cF.value:=table3cF.value;
table4cnpj.value:=table1cnpj.value;
table4CODFISCAL.value:=table3CFNUM.value;
table4DESCRICAO.value:=table3DESCR.value;
TABLE4VALOR.VALUE:=TABLE1VALOR.VALUE;
TABLE4IPI.VALUE:=TABLE1IPI.VALUE;
table4.post;
BITBTN1.SETFOCUS;
end else
begin
TABLE4.REFRESH;
table4.Last;
ProxNum:= table4.fieldbyName(�SEQUENCIA�).AsInteger +1;
table4.edit;
table4cF.value:=table3cF.value;
table4cnpj.value:=table1cnpj.value;
table4CODFISCAL.value:=table3CFNUM.value;
table4DESCRICAO.value:=table3DESCR.value;
table4valor.value:=table4valor.value+table1valor.value; //aqui faz a soma
table4ipi.value:=table4ipi.value+table1ipi.value; // aqui faz a soma
table4.post;
BITBTN1.SETFOCUS;
end;
end ELSE;
TABLE1.CANCEL;
TABLE2.CANCEL;
TABLE4.CANCEL;
END;

Marco Salles · Answer

Mas porque que voce precisa de tres tabelas... se com o goup by voe consegue selecionar a pesquisa :?: :?: :?:

Ha alguma outra raz�o para voce insisitir em ter tres tabelas , aparentemente iguais :?: :?: :?:

Adriano_servitec · Answer

Nao amigo, nao eh que eu quero usar 3 tabelas pode ser umas so, mais o problema que nao sei usar esse group by

fiz assim mais da erro
select * from saida2.db
group by cnpj

assim: when group by exists every simple field in projectors must be in group by

Acho que errei deve ter algo mais para incluir,como disse nao sei usar query SQL, mais a questao do usar so uma table acho ate melhor.

Valeu pela aten�ao amigo

Marco Salles · Answer

[quote:e1566abeb2]pode ser umas so, mais o problema que nao sei usar esse group by [/quote:e1566abeb2][quote:e1566abeb2]sequencia cnpj..................CF...valor 000000001 00658414000147 01....500,00 000000002 00658411000147 02....500,00 000000003 00562518000120 02....100,00 000000004 30658478000188 02....200,00 na table2 ficou assim: Obs nessa table nao precisa do CF sequencia cnpj.....................valor 000000001 00658414000147....1000,00 //somou os valores pq a cnpj eh a mesma 000000002 00562518000120.....100,00 000000003 30658478000188.....200,00 na table3 ficou assim: Obs nessa table nao precisao do CNPJ a table2 ficou assim: sequencia CF...valor 000000001 01....500,00 000000002 02....800,00 //somou os valores pq a CF 02 tem tes itens incluidos [/quote:e1566abeb2]Tente fazer assimPara a Consulta 2 ... Um DbGrid uma query e um DataSorce[code:1:e1566abeb2]select NomeDoCampoCnpj , Sum(Valor) from tabVenGroup By NomeDoCampoCnpj[/code:1:e1566abeb2]Para a consulta 3... Outro DbGrid , Outra Query e Outro DatasourceJa que voce quer todos ao mesmo tempo[code:1:e1566abeb2]select NomeDoCampoCF, Sum(Valor) from tabVenGroup By NomeDoCampoCF[/code:1:e1566abeb2]Coloque essas instru�oes no Sql da Respectivas Query e faca um Active =True a nivel de projeto para ver se � isto mesmo que voce querBoa sorte ????...

Adriano_servitec · Answer

Amigo desculpe ti encomodar novamente, mais to quase chegando la

Falta so um negocinho fiz assim pois preciso no grid somar a coluna valor e a coluna ipi separado e esta somando junto

select cf, sum (valor) + (ipi) from tbclasaida
group by cf

e no grid esta aparecendo a soma dos 2, tem como fazer separado?

Obrigado pela ajuda amigo

Marco Salles · Answer

[quote:5a8c3c5b02]Falta so um negocinho fiz assim pois preciso no grid somar a coluna valor e a coluna ipi separado e esta somando junto select cf, sum (valor) + (ipi) from tbclasaida group by cf [/quote:5a8c3c5b02]Tente isso o[code:1:5a8c3c5b02]select cf, sum (valor+ipi) As NomeQualque, Sum(Valor) As NomeQualquer from tbclasaida group by cf[/code:1:5a8c3c5b02]P:S o nome qualquer � o nome que voce deseja que apare�a na barra de t�tulos do Grid...

Adriano_servitec · Answer

Obrigado amigo Marco Salles, tua ajuda foi de grande valor.

Agora sim esta perfeito, resumindo com uma tabela so da pra fazer os tres servi�os usando o group by (nao sabia que era tao poderoso essa linguagem SQL), vou me aprofundar mais nela, me parece que da pra fazer muitas coisas para melhorar o sistema.

Valeu
T+
Adriano...

Marco Salles · Answer

O interressante de tudo , foi que o t�pico original era a exclus�o de tres tabelas.. E se transformou numa simples mas poderosa pesquisa SqlFico feliz por ter conseguido...

F�rum Como deletar 3 tabelas de uma so vez? #285142