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