RE: [delphi-br] recuperar dados
Informe-se sobre o utilitário GBAK. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: dionata...@unijui.edu.br Date: Fri, 26 Dec 2008 15:49:34 + Subject: [delphi-br] recuperar dados Pessoal alguem conhece alguma ferramenta de recuperação de dados do GDB? Interbase/Fire. Valeu _ Confira vídeos com notícias do NY Times, gols direto do Lance, videocassetadas e muito mais no MSN Video! http://video.msn.com/?mkt=pt-br
Re: [delphi-br] Recuperar dados em um DBLOOKUPCOMBOBOX
Welson, Obrigado pela dica e atenção... está funcionando dessa forma: - Na minha procedure Limpar Controles fiz, mas tive que colocar esse código no OnShow do form. DBLookupComboBox1.KeyValue := 0; // para limpar - E no meu botão pesquisar fiz: DBLookupComboBox1.KeyValue := QryConsulta ['ID_ORG']; // recuperar dados. Valeu mesmo Luis Jr - Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. Registre seu aparelho agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Recuperar dados em um DBLOOKUPCOMBOBOX
Gabriel, Obrigado pela dica, pois seguindo sua dica fiz assim: - Na minha procedure Limpar Controles fiz assim, mas tive que colocar esse mesmo código no OnShow do form. DBLookupComboBox1.KeyValue := 0; // para limpar - E no meu botão pesquisar fiz: DBLookupComboBox1.KeyValue := QryConsulta ['ID_ORG']; // recuperar dados. Valeu mesmo Luis Jr - Yahoo! Search Imposto de Renda 2006: o prazo está acabando. Faça já a sua declaração no site da Receita Federal. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Recuperar dados em um DBLOOKUPCOMBOBOX
[-x-] Luis Almeida escreveu: Welson, Ainda estou voando, coisa de iniciante, mas me dica uma coisa... tem como eu limpar um DBLookupComboBox a cada novo registro? Não sei se estou falando besteira, mas acho que não estou conseguindo retornar o dado gravado do DBLookupCombobox, conforme registro pesquisado, depois da pesquisa porque o DBLookupcombobox sempre está com o primeiro item da lista visível. Os edit's tem o campo Text não é isso? Mas e o DBLookupcombobox tem como fazer com que fique em branco, só aparecer o registro depois que clicar nele como combobox? (...) [-x-] [Welson] O DBLookupXXX é um data-aware, ou seja, ele reflete o que acontece com o B.D. Se, por exemplo, você der um append no BD, ele ficará em branco, e se você limpá-lo (.Clear), o registro em que ele estiver parado, no campo que ele, DBLookupXXX, referencia, receberá o valor de apagar o componente. Um jeito que você pode fazer é o seguinte: na query que busca os dados do formulário, passe um número de código inexistente ( = ) que todos os componentes Data-Aware ficarão em branco. Um abraço. = Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já foram. Alexander Graham Bell = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = - Yahoo! Search Dê uma espiadinha e saiba tudo sobre o Big Brother Brasil. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Recuperar dados em um DBLOOKUPCOMBOBOX
Se vc quer deixar o combo como se não tivesse selecionado nada, basta vc setar a propriedade keyvalue para 0: Dblookup.keyvalue:=0; Mas fazendo isto, o ponteiro de registro ainda estará setado no registro corrente, ou seja todos os controles dataware continuaram a mostra os dados desse registro; Em 27/03/06, Welson Avelar [EMAIL PROTECTED] escreveu: [-x-] Luis Almeida escreveu: Welson, Ainda estou voando, coisa de iniciante, mas me dica uma coisa... tem como eu limpar um DBLookupComboBox a cada novo registro? Não sei se estou falando besteira, mas acho que não estou conseguindo retornar o dado gravado do DBLookupCombobox, conforme registro pesquisado, depois da pesquisa porque o DBLookupcombobox sempre está com o primeiro item da lista visível. Os edit's tem o campo Text não é isso? Mas e o DBLookupcombobox tem como fazer com que fique em branco, só aparecer o registro depois que clicar nele como combobox? (...) [-x-] [Welson] O DBLookupXXX é um data-aware, ou seja, ele reflete o que acontece com o B.D. Se, por exemplo, você der um append no BD, ele ficará em branco, e se você limpá-lo (.Clear), o registro em que ele estiver parado, no campo que ele, DBLookupXXX, referencia, receberá o valor de apagar o componente. Um jeito que você pode fazer é o seguinte: na query que busca os dados do formulário, passe um número de código inexistente ( = ) que todos os componentes Data-Aware ficarão em branco. Um abraço. = Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já foram. Alexander Graham Bell = Welson de Avelar Soares Filho Analista/Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = - Yahoo! Search Dê uma espiadinha e saiba tudo sobre o Big Brother Brasil. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Recuperar dados em um DBLOOKUPCOMBOBOX
Welson, Ainda estou voando, coisa de iniciante, mas me dica uma coisa... tem como eu limpar um DBLookupComboBox a cada novo registro? Não sei se estou falando besteira, mas acho que não estou conseguindo retornar o dado gravado do DBLookupCombobox, conforme registro pesquisado, depois da pesquisa porque o DBLookupcombobox sempre está com o primeiro item da lista visível. Os edit's tem o campo Text não é isso? Mas e o DBLookupcombobox tem como fazer com que fique em branco, só aparecer o registro depois que clicar nele como combobox? E para limpar todos os edit's a cada novo registro fiz uma procedure. procedure TFrmCadastrarSetor.LimparControles; Var i : Integer; begin For i := 0 To FrmCadastrarSetor.ComponentCount - 1 Do If FrmCadastrarSetor.Components[i] is TCustomEdit Then (FrmCadastrarSetor.Components[i] as TCustomEdit).Clear; end; Valeu, Luis _ Welson Avelar [EMAIL PROTECTED] escreveu: O DBLookUpXXX anda de acordo com o ponteiro do registro no banco de dados. Se você setar para um registro tal, ele mostrará já o valor do campo, não precisa mandar um valor pra ele não. []'s. Luis Almeida escreveu: Caros Amigos, Estou utilizando um DBLOOKUPCOMBOBOX com duas colunas, onde neste COMBO listo todos os CÓDIGOs e NOMEs dos órgãos cadastrados no FORM_1 e gravo esses dados no FORM_2. Um detalhe importante é que no meu banco de dados o campo ID_ÓRGÃO é INTEGER, o qual, refere-se o DBLOOKUPCOMBOBOX... Até aí estou gravando beleza. O que não estou conseguindo é trazer o dado cadastrado neste DBLOOKUPCOMBOBOX depois de uma pesquisa. Este é o código do meu botão pesquisar: procedure TFrmCadastrarSetor.BtnPesquisarClick(Sender: TObject); begin FrmPesquisarSetor.Showmodal; if FrmPesquisarSetor.ModalResult = mrok then begin with QryConsulta do begin Close; Sql.Clear; Sql.Add(SqlSelect); Params[0].AsString := FrmPesquisarSetor.QryConsulta['ID_Setor']; Open; if RecordCount 0 then begin Novo := False; EdID_Set.Text := QryConsulta ['ID_Setor']; EdN_Set.Text := QryConsulta ['N_Setor']; EdChefe.Text := QryConsulta ['Chefe']; EdFone.Text := QryConsulta ['Fone']; DBLOOKUPCOMBOBOX := QRYCONSULTA [ID_ORGAO]; // AQUI O ERRO QDO COMPILA EdN_Setor.SetFocus; end; end; end; end; Amigos o que devo fazer? Tenho que transformar esse DBLOOKUPCOMBOBOX DE STRING para INTEIRO (StrToInt)? E como faço isso? - Yahoo! Search Dê uma espiadinha e saiba tudo sobre o Big Brother Brasil. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
Re: [delphi-br] Recuperar dados em um DBLOOKUPCOMBOBOX
O DBLookUpXXX anda de acordo com o ponteiro do registro no banco de dados. Se você setar para um registro tal, ele mostrará já o valor do campo, não precisa mandar um valor pra ele não. []'s. Luis Almeida escreveu: Caros Amigos, Estou utilizando um DBLOOKUPCOMBOBOX com duas colunas, onde neste COMBO listo todos os CÓDIGOs e NOMEs dos órgãos cadastrados no FORM_1 e gravo esses dados no FORM_2. Um detalhe importante é que no meu banco de dados o campo ID_ÓRGÃO é INTEGER, o qual, refere-se o DBLOOKUPCOMBOBOX... Até aí estou gravando beleza. O que não estou conseguindo é trazer o dado cadastrado neste DBLOOKUPCOMBOBOX depois de uma pesquisa. Este é o código do meu botão pesquisar: procedure TFrmCadastrarSetor.BtnPesquisarClick(Sender: TObject); begin FrmPesquisarSetor.Showmodal; if FrmPesquisarSetor.ModalResult = mrok then begin with QryConsulta do begin Close; Sql.Clear; Sql.Add(SqlSelect); Params[0].AsString := FrmPesquisarSetor.QryConsulta['ID_Setor']; Open; if RecordCount 0 then begin Novo := False; EdID_Set.Text := QryConsulta ['ID_Setor']; EdN_Set.Text := QryConsulta ['N_Setor']; EdChefe.Text := QryConsulta ['Chefe']; EdFone.Text := QryConsulta ['Fone']; DBLOOKUPCOMBOBOX := QRYCONSULTA [ID_ORGAO]; // AQUI O ERRO QDO COMPILA EdN_Setor.SetFocus; end; end; end; end; Amigos o que devo fazer? Tenho que transformar esse DBLOOKUPCOMBOBOX DE STRING para INTEIRO (StrToInt)? E como faço isso? Valeu Luis Jr - Yahoo! Search Dê uma espiadinha e saiba tudo sobre o Big Brother Brasil. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM - Links do Yahoo! Grupos Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. = Nunca ande pelo caminho traçado, pois ele conduz somente até onde os outros já foram. Alexander Graham Bell = Welson de Avelar Soares Filho Programador Delphi Gemini Sistemas www.geminisistemas.com.br Juiz de Fora - Minas Gerais = - Yahoo! Acesso Grátis Internet rápida e grátis. Instale o discador agora! [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html