Marcos Augusto

Olá pessoal sou novo aqui, pois nunca me aprofundei diretamente no firebird. Estou com o seguinte problema que não encontrei na net como resolver: tenho uma tabela com os seguintes campos. Código: inteiro Nome: varchar(100) Idade: date Tabela simples de exemplo para explicar meu problema. O problema esta em que a idade não é obrigatória e às vezes se eu for editar a tabela e apagar a idade ela não apaga deixando a mesma idade. Eu estou usando o Delphi 2010 e o componente IBX para conectar ao banco, eu preciso saber uma forma de criar um Procedimento ou um Triggers dentro do banco, para que quando acontecer esse erro, pelo próprio delphi eu mudaria a data e colocaria (1/1/1000). A Trigger ou Procedure seria usada para examinar no ato da alteração que a data esta (1/1/1000) e automaticamente colocar data como NULL. Isso resolveria meu problema. Se tver como fazer isso. Obrigado a todos.

Jhonas obrigado pela força, vou dar uma olhada nesses tutoriais que você me passou, pode ser que eu seteja colocando o carro na frente dos burros por esta começando, então vou tentar começar do inicio. Qualquer coisa eu pesso ajuda de volta, pode ser?? Grato Marcos Augusto Resulvido

E ai Ronaldo Lanhellas. Voce já tentou o compenente JVCL, é de graça e muito bom, da uma olhada e v c é o que você procura. http://jvcl.delphi-jedi.org/

Obrigado por responder Jhonas, mas ainda estou no escuro, porque estou começando agora a tentar criar componentes e ta muito complicado, precisava de um exemplo bem simples por exemplo, quando eu coloca-se o objeno no forme ele peenche-se um combo tipo o que voce me mostrou mas não d cor e sim uma lista de strings, já tentei criar um de TStrins, TStringLis, TList mas nenhum me mostrou um obj no Object Inspetor parecido com um combobox onde eu so posso selecionar e não adicionar EX: Eu poderia usar esta propriedade para pegar o IP da minha maquina e fazer uma listagem de IP para quando eu for usar somente posso selecionar aqueles IP. Se voce n ao entender eu posso tentar ser mais claro. Grato Marcos Augusto

E ai pessoal do forum Estou começando a criar componentes no delphi e estou com as seguinte duvidas 1º como faço para criar uma lista no Object Inspetor contendo uma lista de strings tipo um combobox mas que carrega-se os item assim que eu coloca-se no form tenho um exemplo mas ele já esta definido com as strings eu não queria que fosse deste jeito. Ex: unit FTesteComponentes; interface uses SysUtils, Classes; type TMyLista = (Item1,Item2,Item3,Item4); TTesteComponentes = class(TComponent) private FMyLista : TMyLista; public published property MyLista : TMyLista read FMyLista write FMyLista; end; procedure Register; implementation uses inifiles{$Ifdef win32},registry{$endif}; procedure Register; begin RegisterComponents('myComponentes', [TTesteComponentes]); end; end. 2º como faço para criar um botão no Object Inspetor com aqueles 3 pontinhos tipo a da fonte do form Quem puder me ajudar pode ser um exemplo bem simples tipo um messagebox quando clica Grato Marcos Augusto

Obrigado Jhonas por ter me ajudado Resolvido

ola pessoal estou aqui pra saber c um erro q acontece comigo aconteceu com alguém tenho o delphi 2009 eu coloquei em um form 1 botao e 2 edits e coloquei o seguinte comando no botao procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin i := StrToInt(Edit1.Text); Edit2.Text := IntToStr(i); end; so que se eu colocar a letra xc ele converte a letra em numero "12" que é estranho, pode ser meio esquisido porque onde vou usar o xc mas eu tava fazendo um banco de dados que num campo integer tinha 12 e quando digitei "xc" pra localizar veio isso e não é so o xc xcc = 204 xccc = 3276 e por ai vai c alguém tiver alguma esplicacao para isso gostaria muito de saber ou como contornar esse bug Grato Marcos Augusto

Ola a todos Pessoal estou com um pequeno problema em uma busca em sql com zeos 1ª parte tenho um form com os seguintes objetos : um edit (edLocalizar), um combobox (edSituacao) e um dbgrid no combobox já ta configurado com os seguintes dados (ativo e inativo) 2ª tenho uma tabela em mysql (UNIDADE_FORNECIMENTO) com 4 campos (codigo, descricao, simbolo, situacao) 3ª preciso fazer uma consulta em sql q busque algum dado na tabela mas tem que ser nos tres campos ao mesmo tempo (codigo, descricao, simbolo) e no combobox quando o usuario selecionar algum item (ex: ativo), retornar na busca o que foi digitado no edit e na selecao do combobox ex: kl ativo - retornar somente o kl ativo eu fiz assim DM.ZQUnidade.Active := false; DM.ZQUnidade.SQL.Clear; DM.ZQUnidade.SQL.Add('SELECT * FROM UNIDADE_FORNECIMENTO'); DM.ZQUnidade.SQL.Add('WHERE CODIGO LIKE "%' + edLocalizar.Text + '%"'); DM.ZQUnidade.SQL.Add('OR DESCRICAO LIKE "%' + edLocalizar.Text + '%"'); DM.ZQUnidade.SQL.Add('OR SIMBOLO LIKE "%' + edLocalizar.Text + '%"'); DM.ZQUnidade.SQL.Add('AND SITUACAO = "' + edSituacao.Text + '"'); DM.ZQUnidade.Active := true; mas não esta retornando do jeito que eu queria esta vindo tudo misturado como c não tivesse ativado o combo box grato

Jhonas de novo obrigado por sua atencao mas isso que você me indicou fica meio dificil, já imaginou deduzir o que o usuario vai escrever se é letras com acento ou sem acento que fica impossivel acho eu, já imaginou o usuario escrever jose e eu ter que fazer um filtro pra encontra josé tambem, mas hoje pequisando na net encontrei a solucao pelo menos para mim funcionou e gostaria q você desse uma olha para ver c dar pra passa pro outros do forum IBQ.SQL.Add('select * from TB_NOME'); IBQ.SQL.Add('where Upper(COL_CIDADE collate win_ptbr) like "%' + edLocalizar.Text + '%"'); no banco de dados você tem que colocar o charset WIN1252 e o collate win_ptbr o segredo é esse collate ai, eu achei nesta pagina http://razar.wordpress.com/2007/06/22/quer...ao-no-firebird/ e agradeço mais uma vez por sua atencao, agora so mais uma duvida como eu faço pra fechar esse tópico pois já encontrei a resposta Obrigado

Ola de novo pessoal consegui resolver aquele meu problema do firebird embarcado, fico grato a ajuda d vocês e agora tenho outro problema já procurei em todo forum mas não achei nada que me tirace essa duvida então aki vai eu criei um banco d dados FB ta funcionando direitim acrecentei alguns dados e ta certo, os dados q acrecentei contem acento pra incluir tudo bem mas para pesquisar :blink:. então eu gostaria d saber c tem algum jeito d fazer uma pesquisa em uma tabela do banco que me retornace os campos com acento ou sem acento exemplo: c eu madar procurar joao viesse o joao e o joão, pelo menos no MySQL funciona mas como não da para usar o mysql embarcado então fico ruim c alguém puder me ajudar fico grato

Obrigado por responder Jhonas usando o componente IBDataBase agora parou de apresentar erro mas proceguindo com componete InteBase eu coloquei 1 IBTransacrtion 1 IBQuery e um DataSource com o seguinte codigo IBDataBase.Connected := false; IBDataBase.DatabaseName := 'Dados\BANCO_DADOS_AGENDA.GDB'; IBDataBase.Params.Clear; IBDataBase.Params.Add('user_name=SYSDBA'); IBDataBase.Params.Add('password=masterkey'); IBDataBase.Params.Add('lc_ctype=WIN1252'); IBDataBase.Connected := true; IBQuery1.Active := false; IBQuery1.SQL.Clear; IBQuery1.SQL.Add('select * from COMPROMISSO_CMP'); IBQuery1.Active := true; e da o seguinte erro arithimetc exception, numeric overflow, or string truncation Cannot transliterate character between character sets. Tentei tambem com o Zeos So coloquei o ZConnection e adicionei o seguinte codigo e já ta dando erro ZConnection .Connected := false; ZConnection .Database := 'Dados\BANCO_DADOS_AGENDA.GDB'; ZConnection .User := 'sysdba'; ZConnection .Password := 'masterkey'; ZConnection .Protocol := 'firebird-1.5'; ZConnection .Connected := true; da o seguinte erro SQL Error: unavaliable dataset. Error Code: -904. Unsuccessful execution caused by an unavaliable resource. C você não entender eu tento explicar melhor eu precisaria d preferencia trabalhar com o zeus porque trabalhcom ele a muito tempo e acho ele mais facil. brigado

Ola pessoal estou precisando de uma ajudinha estou tentando fazer um banco de dados criado com FB ficar embarcado usando delphi 2009 mas não estou conseguindo da erro, já segui varios tutoriais q explicam a mesma coisa, e não funciona precisava d um exemplo q funcione, alguém tem como me mandar um exemplo d fonte q funcione, pode ser um exemplo bem simples um Form com um IBDatabase ou ZConnection e um botao q conecta o banco so isso mas so isso mesmo pra mim comecar porque já não to mais achando solucao, fiquei mais brabo ainda quando eu baixei um programa de agenda (sem fonte) que funcionava perfeitamente com um banco .gdb embarcado. maugustop2@yahoo.com Quem puder me ajudar ficarei grato

Ola pessoal andei fuçando e resolvi o problema, é so colocar o pc onde esta conectado o vivo zap para compartilhar a conexao co a internet Muito Obrigado

Ola Mestre Sam Muito obrigado pela dica, agora vou Experimentar o java pra ver c me adapto a ele. Obrigado mesmo.

Ola pessoal estou aki porque preciso de uma orientação. Sou programador em Delphi (pelo menos estava tentando), mas o Delphi me deixa a desejar em algumas coisas como por exemplo migrar de um sistema para outro. Gostaria de saber o que eu posso fazer com o Java? Se posso fazer um programa do estilo o delphi para Windows e Linux (tipo uma calculadora) que não precise de um navegador(Browser) . Com Quais banco de dados posso integrar. C tem a mesma função que no delphi de inserir objetos no form tipo um Edit. E quais os programas que tenho que baixar para começar a programar. Fico grato c alguém me responder.