xandyhg

boa noite! precisava de uma ajuda com remoçao de constraint no firebird pelo iexpert. tenho uma tabela com fk e pk, e preciso de uma forma de excluir através de um script, para posteriormente criar novamente. no firebird 2.5, o script abaixo eu conseguia excluir a fk e em seguida a pk: delete from rdb$relation_constraints where rdb$constraint_name = ( select first 1 tc.rdb$constraint_name x from rdb$relation_constraints tc join rdb$index_segments idx on (idx.rdb$index_name = tc.rdb$index_name) where tc.rdb$constraint_type = 'foreign key' and tc.rdb$relation_name = 'movcontacorrente' and idx.rdb$field_name = 'clifor_id' ); delete from rdb$relation_constraints where rdb$constraint_name = ( select first 1 tc.rdb$constraint_name x from rdb$relation_constraints tc join rdb$index_segments idx on (idx.rdb$index_name = tc.rdb$index_name) where tc.rdb$constraint_type = 'primary key' and tc.rdb$relation_name = 'movcontacorrente' ); porém no firebird 3.0 o comando delete do script acima não funciona. achei em vários sites o pessoal falando para utilizar dessa forma: alter table nome_da_tabela drop constraint nome_da_constraint; o problema é que o nome da constraint eu não sei, e para encontrá-la, utilizo o select: select first 1 tc.rdb$constraint_name x from rdb$relation_constraints tc join rdb$index_segments idx on (idx.rdb$index_name = tc.rdb$index_name) where tc.rdb$constraint_type = 'foreign key' and tc.rdb$relation_name = 'movcontacorrente' and idx.rdb$field_name = 'clifor_id'; queria saber como faço para utilizar o resultado desse select para colocar no comando abaixo: alter table nome_da_tabela drop constraint nome_da_constraint;

Boa Tarde galera!!! Estou com uma dúvida enorme e não encontro como fazer essa Unit em lugar nenhum... Gostaria de tratar o estado dos botões Salvar, Alterar, Excluir, Fechar, Novo, através do evento OnStateChange dos DataSource... Para não ter que digitar o mesmo código em todos os DataSource, fiz o código abaixo em uma Unit separada... porém o código não funciona... unit U_Procedures;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Mask, DB, ComCtrls;procedure EstadoBotoes(Sender: TObject);implementationuses U_DM_Padrao, U_Cad_Padrao;procedure EstadoBotoes(Sender: TObject);begin F_Cad_Padrao.icoNovo.Enabled := (Sender as TDataSource).State in [dsBrowse]; F_Cad_Padrao.icoSalvar.Enabled := (Sender as TDataSource).State in [dsEdit, dsInsert]; F_Cad_Padrao.icoCancelar.Enabled := F_Cad_Padrao.icoSalvar.Enabled; F_Cad_Padrao.icoAlterar.Enabled := (F_Cad_Padrao.icoNovo.Enabled) and not ((Sender as TDataSource).DataSet.IsEmpty); F_Cad_Padrao.icoExcluir.Enabled := F_Cad_Padrao.icoAlterar.Enabled; F_Cad_Padrao.icoFechar.Enabled := F_Cad_Padrao.icoNovo.Enabled;end;end. Após isso, vou no primeiro DataSource que é o DsBairro, e chamo a procedure EstadoBotoes da forma abaixo: procedure TF_DM_Padrao.DsBairroStateChange(Sender: TObject);begin U_Procedures.EstadoBotoes;end; E não funciona....

Valeu pela ajuda Root!! Abraço!

então... você disse q meu pc nao consome tanta energia... mas tipo... no site da XFX, fala q minha placa 5870 precisa de 500watts no minimo pra ela... Por isso fiquei com medo de nao aguentar... Mas por via das dúvidas, acho q nao vou arriscar jogar jogos com a de 550..

então Root... o modelo da minha Seventeam é: ST-550P-AG Ah... outra coisa... percebi só depois... o cabo de energia da Corsair de 850w é mais grosso q o das outras fontes... e eu nao tinha reparado nisso e liguei a Corsair com o cabo q tava na minha fonte antiga... será q esse foi o motivo dela ter queimado ou nao tem nada a ver?!?!?

Seguinte pessoal... O config do meu pc novo é: -MB AMD64 SAM3 ASUS M4A79T DELUXE S/R -CPU AMD AM3 PHENOM II X4 955 3.2 8MB -MEM DDR3 2048MB 1333MHZ PC10600 CORSAIR -MEM DDR3 2048MB 1333MHZ PC10600 CORSAIR -VGA 1GB PCI ATI RADEON HD5870 XFX -GAB. ATX P3/4 SATEL. L590 GAMER 4B FAN 22CM -HD SATA II 1TB SEAGATE 7200.12 -HD SATA II 500GB SEAGATE 7200 -GRAV.DVD+RW LG SATA GH22NS50 22X NEGRO OEM -TEC. U+P SATEL. OFFICE NEGRO AK-XP3B -FONTE * P4 * CORSAIR 850W CMPSU- 850TX Eis a minha dúvida... Montei esse pc aí... 15 minutos ligado, a fonte queimou... Daí peguei a fonte Seventeam 550 Watts do meu pc antigo e funcionou normal... Mas liguei somente o HD de 500GB, placa de video e o cooler de 22cm do gabinete... Aparentemente a fonte de 850 da Corsair tava com defeito... Minha dúvida é: 1-Posso trabalhar com a fonte de 550 Seventeam, caso eu ligue os dois HDs, Gravador e NAO JOGUE NENHUM JOGO?!?!?! Porq quero usar meu pc até a fonte de 850 chegar... 2-A fonte de 850 da Corsair aguenta normal meu config? Obrigado por enquanto! Aguardo suas respostas!

Boa dia pessoal... A configuração do meu pc é: -AMD64X2 4200 -placa-mãe M2N-SLI Deluxe -Placa de Vídeo GeForce 8800GTS 640MB -4GB DDR2 667Mhz (4 pentes de 1GB) -HD 250GB SATA II Seagate -Gabinete X-Blade (com os 3 fans e o display digital) -Gravador de DVD LG -Fonte Seventeam 550 Watts Reais Eu vou comprar um HD 500GB SATA II Seagate e gostaria de saber se com toda essa configuração, se minha fonte vai aguentar mais esse HD de 500GB... Ajudem aí povo... valeu!!!