pimpocvl007

...ok, fiz os testes e funcionou conforme descrito pelo Micheus. Obrigado. Att. Olimpio

...hum, vou testar atualizo aqui na sequencia Att. Olimpio

você comentou que: '...Feito isto, abro o arquivo com a sequência de script e aplico um bloco de cada vez'. Onde você faz este procedimento no IBE? seria em: TOOLS / SQL Editors? o IBE gera e lhe apresenta o script "gerador" da alteração. onde? na aba DLL? Att. Olimpio

...obrigado por compartilhar sua experiencia, Micheus. De inicio estava querendo fazer tudo via programa, estava sofrendo, certamente por não ter experiencia suficiente. Enfim, decidi mudar o foco das perguntas e verificar como "que os mais experientes" fazem para contornar esta situação. Vou testar a sua metodologia!!! Caso mais alguém queira compartilhar agradeço. Att. Olimpio

...supomos que tenho um banco rodando no cliente. Faço backup e recupero dados numa boa utilizando o ibexpert. Mas, eu vou dando manutenção aqui, criando novas telas, novas tabelas, novos campos, qual e a melhor forma de atualizar isso no cliente mantendo os dados que ele possui? Att. Olimpio

Boa noite, Até pouco tempo atrás o IBSQL1, com o comando: IBSQL1.SQL.Clear; IBSQL1.SQL.Add('delete from TABELA1'); IBSQL1.ExecQuery; IBSQL1.Transaction.Commit; IBSQL1.Transaction.Active := True; ...dava conta do recado, agora preciso ajeitar o código para desativar as Contraints (Foreign Keys) para apagar todos os registros de todas as tabelas, tendo em vista que são varios FK's, existe algum comando que desativa (desabilita) tudo de uma unica vez? Att. Olimpio

SELECT COD_TABELA FROM TABELA_PRECO WHERE COD_TABELA = (resultado do outro) ...exemplo: SELECT COD_TABELA FROM TABELA_PRECO WHERE COD_TABELA IN (SELECT CD_TABELA FROM TABELA_DOIS WHERE CD_TABELA = 1); ...o detalhe esta no "IN" seguido do select entre "parenteses" retornando resultado de um uniico campo (cd_tabela), ou seja, se você retornar mais de um campo (select campo1, campo2 from...) vai dar erro. Att. Olimpio

Jhonas, E possível personalizar (mtInformation) o cabeçalho da mensagem? ...na realidade resolvi meu problema mudando a sintaxe da mensagem que utilizava anteriormente, ficou assim: DE: messagebox(handle,Pchar('O registro foi salvo com sucesso'), 'Salvar',MB_ICONEXCLAMATION + mb_ok); PARA: Application.messagebox(Pchar('O registro foi salvo com sucesso'), 'Salvar',MB_ICONEXCLAMATION + mb_ok); ...acrescentei "Application" e tirei "handle". Att. Olimpio

Boa noite, Quando pressiono o botão F3 o sistema salva os dados da tabela e imprime esta mensagem na tela: messagebox(handle,Pchar('O registro foi salvo com sucesso'), 'Salvar',MB_ICONEXCLAMATION + mb_ok); ...o problema e que quando dou "ok" na mensagem com barra de espaço o sistema perde o "foco", e não consigo utilizar as demais teclas de atalho, como resolver isso? Att. Olimpio

...ok, obrigado pelo esclarecimento.

...resumindo, eu não consigo trabalhar com as propriedades da configuração MIDIChild dando um SHOWMODAL, (exemplo, trabalhando com "child" não consigo arrastar o formulário para fora do formulário pai porém não consigo impedir o usuário de mexer em outros formulário (filhos) que estão abertos simultaneamente, isso?

...bingo! Deu certo com sua dica. Mais uma vez, muito obrigado. Att. Olimpio

...sabe, ainda não consegui resolver este problema. Fiquei impressionado quando descobri este componente IBSQL1 que exportou todos os dados sem eu precisar ficar fazendo muitas configurações, ai no exemplo também constava a importação, essa sim, deu dor de cabeça, eu imaginava que seria algo como fez com a exportação ou seja, era só entrar com um sql simples executar ali e pronto, ele (IBSQL1) importaria da mesma forma magica os dados para a tabela. Pelo que estou percebendo eu tenho que desenvolver um processo que lê linha por linha do arquivo e importa na tabela, isso? [este código não da erro mas também não importa nada] procedure TfrmPESPR001.btImportarClick(Sender: TObject); var Input: TIBInputRawFile; begin IBSQL1.SQL.Text := 'insert into TESTE values (:CD_PESSOA, :NM_PESSOA)'; Input := TIBInputRawFile.Create; try Input.Filename := ExtractFilePath(Application.ExeName)+'\backups\CadastroPerfilPessoa.exp'; IBSQL1.BatchInput(Input); finally Input.Free; end; ShowMessage('Importação realizada com sucesso'); end; Att. Olimpio

...não entendi o que os caras disseram naquele link que você indicou, não consegui testar. Adianto que o interessante seria bloquear a edição e sobreposição, não ocultar a tela, tendo em vista que pode ser útil deixar ela aparecendo para consulta, tipo o usuário arrasta a tela ativa para o lado e consegue visualizar os dados da tela de traz para tirar dúvida. Att. Olimpio

Jhonas, Dei uma olhada nos links mas não vi nada relacionado a minha dúvida, sinceramente não tenho ideia do que fazer. Att. Olimpio

Ola, Estou desenvolvendo o sistema com FormStyle neste sentido: MIDFORM (formulário principal - PAI) MIDCHILD (para os demais formulários do sistema - FILHOS). ...esta tudo funcionando. Quero saber como posso bloquear o usuário a não mexer no FORM que fica atrás? Obs.: adotei esta hierarquia para poder manter os formulários filhos dentro do formulário pai, mas quando um filho chama outro filho o usuário consegue manipular o primeiro formulário filho, quero bloquear isso. Ao usar o ".showmodal" da erro. Project cloudvel_sbss.exe raised exception class EIvalidOperation with message 'Cannot make a visible window modal'. Att. Olimpio

...mais que sacanagem. Obrigado Att. Olimpio

Veja esta imagens, e necessário ter uma conta do gmail. https://docs.google.com/open?id=0B8krEpUBy7...DhkNzA2YTI4NTUy (esta imagem mostra o código inserido diretamente na query, se ativar ela assim não da erro). https://docs.google.com/open?id=0B8krEpUBy7...mVjY2FiNmMwOGRl (esta imagem mostra o showmessage da variável "sql2" a qual e agregada a query em tempo de execução). https://docs.google.com/open?id=0B8krEpUBy7...zNiMjNmZTU4NTQ3 (imagem do erro ao abrir a query "open"). Att. Olimpio

sql2 := 'select distinct BAS1.NM_PESSOA, TEL1.NR_DDD, TEL1.NR_TELEFONE, END1.NM_CIDADE, END1.NM_UF, TEL1.TP_TELEFONE, BAS1.CD_PESSOA '; sql2 := sql2+'from PES_PERFILTELEFONE TEL1, PES_PERFILENDERECO END1, PES_PERFILBASICO BAS1 left join PES_PERFILCLAS CLAS1 on (BAS1.CD_PESSOA = CLAS1.CD_PESSOA) left join pes_itemclas ITEM2 on (clas1.cd_itemclas = item2.cd_itemclas) '; sql2 := sql2+'where BAS1.CD_PESSOA = TEL1.CD_PESSOA and BAS1.CD_PESSOA = END1.CD_PESSOA'; showmessage(sql2); queryConsultaTelefone.Close; queryConsultaTelefone.SQL.Clear; queryConsultaTelefone.SQL.Add(sql); queryConsultaTelefone.Open; ...eu basicamente peguei o primeiro código postado acima, reparti em 3 para não exceder os "255 carácter". ao abrir (open) da o erro que comentei acima. Att. Olimpio

select distinct BAS1.NM_PESSOA, TEL1.NR_DDD, TEL1.NR_TELEFONE, END1.NM_CIDADE, END1.NM_UF, TEL1.TP_TELEFONE, BAS1.CD_PESSOA, item2.ds_itemclas from PES_PERFILTELEFONE TEL1, PES_PERFILENDERECO END1, PES_PERFILBASICO BAS1 left join PES_PERFILCLAS CLAS1 on (BAS1.CD_PESSOA = CLAS1.CD_PESSOA) left join pes_itemclas ITEM2 on (clas1.cd_itemclas = item2.cd_itemclas) where BAS1.CD_PESSOA = TEL1.CD_PESSOA and BAS1.CD_PESSOA = END1.CD_PESSOA

Boa noite, Elaborei um código sql no IBEXPERT sem passar parâmetros, funcionou por la. Ao adaptalo para o TIBQUERY sem passar parâmetros ocorre o seguinte erro: Project abcd.exe raised exception class EIBClienteError with message 'Empty SQL Statement'. Detalhe, ao inserir o código diretamente no TIBQUERY e ativar o componente no delphi sem executar o aplicativo, o resultado e apresentado no grid. Agora, removo o código do componente e insiro ele numa STRING, adiciono ele em tempo de execução na QUERY, ai ocorre o erro. Porque?

kupac, Qual o problema? ...e qual e o objetivo das duas tabelas? Att. Olimpio

Bom dia, Então, li os dois links, que por sinal foram muito interessantes. Respondendo a minha pergunta baseando-se nesses links. Não, não e possível dar ROLLBACK somente em uma tabela, ele e executado em todo o banco. Por outro lado para resolver meu problema usei este conjunto: IBDataSet1.Transaction.RollbackRetaining; IBDataSet1.Close; IBDataSet1.Open; ...que para meu caso funcionou, ainda não tenho experiencia para dizer sobre performance, mas até agora foi uma boa solução. Obrigado novamente Jhonas. Att. Olimpio

Boa noite, gostaria de saber se e possivel dar um "Rollback" somente em uma tabela? Ocorre que, ao acessar uma tabela, faço uma consulta que lista os dados, clico um botão que chama outra tabela, nesta, eu faço alterações que podem ser salvas ou não, no caso de não salvar, utilizo o "Rollback" por ser a unica opção eficaz neste projeto, o problema que ao executar este processo os dados da primeira tabela são limpados da tela. Por isso preciso saber se existe um jeito de dar um Rollback somente nos dados da segunda tabela. Att. Olimpio

beleza, após alguns ajustes consegue resolver, obrigado. Att. Olimpio