[delphi-br] Programador Free
Olá, bom dia !! Necessito de 3 programadores para SP(região do Butantã). Pré requisitos: Programação em 3 camadas, trabalho em equipe e disponibilidade de tempo. E-mail para carlosaama...@yahoo.com.br. Grato, Carlos
[delphi-br] Re: URGENTE: Consulta incremental LIKE
Olá Jorge, Bom, pelo menos no exemplo, não vejo a necessidade de utilização do upper... Cuidado, dependendo da situação, vc terá que criar um índice para a consulta com a função... Seria interessante, gravar já com o upper para evitar transtornos... Quando vc utiliza um select assim: Select co_agrupado from tabela where upper(co_agrupado) like Vc tem que ter um índice com a função upper, correndo o risco de caso não tê-lo, o banco fazer um full scan na table... Claro, caso a sua table tenha muitas linhas... Por que não assim ?? Select co_agrupado from tabela where co_agrupado like '%E668%A668%D654%C333%'; Um abraço, Carlos P.S.: A primeira vez que vi desta forma o like, foi aqui na lista... --- Em delphi-br@yahoogrupos.com.br, Jorge Ericsson [EMAIL PROTECTED] escreveu Olá amigos delphianos, Meio confuso meu problema, mas crio que a solução está apenas na monstagem da minha instrução SQL. Bom, eu estou com um problema de pesquisa incremental genérica pois utilizo uma aplicação que pode retorna informções de 3 bancos Firebird, PostgreeSql e Oracle ao mesmo tempo. Na minha tabela eu possuo campos da seguinte forma: CO_AGRUPADO A124|B545|C785|D999|E478 *A334|B767|C333|D354|E809 B786|A792|D654|C333|E668 * Eu gostaria de ao pesquisar por um código tipo E668A334D654C333 - sem informa a barra de divisão - ele me retornasse por exemplo a *2ª e 3ª linhas de registro apenas*, ignorando a 1ª linha pois não existem nenhuma informação nela que atenda a solicitação do usuário. Eu tentei da seguinte forma: Select co_agrupado from tabela where upper(co_agrupado) like upper(E668) or upper(co_agrupado) like upper(A668) or upper(co_agrupado) like upper(D654) or upper(co_agrupado) like upper(C333) Mas, apresenta problemas na montagem do FILTER nos componentes usando Zeos(Firebird), ADO(Oarcle) e DBExpress(PostgreSql) dando erro. Alguém poderia dar uma dica ? Valew pessoal Att, Jorge Ericsson S. Pinheiro Analista/Projetista de Sistemas Ericsson Sistemas e Soluções http://www.jericsson.com.br 61 9227.4785 / 3967.6172 Brasília - DF [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Re: [OFFTOPIC] Oracle ou PostgreSQL?
Olá a todos, Utilizo o Oracle, tenho o PostgreSQL instalado, infelizmente, nunca mais fiz a atualização dele e está em um servidor muito pequeno, no ano que vem irei instalar ele em uma máquina melhor... Hoje, se fosse iniciar no zero, sem dúvida nenhuma optaria pelo PostgreSQL, ele está cada dia mais parecido com o Oracle (apesar do pessoal da lista PostgreSQL, não gostar do Oracle, o que sinto é que o PostgreSQL, pega as coisas boas do Oracle, hoje já tem até TABLESPACE...)... Por traumas passados, não RECOMENDO, mesmo não sabendo como estão as novas versões, instalar em máquinas Windows, o PostgreSQL funciona e muito bem no LINUX Se você utilizar um servidor Windows, o SQLServer vai bem e muito bem(e não acho caro!!!, o Oracle é mais caro!!!), se for adotar um banco de dados free, utilize o Firebird, foi a nossa opção quando saimos do piradox, opa paradox em um sistemas que utilizamos para lojas. Não recomendo MySQL, já vi muita base corrompida... Um abraço e um FELIZ NATAL PARA TODOS!! Carlos --- Em delphi-br@yahoogrupos.com.br, [EMAIL PROTECTED] escreveu Quoting Yoshio Iwamoto [EMAIL PROTECTED]: Não haveria muito problema em o banco ser mais parrudo o não, o problema é quanto a recuperação de dados. Eu gostaria de usar o postgresql, mas me orientaram a usar o Oracle pois seria mais confiável. PostgreSQL é um excelente banco, a altura de um Oracle, tolerante a falhas, e embora não conheça detalhes da sua arquitetura e seus utilitários, ouvi comentários de que ele não corrompe. Vale a pena você se informar melhor em uma lista de Pg, a melhor em pt-br é https://listas.postgresql.org.br/cgi-bin/mailman/listinfo/pgbr-geral -- Joao Morais
[delphi-br] Re: DbExpress ou Dcom+
Olá Rubens, Então a pergunta pertinente, seria: Dcom+ ou Borland Socket Server (BSS)?? Um abraço e obrigado, Carlos --- Em delphi-br@yahoogrupos.com.br, Rubem Nascimento da Rocha [EMAIL PROTECTED] escreveu DCOM é uma proposta para implementar servidores de aplicação baseado em COM. dbExpress é uma camada de acesso a dados. Ou seja, uma coisa não tem nada haver com a outra. Se vc pedisse uma comparação entre DCOM e CORBA, aí faria sentido! Uma coisa é a tecnologia que vc vai querer usar pra implementar um servidor de aplicação, e outra coisa é a camada de acesso a dados que o servidor de aplicação vai usar (dbExpress, dbGo/ADOExpress, BDE, IBX, etc.). Quem te falou isso (Esquece DCOM, trabalhe com DbExpress e pronto!!) deve estar completa e redondamente equivocado, confundido as bolas, viajando no tempo, no espaço e na maionese. Sds. To: delphi-br@yahoogrupos.com.br From: [EMAIL PROTECTED] Date: Sat, 15 Dec 2007 22:41:43 + Subject: [delphi-br] DbExpress ou Dcom+ Olá a todos, boa noite!! O que é melhor para servidor de aplicação, Dcom+ ou DbExpress?? Hoje temos algumas aplicações com DbExpress (BSS) e funcionam muito bem.. Tem um novo sistema que os caras estão fazendo com Dcom+ (Windows 2003 Server, não funcionou no XP), só que pelo pouco que vi, a necessidade de máquina (memória e processamento) é maior, o meu pessoal fez cursos de Delphi (este ano e ano passado, foram treinados 4 programadores) e sempre que questionamos isto aos instrutores, eles simplesmente falam: Esquece DCOM, trabalhe com DbExpress e pronto!! Mas, nunca ninguém explicou o porque... Até mesmo em palestras que assisti no ano passado na Borcon, foi somente DbExpress... Como o sistema é de terceiro e terá mais de 300 conexões, estou preocupado.. Grato, Carlos _ Veja mapas e encontre as melhores rotas para fugir do trânsito com o Live Search Maps! http://www.livemaps.com.br/index.aspx?tr=true
[delphi-br] DbExpress ou Dcom+
Olá a todos, boa noite!! O que é melhor para servidor de aplicação, Dcom+ ou DbExpress?? Hoje temos algumas aplicações com DbExpress (BSS) e funcionam muito bem.. Tem um novo sistema que os caras estão fazendo com Dcom+ (Windows 2003 Server, não funcionou no XP), só que pelo pouco que vi, a necessidade de máquina (memória e processamento) é maior, o meu pessoal fez cursos de Delphi (este ano e ano passado, foram treinados 4 programadores) e sempre que questionamos isto aos instrutores, eles simplesmente falam: Esquece DCOM, trabalhe com DbExpress e pronto!! Mas, nunca ninguém explicou o porque... Até mesmo em palestras que assisti no ano passado na Borcon, foi somente DbExpress... Como o sistema é de terceiro e terá mais de 300 conexões, estou preocupado.. Grato, Carlos
Re: RES: [delphi-br] Verificar se Existe Tabela
Olá, Da forma que enviei anteriormente, não funcionou??? Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Rafael Jorge [EMAIL PROTECTED] escreveu estou precisando urgente mente verificar se uma tabela existe no banco! como eu faco isso no firebird 1.5 agradeco qualquer ajuda! --- Em delphi-br@yahoogrupos.com.br, carlos alberto do amaral [EMAIL PROTECTED] escreveu --- Em delphi-br@yahoogrupos.com.br, galvao_em [EMAIL PROTECTED] escreveu Olá pessoal, gostaria de saber se tem como minha aplicação verificar se existe uma certa tabela no banco de dados. por exemplo: gostaria que ao iniciar a aplicação verificasse se a tabela clientes existe no banco, caso não exista ela me retorna um aviso. estou utilizando FB 1.5 D7 e MDO desde já agradeço a colaboração de todos Olá, No Oracle, select na user_tables.. No PostgreSql, select na pg_tables... No Firebird, não sei se tem uma view e/ou table com estes dados, mas, nada que um try except, não resolva.. try Select * from clientes except 'tabela clientes, não existe !!!' end; Um abraço, Carlos -- 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] ou [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: RES: [delphi-br] Mudar Campo De Tabela
Olá, Só um detalhe: Para você alterar uma coluna para not null, todos os dados JÁ EXISTENTES nesta coluna, tem que ser not null, ou seja, devem estar preenchidos... Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Walter Alves Chagas Junior [EMAIL PROTECTED] escreveu Tenta ALTER TABLE cliente ALTER COLUMN data_nasc not null; []s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações Belo Horizonte - MG - Brazil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] nome de Eduardo Silva ® Enviada em: quarta-feira, 31 de agosto de 2005 16:21 Para: delphi-br@yahoogrupos.com.br Assunto: RES: [delphi-br] Mudar Campo De Tabela Vc deverá exluir este campo e cria-lo novamente. Se ele já tiver registro, vc cria um outro, joga os dados desse campo belho no novo. Apaga o velho, cria o novo e joga os dados no novo e o apaga. É mais ou menos assim: Data1 - Data2 Data2 - Data3 Data3 - Data1 Ai, apaga o Data2 e Data3, vai ficar o nome do campo antigo com o novo atributo (not null) -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:delphi- [EMAIL PROTECTED] nome de Cleiton Enviada em: quarta-feira, 31 de agosto de 2005 16:12 Para: Delhpi Assunto: [delphi-br] Mudar Campo De Tabela Olá pessoal ... Tenho uma tabela cliente com um atributo declarado como data_nasc do tipo date, sendo que esse não é obrigatório. Acontece que preciso passar esse campo para obrigatorio. Ou seja, preciso alterar de data_nasc date para data_nasc date not null. Estava tentando da seguinte maneira: ALTER TABLE cliente MODIFY COLUMN data_nasc not null; Mas não está dando certo. Alguem poderia me dar uma luz. -- Esta mensagem foi verificada pelo sistema de antivírus e acredita-se estar livre de perigo. [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ NOD32 1.1207 (20050831) Information __ This message was checked by NOD32 antivirus system. http://www.nod32.com [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] ou [EMAIL PROTECTED] 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] ou [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
[delphi-br] Re: Verificar se Existe Tabela
--- Em delphi-br@yahoogrupos.com.br, galvao_em [EMAIL PROTECTED] escreveu Olá pessoal, gostaria de saber se tem como minha aplicação verificar se existe uma certa tabela no banco de dados. por exemplo: gostaria que ao iniciar a aplicação verificasse se a tabela clientes existe no banco, caso não exista ela me retorna um aviso. estou utilizando FB 1.5 D7 e MDO desde já agradeço a colaboração de todos Olá, No Oracle, select na user_tables.. No PostgreSql, select na pg_tables... No Firebird, não sei se tem uma view e/ou table com estes dados, mas, nada que um try except, não resolva.. try Select * from clientes except 'tabela clientes, não existe !!!' end; Um abraço, Carlos -- 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] ou [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
[delphi-br] Re: Off Gerenciamento deficiente (desabafo)
Olá Leandro, Como o Walter já comentou, fazer do usuário um mini-analista-de- sistemas, isso ajuda e muito, claro, dependendo do seu contrato (se o sistema será customizado ou não, para a empresa ), bloquear as várias solicitações de alteração, se não fica inviável. Ao ministrar um treinamento, fazer quem recebeu por tal treinamento assinar um recibo onde teria data, hora de início, hora do fim e tópicos abordados. Neste caso, crítico, se possível, fazer uma avaliação, tanto do treinamento (por parte do usuário) quanto do usuário treinado (por parte do treinador, um mini teste com perguntas sobre o sistema)... Treinamento(normalmente, feito com uma base LIMPA, o que pode diferenciar da realidade do usuário), sim importante, mas você faz uma coisa chamada IMPLANTAÇÃO??, ou seja, acompanhar os usuários, nos processos iniciais, para realmente verificar se os erros existem (veja bem, existem erros de sistemas e ERROS DE MÁQUINA, para os usuários é tudo ***ERRO DE SISTEMA***) e ensiná-los a utilizar o sistema, como muitos dizem: domesticá-los, não gosto deste termo, pois existem usuários bem acima da média. Manter um histórico rígido, ou seja, qq alteração/exclusão no sistema, manter no arquivo de histórico de operações que somente o BOSS e você poderá ter acesso... Por acaso, estamos migrando um sistema de contas a pagar do Clipper para o Delphi c/ Oracle, no Clipper já tínhamos uma série de rotinas que eram gravadas em histórico, agora com Oracle, uma das primeiras perguntas dos operadores era se iria gravar as operações em histórico, simplesmente, falamos que algumas rotinas iriam, sendo que a maioria são, ou seja, se houver um confronto, estamos muito bem documentados para não levar esporro de chefe alheio ao sistema, basta tirar um relatório na frente do chefe. Resumindo: procure se auto-proteger. Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Campus [EMAIL PROTECTED] escreveu hehehe, tá certo Walter, é pura verdade. Eu tenho clientes que até hoje permanecem em clipper por não aceitarem o uso do windows, eles não querem nem saber de trocar, acham muito complicado, janela pra cá, menu pra lá. Não tem conversa. Um grande problema eu enfrento quando minha empresa substitui outra, nesses casos tem sabotagem sim, muitos usuários não querem a troca, porque a parte deles funciona. Com a troca, muda a filosofia de trabalho, tem treinamento, aprendizado etc. Disso os usuários não gostam. Sem falar que as vezes conhecem a pessoa que tinha o sistema anterior. Tive um caso de sabotagem de um funcionário, que depois fui descobrir, havia indicado a empresa que estava com o sistema implantado lá. São casos isolados, mas reais, e dizer que falar em sabotagem é justificativa para quem não sabe fazer sistemas está longe da realidade. - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, July 04, 2005 6:33 PM Subject: RES: [delphi-br] Off Gerenciamento deficiente (desabafo) Metendo o bedelho nesta estoria Sistemas são uma arte complicada demais de você lidar. Você faz um produto que não é para você usar e sim para outro usar, e na maioria das vezes, este outro é uma pessoa totalmente leiga no computador e também no assunto. Quando o usuário quer derrubar o projeto, ele derruma mesmo! Querer bater de frente com o usuário é bobagem. Você sai perdendo. O que deve ser feito então O primeiro passo, em um projeto de sistema, é procurar envolver o usúario no processo. Você analista, tem que passar pra ele, que a funcionalidade, eficácia e eficiência deste sistema depende muito da participação dele. Coloque o usuário como uma peça fundamental no processo pra ver se ele não participa. Lógico que participa. Tanto que nas técnicas de entrevistas, estudadas na análise de sistemas, existe o tópico de chão de fábrica e do questionário aplicado ao usuário final. Este geralmente costuma saber muita coisa que o seu cliente não sabe, ou não se lembra porque quem destrincha o processo na empresa, é o funcionario diretamente ligado a ele. Outra coisa fundamental é o projeto piloto do sistema. É neste projeto que devem ser ajustados os ultimos detalhes e incluidas as alterações do sistema. E é nessa hora que o usuário tem que ter a participação total. Outra coisa: sistemas devem ter interfaces simples, objetivas e práticas. Tudo que o usário precisa, deve estar facilmente ao alcance dele. A informação que ele precisa, tem que estar facil de ser rapidamente localizada e compilada. Fazer sistemas cheio de penduricálhos, telas que chamam outras telas pra chamar outras telas para que se selecione um dado pra chamar outras telas, não leva sistema algum a lugar nenhum. Olhem aí o estudo da interface homem-maquina que sempre martelo nas listas de discussão. Convencer o usuário é uma questão de jogo de
[delphi-br] Re: Off Gerenciamento deficiente (desabafo)
Olá, Tudo o que eu disse, o Luciano, já havia sintetizado melhor... Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, carlos alberto do amaral [EMAIL PROTECTED] escreveu Olá Leandro, Como o Walter já comentou, fazer do usuário um mini-analista-de- sistemas, isso ajuda e muito, claro, dependendo do seu contrato (se o sistema será customizado ou não, para a empresa ), bloquear as várias solicitações de alteração, se não fica inviável. Ao ministrar um treinamento, fazer quem recebeu por tal treinamento assinar um recibo onde teria data, hora de início, hora do fim e tópicos abordados. Neste caso, crítico, se possível, fazer uma avaliação, tanto do treinamento (por parte do usuário) quanto do usuário treinado (por parte do treinador, um mini teste com perguntas sobre o sistema)... Treinamento(normalmente, feito com uma base LIMPA, o que pode diferenciar da realidade do usuário), sim importante, mas você faz uma coisa chamada IMPLANTAÇÃO??, ou seja, acompanhar os usuários, nos processos iniciais, para realmente verificar se os erros existem (veja bem, existem erros de sistemas e ERROS DE MÁQUINA, para os usuários é tudo ***ERRO DE SISTEMA***) e ensiná-los a utilizar o sistema, como muitos dizem: domesticá-los, não gosto deste termo, pois existem usuários bem acima da média. Manter um histórico rígido, ou seja, qq alteração/exclusão no sistema, manter no arquivo de histórico de operações que somente o BOSS e você poderá ter acesso... Por acaso, estamos migrando um sistema de contas a pagar do Clipper para o Delphi c/ Oracle, no Clipper já tínhamos uma série de rotinas que eram gravadas em histórico, agora com Oracle, uma das primeiras perguntas dos operadores era se iria gravar as operações em histórico, simplesmente, falamos que algumas rotinas iriam, sendo que a maioria são, ou seja, se houver um confronto, estamos muito bem documentados para não levar esporro de chefe alheio ao sistema, basta tirar um relatório na frente do chefe. Resumindo: procure se auto-proteger. Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Campus [EMAIL PROTECTED] escreveu hehehe, tá certo Walter, é pura verdade. Eu tenho clientes que até hoje permanecem em clipper por não aceitarem o uso do windows, eles não querem nem saber de trocar, acham muito complicado, janela pra cá, menu pra lá. Não tem conversa. Um grande problema eu enfrento quando minha empresa substitui outra, nesses casos tem sabotagem sim, muitos usuários não querem a troca, porque a parte deles funciona. Com a troca, muda a filosofia de trabalho, tem treinamento, aprendizado etc. Disso os usuários não gostam. Sem falar que as vezes conhecem a pessoa que tinha o sistema anterior. Tive um caso de sabotagem de um funcionário, que depois fui descobrir, havia indicado a empresa que estava com o sistema implantado lá. São casos isolados, mas reais, e dizer que falar em sabotagem é justificativa para quem não sabe fazer sistemas está longe da realidade. - Original Message - From: Walter Alves Chagas Junior [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Monday, July 04, 2005 6:33 PM Subject: RES: [delphi-br] Off Gerenciamento deficiente (desabafo) Metendo o bedelho nesta estoria Sistemas são uma arte complicada demais de você lidar. Você faz um produto que não é para você usar e sim para outro usar, e na maioria das vezes, este outro é uma pessoa totalmente leiga no computador e também no assunto. Quando o usuário quer derrubar o projeto, ele derruma mesmo! Querer bater de frente com o usuário é bobagem. Você sai perdendo. O que deve ser feito então O primeiro passo, em um projeto de sistema, é procurar envolver o usúario no processo. Você analista, tem que passar pra ele, que a funcionalidade, eficácia e eficiência deste sistema depende muito da participação dele. Coloque o usuário como uma peça fundamental no processo pra ver se ele não participa. Lógico que participa. Tanto que nas técnicas de entrevistas, estudadas na análise de sistemas, existe o tópico de chão de fábrica e do questionário aplicado ao usuário final. Este geralmente costuma saber muita coisa que o seu cliente não sabe, ou não se lembra porque quem destrincha o processo na empresa, é o funcionario diretamente ligado a ele. Outra coisa fundamental é o projeto piloto do sistema. É neste projeto que devem ser ajustados os ultimos detalhes e incluidas as alterações do sistema. E é nessa hora que o usuário tem que ter a participação total. Outra coisa: sistemas devem ter interfaces simples, objetivas e práticas. Tudo que o usário precisa, deve estar facilmente ao alcance dele. A informação que ele precisa, tem que estar facil de ser rapidamente localizada e compilada. Fazer
Re: RES: [delphi-br] Barra de tarefas SOLUCAO FACIL!!!!!
Olá, Também concordo em GNG com o Rogério, pesquisar também faz parte do aprendizado, ou é melhor ficar fazendo copy e paste??? Recentemente respondi uma questão do Roberto (até recebi um mail dele em pvt agradecendo muito, por nada Roberto) em que no começo ele queria que ensinassem a pescar, achei interessante a forma como ele solicitou... E o pior de tudo é após receber a solução, vir com ironia Obrigada por ter tido tempo de procurar pra mim, comentário muito infeliz, um simples obrigado(a), será que esta palavra existe no vocabulário de determinadas pessoas? seria mais que suficiente... Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Macfly [EMAIL PROTECTED] escreveu Rogério concordo contigo, Quando eu respondi as perguntas, indicando o Google já sabia que ia gerar polêmica... Da para perceber que existem dois tipos de perguntas, aquelas de pessoas que realmente precisam de ajuda, que tentam fazer mas encontram dificuldades e daqueles que antes de tentar já enviam a mesma, por preguiça ou comodismo... Pra que tentar se Ctrl+C e Ctrl+V é bem mais fácil... Sinceramente eu até acho melhor assim, pois esse tipo de Profissional jámais oferecerá risco, a quem se esforça para aprender, no concorido mercado de trabalho... []'s MacFly Rogério [EMAIL PROTECTED] wrote: Olá! Tentei ficar quieto, mas não consegui. Acho que tem gente confundindo lista de discussão, com suporte (PAGO). Não é meus caros Estagiários (Universidade de prestígio não eleva ninguém - aqui somos todos iguais) A lista de discussão serve para troca de conhecimentos. Onde todos tentamos nos ajudar, acontece que quem não é mais estagiário, muitas vezes não tem tempo de responder tudo mastigadinho (novamente a pergunta - isto é uma lista ou um suporte - PAGO? Ou até mesmo um curso passo-à-passo?) Eu muitas vezes já recebi respostas que não tinham nada à ver com a minha pergunta, mas não por isto reclamei. Sei que quem respondeu, teve a boa intenção de ajudar. Acho que o amigo 'Macfly', foi até gentil e atencioso demais (eu não teria sido). Outra coisa, se estamos numa lista de discussão, por que pedir para enviar em PVT se for algum link (é vergonha de não ter usado um mecanismo de busca adequadamente?). Este link pode ser útil para outros participantes!!! Para pensar: A lista serve à você? Ou - Você serve a Lista (mesmo quando for você que tem a dúvida)? Grande Abraço, Rogério Ricardo Fernandes Desenvolvimento http://www.strategies.inf.br - Original Message - From: Eny Urias [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Wednesday, June 08, 2005 7:18 AM Subject: Re: RES: [delphi-br] Barra de tarefas SOLUCAO FACIL! OK, Obrigada por ter tido tempo de procurar pra mim Da próxima vez já sei a quem recorrer. [ Mutuka ] [EMAIL PROTECTED] escreveu: o MacFly respondeu certinho caso procuracem nas outras paginas do site idicado e com um ctrl f achariam a resposta: pra quem eh pregriçoso ai vai: FlashWindow(Handle, True); FlashWindow(Application.Handle, True); coloca em um timer eh pronto... --- Macfly [EMAIL PROTECTED] escreveu: - Já pedi desculpas para o outro colega, indiquei o google porque lá tinha a resposta p/ a pergunta dele e tb p/ a sua, me desculpe mas eu considero isso um tipo de resposta. E eu li a sua pergunta sim, caso contrário não teria respondido, acontece que na mesma pesquisa vc encontraria a resposta para sua pergunta tb, alias no mesmo site... Agora que é mais fácil receber a resposta pronta isso é... []'s MacFly Rodrigo Tognin [EMAIL PROTECTED] wrote: Estou te pedindo um favor Macfly. É a segunda vez que te vi indicando o site do google ao invés de responder a pergunta. Você poderia, por favor, responder a pergunta ao invés de indicar sites de busca? É até mais fácil para as pessoas. E outra, eu reparei que você respondeu a mensagem errada. Você leu a minha mensagem inteira? Se for para indicar sites de busca, por favor, mande em PVT para a pessoa, é bem melhor. Rodrigo Tognin -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de Macfly Enviada em: terça-feira, 7 de junho de 2005 10:36 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Barra de tarefas Olá.. Google: http://www.google.com.br/search?hl=pt- BRq=delphi+piscar+barra+tarefasmeta= []'s Macfly Rodrigo Tognin [EMAIL PROTECTED] wrote: O que eu pderia fazer para que meu programa não apareça na barra de tarefas? Tem algum jeito simples sem ter que usar componentes externos? Rodrigo Tognin Estudante e estagiário Técnico em informática ESALQ/USP - IPEF -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para
[delphi-br] Re: Como passar parametros para o QuickReport
Olá Roberto, bom dia !!! Deixa eu entrar nesta pescaria :-)... No relatório, crie uma procedure recebendo os parâmetros que você deseja, como abaixo... procedure tfmRelatorioQuick.SetaImpressao(sEmp, sNomeEmp : string; cbLoja : boolean; iLoja : integer; sLoja : string; cbVen : boolean; iVen : integer; sVen : string; cbPer : boolean; dtIni, dtFim : string); begin // Configuração do Relatório // qrlabel de cabeçalho do relatório lbCab.Caption := 'Empresa : ' + sNomeEmp + ' - Loja : ' + sLoja; // Configuração da Query Principal qryRel.ParamByName('Emp').AsString := sEmp; qryRel.ParamByName('Loja').AsInteger := iLoja; if cbVen then qryRel.SQL.Strings[5] := ' and V.CodFunc = ' + IntToStr(iVen) else qryRel.SQL.Strings[5] := ''; if cbPer then qryRel.SQL.Strings[4] := 'and V.DtVenda BetWeen ' + Asp(dtIni) + ' and ' + Asp(dtFim) else qryRel.SQL.Strings[4] := ''; qryRel.Open; end; No form de seleção, passe os parâmetros para o formulário do quickreport, exemplo: fmRelatorioQuick.SetaImpressao(Empresa.KeyValue, Empresa.Text, cbLoja.Checked, iLoja, lkLoja.Text, cbVend.Checked, iVend, lkVend.Text, cbProd.Checked, edProd.Text, lkProd.Text, cbPeriodo.Checked, meDtI.Text, meDtF.Text); fmRelatorioQuick.QuickRep1.Preview; Um abraço e boa sorte, Carlos --- Em delphi-br@yahoogrupos.com.br, Roberto Wazen [EMAIL PROTECTED] escreveu Não quero um peixe e sim aprender a pescar! Colegas estou sem base teórica para passar parâmetros de um form de seleção, para a Query do form de impressão com o QuickReport. Favor indicar algum lugar (LINK), apostila, texto, ou mesmo algum exemplo que se possa ficar conhecendo o assunto. No google, achei muito pouca coisa. Obrigado desde já. [EMAIL PROTECTED] (RJ) [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] ou [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
[delphi-br] Re: Que erro tem aqui nessa SELECT
Olá Cícero, cmdfoto:= 'Select * from BDfotos where '; Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Cícero [EMAIL PROTECTED] escreveu Estou ha uma tarde tentando tirar um erro UNTERMINATED STRING. Vejam onde errrei e como posso complementar a parte do CAMPO BOLEANO ABAIXO cmdfoto := 'Select BDFotos.* WHERE'; cmdfoto := cmdfoto + ' SerialAcervo = ' + quotedstr(dmestrutbd.qryimp.fieldbyname('SerialAcervo').asstring); cmdfoto := cmdfoto + ' and Serialbem = ' + quotedstr(dmestrutbd.qryimp.fieldbyname('Serialbem').asstring); O danado está me acusando erro nestas duas linhas acima. E para aproveitar... como coloco essa debaixo na mesma query ? ' and bdfotos.FieldByName(principal).asboolean = true '; Eu não vejo erro mas o delphi jura que tem e eu confio muito nele Gratíssimo [EMAIL PROTECTED] -- 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] ou [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
[delphi-br] Re: Perda de dados
Olá, Piradox é triste mesmo !!! :) Veja se isto te ajuda... Coloque em todas as suas tabelas procedure formulário ou datamodule.TABLEAfterPost(DataSet: TDataSet); begin // DBISaveChanges uma espécia de commit forçado DBISaveChanges(TABLE.Handle); end; Na uses adicionar DBIPROCS.. Um abraço, Carlos P.S.: Já fiquei muito confuso com isto também!!! --- Em delphi-br@yahoogrupos.com.br, Oswaldo dos Santos Araujo [EMAIL PROTECTED] escreveu Olá Cristiane Voltar uma edição não volta, mas que somem alguns registros aí somem mesmo, é só o cara abusar um pouco, desligando o micro que acontece...Agora aí pode ser programa ou fraude, o que não é tão incomun assim On 11 Mar 2005 at 16:55, Cristiane Campanholo wrote: Pessoal! Estou com um sério problema de perda de dados. Eu utilizo Paradox com Delphi 4 (vou migrar, não tive tempo de procurar os componentes que utilizo no D4 para o D7). Por exemplo: meu cliente digita contas a receber (inclui), depois (outro dia) faz o pagamento desta conta a receber (altera o registro). Em alguns casos (aleatórios), a conta a receber volta a ficar em aberto, como se não houvesse o pagamento (como se não tivesse a alterção). Note que, se no dia que foi feita a alteração o relatório for impresso, imprime normal, com a alteração correta. Alguns dias depois é que a tal conta aparece em aberto novamente. Agluém já passou por isso? Sei que Paradox não é o melhor banco de dados, mas sempre soube de perda de índices ou registros, mas nunca de perda de alterações... Se alguém puder me ajudar, agradeço muito. Cristiane Campanholo -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 9/3/2005 -- 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] ou [EMAIL PROTECTED] Atenciosamente Oswaldo dos Santos Araujo http://www.santosaraujo.com.br mailto:[EMAIL PROTECTED] Telefones escritório: (11) 6996-1101/6994-3586 celular: (11) 9259-4094 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.308 / Virus Database: 266.7.1 - Release Date: 09/03/05 -- 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] ou [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
[delphi-br] Re: POR FAVOR! Consulta SQL *Ajuda
Olá Anderson, Select na Compromissos excluindo o codigo 7 e um union de Select na Compromissos_rateio. Select C.DESCRICAO, sum(CP.VALOR) from centro_custo C, compromissos CP where C.cen_codigo=CP.cen_codigo and CP.cen_codigo7 ... (outras condições necessárias) group by C.Descricao Union all Select C.DESCRICAO, sum(CPR.VALOR) from centro_custo C, compromissos_rateio CPR where C.cen_codigo=CPR.cen_codigo and ... (outras condições necessárias) group by C.Descricao Problema irá duplicar empresas que tenham dados na compromissos e rateio Se utilizar o quickreport dá para criar um qrgroup de empresa... Outra solução Criar uma tabela temporária, gravar nesta temporária o Select da Compromissos e da Compromissos_rateio Neste caso, com os dados na temporária, você faz o Select que quiser Dependendo do banco de dados(PARADOX NÃO É BANCO DE DADOS, é uma ofensa aos bancos de dados chamar paradox de banco de dados...), tem opção de criação de tabela temporária somente para este fim... Exemplo: Create global temporary table Create Temporary table Ao finalizar a sessão a temporária é LIMPA... Se for *PARADOX*, pode-se criar uma tabela e apagá-la ao final tipo 'xtemp'+contador Um abraço e boa sorte, Carlos --- Em delphi-br@yahoogrupos.com.br, Anderson Cichon [EMAIL PROTECTED] escreveu Pessoal, estou com uma consulta aqui e não consigo fazer de forma alguma, preciso de ajuda por favor. A situação é mais ou menos a seguinte. Tenho 3 tabelas com a seguinte estrutura: Tabela CENTRO_CUSTO: CEN_CODIGO| DESCRICAO 1 | MATRIZ 2 | FILIAL 1 3 | FILIAL 2 4 | FILIAL 3 7 | RATEIO DO VALOR Tabela COMPROMISSOS: COM_CODIGO| CEN_CODIGO | VALOR | DESCRICAO 1 | 2 | 150,00 | Pgto. Água 2 | 7 | 200,00 | Pgto. ISS (Rateio entre filiais) Tabela COMPROMISSOS_RATEIO COM_CODIGO | CEN_CODIGO | VALOR 2 | 1 | 60,00 2 | 2 | 40,00 2 | 3 | 50,00 2 | 4 | 50,00 O programa funciona da seguinte maneira: Ele grava todos os compromissos a pagar na tabela COMPROMISSOS, sempre indicando qual o centro de custo a qual o compromissos esta sendo pago, mas, caso o centro de custo seja 7 - RATEIO DO VALOR então, grava-se no campo VALOR da tabela COMPROMISSOS o valor total do compromisso, e na tabela COMPROMISSOS_RATEIO grava-se o valor desse compromisso com o rateio para cada centro de custo como no exemplo a cima, onde para o CODIGO 2 na tabela COMPROMISSOS foi indicado o CODIGO 7 no campo CEN_CODIGO, portanto, para o valor desse compromissos, foi feito o rateio na tabela COMPROMISSOS_RATEIO, onde cada filial foi responsavel por uma certa quantia do valor total. Bom, na verdade foi feito dessa maneira, porque o programa não foi projetado para ratear o valor entre as filias, isso apareceu depois de pronto, então teve que ser contornado o problema. Agora a dúvida é a seguinte, preciso fazer uma consulta que me mostre o valor total por filial, somando os valores da tabela COMPROMISSOS e agrupando por CENTRO DE CUSTO, porém, caso o centro de custo seja o RATEIO DO VALOR, então a consulta precisa achar esse compromisso na tabela COMPROMISSOS_RATEIO, e somar ele no valor total. Deu pra entender? Bom, se alguém tiver alguma opinião de como fazer, fico muito agradecido... Obrigado pela colaboração Anderson -- 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] ou [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
[delphi-br] Re: Comando no beforePrint
Olá, Se é alguma variável que guarda dados cumulativos.. procedure seuformulario.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean); begin suavariavel := 0; end; Ou seja, sempre inicialize ela no BeforePrint do quickreport... Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Info Desenvolvimento [EMAIL PROTECTED] escreveu Alguém conhece algum comando que eu possa colocar no BeforePrint do relatório para enviar direto a impressora? ou que não passa novamente? O que ta acontecendo. Gera o relatório aparece o percentual das variáveis que foram alimentadas e quando imprime o sistema retorna para o beforeprint e calcula novamente enviando a impressora valores divido pelo total antes visto na tela. [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] ou [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
[delphi-br] Re: Mostrar Zero ao inves de Nulo
Olá, select coalesce(quantidade,0) (ou seja, se for nulo mostra zero)... Se for qrdb, coloque no mask do qrdb #,##0.00, se for qrlabel FloatToStrF(quantidade, ffNumber, valor_inteiro, decimais); Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Murilo Cunha \(Yahoo\) [EMAIL PROTECTED] escreveu Pessoal, Estou tentando fazer um relatorio com QuickReport 4.04 e não estou conseguindo formatar meus dados. Em minha tabela tenho um campo de quantidades. Este campo pode conter valores nulos (em branco). Quero q ao mostrar meu relatorio todos os registros com valores nulos em quantidade sejam mostrados como: 0,00 Como implementar isto??? Uso D7, IBX 7.08, FB 1.5.2 e QR 4.04 MSc.: Murilo Cesar Starke da Cunha Engenheiro Agrônomo [EMAIL PROTECTED] [EMAIL PROTECTED] (MSN) [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] ou [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
[delphi-br] Re: Qual o melhor banco de dados FREE
Olá, Firebird (tanto Windows como Linux, utilizamos os dois...), para começar é excelente... Já vi muita corrupção de dados no MySQL Windows e no PostgreSQL com Windows (com versão emulada... não testei a versão 8, que dizem ser nativa).. PostgreSQL com Linux=Excelente, na versão 8 até tablespace tem, esta cada vez mais parecido com o Oracle (aliás, falam e falam mal do Oracle, mas me parece que o Oracle é espelho para o PostgreSQL, claro a grande vantagem PostgreSQL em relação ao Oracle/SQLServer é ser free)... Um abraço, Carlos -- Em delphi-br@yahoogrupos.com.br, Slackeddie [EMAIL PROTECTED] escreveu Bom, eu uso mais o PostgreSQL, pois ele é bem robusto e muito bom de se usar. Mas se quiser tentar outras opções, pode usar os próprios Firebird e MySQL. Ambos também são muito bons. Abraços, On Wed, 9 Mar 2005 10:09:48 -0300, Marcelo Carvalho [EMAIL PROTECTED] wrote: Eu utilizo o Firebird e gosto muito, estou estudando um pouco de PostgreSQL e tb achei interessante, mas acredito que ele necessite de um pouco mais da máquina onde vai ser instalado, pode ser que esteja errado. Quanto ao Firebird, no início tive alguns problemas quanto a instalação dele em máquinas com Windows 95/98, mas agora que alterei meus instaladores de aplicações está fazendo a instalação do banco junto com a aplicação, agora está legal Marcelo Carvalho On Wed, 09 Mar 2005 12:57:03 -, Osmar de Souza Júnior [EMAIL PROTECTED] wrote: Eu uso PostgreSQL. Entre FireBird e PostgreSQL não existem diferenças estrondosas de recursos ou desempenho. São duas ótimas soluções e gratuitas. O que era chato trabalhar antes com Delphi/PostgreSQL é que tinha que usar componentes de terceiros, como o ZeosLib (que parece que parou). Mas agora já tem ODBC, e também dá pra conectar usando ADO. Entre FireBird e PostgreSQL cabe a você escolher. Eu uso PostgreSQL porque ele permite criar Triggers em C, o que achei particularmente interessante. Acho que o FireBird não permite isso. Mas também é só um detalhe. []s. --- Em delphi-br@yahoogrupos.com.br, M.M. [EMAIL PROTECTED] escreveu Boa Noite/Bom dia a todos. Estou migrando aplicacões para ambiente WINDOWS. Quero começar com o banco de Dados. Dos bancos FREE, qual voces sugerem para clientes de 1 a 32 maquinas, como ou sem acesso via NET. Grato a todos. -- 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] ou [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
[delphi-br] Re: compactador de executável
Olá, Estávamos utilizando o ASPACK... Depois das dicas do pessoal, até porque, com .exe compactado a abertura, principalmente com o Norton 2005, ficava extremamente lenta... Passamos a não utilizar mais nenhum compactador de executável e está muito melhor... Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Karkaju Karkamano [EMAIL PROTECTED] escreveu Busca por UPX : Ultimate Packer for eXecutables 1.90w ( versao q eu tenho) http://upx.sourceforge.net/ É free. On Wed, 9 Mar 2005 10:21:06 -0300, Fabiano Catrinck [EMAIL PROTECTED] wrote: Bom dia pessoal, O arquivo executável do meu sistema está ficando muito grande e eu gostaria de saber se existe algum programa para que eu possa reduzir o tamanho do meu .exe Desde já agradeço. Um abraço, Fabiano Catrinck - Programador Softguild Informática Ltda www.softguild.com.br ICQ 178241485 -- -- 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] ou [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
[delphi-br] Re: Imprimir pagina por Empresa
Olá, Procure pelo projeto qr3demo... Demos/Quickrpt... Tem o último relatório grouping and subtotaling(frmgrouping) Neste tem um qrgroup(é ele que faz o que você necessita) que para sair company quebrando por página, basta setar forceNewPage para true... Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, giuvany [EMAIL PROTECTED] escreveu Tenho aplicacao que imprime Clientes por empresa Só que gostaria que saísse cada pagina com o nome dos clientes de determinada empresa pois são varias empresas Exemplo Pagina1 Empresa 1 Associado 1 Associado 2 Associado 3 Associado 4 Associado 5 . Pagina2 Empresa 2 Associado 1 Associado 2 Associado 3 Associado 4 Associado 5 .. Uso Delphi7 e QuickReport Alguém tem uma alguma dica ou exemplo de como fazer para que em determinada pagina seja impresso apenas associados para aquela empresa? Desde já agradeço [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] ou [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
[delphi-br] Re: Função para converte valor para extenso
http://baixaki.ig.com.br/site/detail5737.htm tem muito mais coisas. Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, fpsp2000 [EMAIL PROTECTED] escreveu Ola! Alguem poderia me passar uma funçao q converta valor para extenso. Desde já agradeço, Fernanda -- 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] ou [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
[delphi-br] Re: Pesquisa SQL
Olá Willian Jerônymo, Vivendo e Aprendendo, muito legal !!! Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Willian Jerônymo - Yahoo [EMAIL PROTECTED] escreveu Você pode usar assim: Crie essa function: Function BuscaTroca(Text,Busca : String) : String; Var N : Integer; begin For N := 1 to Length(Text) do begin if Copy(Text,N,1) = ' ' then begin Delete(Text,N,1); Insert('%',Text,N); end; end; Result := '%' + Text + '%'; end; Depois declare uma variável: Var Troca : String; E no seu código utilize assim: Troca:= BuscaTroca(Edit3.Text,' '); //Para fazer a substituição dos espaços em branco por % Begin Close; SQL.Clear; SQL.Add('SELECT * from Produtos'); SQL.Add('Where DescProd LIKE QuotedStr(Troca)); Open; if DBEdit1.Text='' then ShowMessage('Nome não cadastrado'); Edit3.Setfocus; end; Willian Jerônymo - Original Message - From: Eduardo Silva ® To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 26, 2005 1:27 PM Subject: RES: [delphi-br] Pesquisa SQL Willian passa essa função pra mim que eu tentei fazer do jeito que colocaram com e não to conseguindo -Mensagem original- De: Willian Jerônymo - Yahoo [mailto:[EMAIL PROTECTED] Enviada em: quarta-feira, 26 de janeiro de 2005 13:19 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Pesquisa SQL O que você pode fazer é quando alguém for consultar alguma coisa você pode instruir a pessoal a digitar da seguinte maneira no seu Edit: %SHAMPOO%300ML% que irá dar certo, ou você pode fazer de uma maneira automática trocando os espaços em branco por % que fica melhor para o usuário. Se quiser te passo uma função que faz essa troca. Willian Jerônymo - Original Message - From: fabianojd To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 26, 2005 2:18 AM Subject: [delphi-br] Pesquisa SQL Gostaria de fazer pesquisa SQL por partes do nome completo. Ex. quero achar um SHAMPOO com 300ML, mas não sei o nome completo. Então digitaria: SHAMPOO 300ML. Normalmente o nome é: SHAMPOO NOME 300ML. a funcção que uso é: Begin Close; SQL.Clear; SQL.Add('SELECT * from Produtos'); SQL.Add('Where DescProd LIKE ''%'+Edit3.text+'%'' '); Open; if DBEdit1.Text='' then ShowMessage('Nome não cadastrado'); Edit3.Setfocus; end; Obrigado. -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- -- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: São Paulo Rio de Janeiro Curitiba Porto Alegre Belo Horizonte Brasília
[delphi-br] Re: Atualizacao de Executavel
Olá, Utilizo no delphi 6, o componente MD (Tlauncher)... Um abraço, Carlos http://www.fafem2cc.hpg.ig.com.br/componentes.htm --- Em delphi-br@yahoogrupos.com.br, Catiúscia Barrilli da Cruz [EMAIL PROTECTED] escreveu Entendi. mas... como se faz para atualizar o arquivo em si, via código - Original Message - From: José Augusto S. de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 20, 2005 7:43 AM Subject: Re: [delphi-br] Atualizacao de Executavel Function DataArquivo(Arquivo : String):String;stdcall; begin DataArquivo := DateToStr(FileDateToDateTime(FileAge(Arquivo))); end; Criei essa funcao que verifica a data do arquivo, ai e o seguinte verifique a data do arquivo da maquina do cliente, e a data do arquivo que esta no servidor, quando a do servidor for mais nova, vc atualiza o cliente. Lembrando sempre que pra fazer isso, e necessario verificar antes se o arquivo que se quer atualizar esta em uso, pq se estiver a atualizacao dara erro, se ele estiver e necessario que vc mate o processo dele primeiro, qualquer duvida estamos ai ! [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [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
[delphi-br] Re: Atualizacao de Executavel
Olá, Único porém. Certa vez, fomos infectados com o FunLove... Como o .exe fica na rede, já viu não é! Anti-vírus SEMPRE atualizados!!! Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Paulo Santana (Terra) [EMAIL PROTECTED] escreveu Carlos, o link está quebrado, tem como me enviar em PVT o componente ? carlos alberto do amaral wrote: Olá, Utilizo no delphi 6, o componente MD (Tlauncher)... Um abraço, Carlos http://www.fafem2cc.hpg.ig.com.br/componentes.htm --- Em delphi-br@yahoogrupos.com.br, Catiúscia Barrilli da Cruz [EMAIL PROTECTED] escreveu Entendi. mas... como se faz para atualizar o arquivo em si, via código - Original Message - From: José Augusto S. de Oliveira To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 20, 2005 7:43 AM Subject: Re: [delphi-br] Atualizacao de Executavel Function DataArquivo(Arquivo : String):String;stdcall; begin DataArquivo := DateToStr(FileDateToDateTime(FileAge (Arquivo))); end; Criei essa funcao que verifica a data do arquivo, ai e o seguinte verifique a data do arquivo da maquina do cliente, e a data do arquivo que esta no servidor, quando a do servidor for mais nova, vc atualiza o cliente. Lembrando sempre que pra fazer isso, e necessario verificar antes se o arquivo que se quer atualizar esta em uso, pq se estiver a atualizacao dara erro, se ele estiver e necessario que vc mate o processo dele primeiro, qualquer duvida estamos ai ! [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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- -- -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] --- avast! Antivirus: Outbound message clean. Virus Database (VPS): 0503-0, 18/01/2005 Tested on: 20/1/2005 13:13:36 avast! - copyright (c) 2000-2004 ALWIL Software. http://www.avast.com [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] ou [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
[delphi-br] Re: Exit
Olá, Pelo que entendi, você quer sair totalmente da procedure, se nada for escolhido no combo sexo... O exit está certo... agora... No break ele executa o messagedlg, o setfocus e o exit? Se não e se for um combobox, você pode verificar assim também: if cmbsexo.ItemIndex=-1 then begin mensagem; setfocus; exit; end; Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Márcio Theis [EMAIL PROTECTED] escreveu tire o exit abaixo da linha de comando CmbSexo.SetFocus; pois vc já da um setfocus e depois um exit, acredito ser isto. - Original Message - From: frcunhahell To: delphi-br@yahoogrupos.com.br Sent: Thursday, January 13, 2005 8:09 PM Subject: [delphi-br] Exit Tem um problema estranho por aki tem um trecho de codigo q eh o seguinte: if length(trim(CmbSexo.Text)) = 0 then begin MessageDlg('Digite o sexo', mtInformation,[mbok],0); CmbSexo.SetFocus; exit; end; Caso deixa o campo sexo em branco o programa deveria para a execucao do programa mas nao para e seguinte em diante. Mais estranh ainda eh q c eu colocar um break no if ele funciona normalmente... Alguem sabe o q pode ser acontecendo? Valew -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [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
[delphi-br] Re: SMTP + Autenticação
Olá, Veja se este artigo te ajuda, também tive vários problemas com o Terra!! Um abraço, Carlos P.S.: Ultimamente tenho utilizado o sakemail, não testei com o TNMSMTP, veja se funciona.. fonte: http://baixaki.ig.com.br/site/detail5737.htm 700 - O Dilema do envio de e-mail Um grande dilema pelo qual passei foi o envio de e-mail´s por programas feitos em Delphi. Os detalhes do problema seguem abaixo: - Fiz um programa para um cliente que tinha como opção o envio de relatórios por e-mail; - Todo o processo estava pronto e funcionando perfeitamente; - Quando passei para o cliente nada funcionou! Isso me deixou muito confuso, no meu computador continuava a funcionar perfeitamente! Como todos sabem precisamos configurar o NMSMTP com um servidor smtp (host) para o envio de e-mail´s. No meu caso estava usando UOL e sendo assim eu estava usando o SMTP.UOL.COM.BR como Host. Só que o meu cliente não usa UOL. E esse aparentemente era o problema. Não encontrei a solução sozinho e pedi ajuda a vários colegas programadores o qual um me respondeu da seguinte maneira: Se eu não me engano, no Uol vc deve primeiro baixar as mensagens para que depois ele deixe vc enviar, ou seja, para poder enviar mensagens, vc precisa estar autenticado la no UOL. Espero ter ajudado. Abraços, Fernando Gonçalves, Foi só isso que precisei para resolver todo o Dilema. Só precisaria me identificar no POP3 do UOL que estaria tudo resolvido. Então eu fiz: - Coloquei um componente NMPOP3 e antes dos comandos do NMSMTP eu coloquei esses do NMPOP3: //Processo de reconhecimento no POP3 do UOL NMPOP31.AttachFilePath := '.'; NMPOP31.DeleteOnRead := FALSE; NMPOP31.ReportLevel := Status_Basic; NMPOP31.TimeOut := 2; NMPOP31.Host := 'pop.uol.com.br'; NMPOP31.Port := 110; NMPOP31.UserID := 'MeuLogin'; NMPOP31.Password := 'Minha Senha'; NMPOP31.Connect; //Conexão não feita ele sai //Conexão feita ele desconecta e prossegue if not NMPOP31.Connected then exit else NMPOP31.Disconnect; //Prosseguindo ele agora tenta se conectar ao SMTP do UOL NMSMTP1.ClearParams := TRUE; NMSMTP1.Host := 'smtp.uol.com.br' NMSMTP1.Port := 25; NMSMTP1.UserID := 'MeuLogin' NMSMTP1.Connect; //Conexão não feita ele sai //Conexão feita ele prossegue If not NMSMTP1.Connected then exit; //Processo de envio NMSMTP1.PostMessage.Body.Clear; NMSMTP1.PostMessage.ToAddress.Clear; NMSMTP1.PostMessage.FromAddress := '[EMAIL PROTECTED]' NMSMTP1.PostMessage.FromName := 'Meu Nome Completo' NMSMTP1.PostMessage.Body.Add('Teste de envio de email'); NMSMTP1.PostMessage.Subject := ('Teste de Envio'); NMSMTP1.PostMessage.ToAddress.Add('[EMAIL PROTECTED]'); NMSMTP1.SendMail; Depois de estabelecer a conexão com o POP3 do UOL o envio pelo SMTP do UOL ficou liberado não importando em que provedor eu estivesse conectado. No meu caso eu pude usar POP3 e SMTP do UOL pois sou assinante do UOL, porém vc pode simplesmente criar um e-mail no IG, IEG ou outro serviço de e-mail grátis e pronto é só utilizar a dica!! Obs.: Nem todos os e-mail´s grátis tem serviço POP3! By Lloyd Dickinson LloydSoft --- Em delphi-br@yahoogrupos.com.br, Kleverson Cuzzuol Lopes [EMAIL PROTECTED] escreveu Tenho clientes que usam IG ou Y! e minha aplicação envia arquivos por smtp e preciso saber como posso autenticar através do TNMSMTP? Ja tentei usar a finalheader mas sem sucesso. Grato pela atenção -- 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] ou [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
OFF TOPIC [delphi-br] Temporary table resource limit
Olá xará, Procurei no metalink no Oracle, não achei nada... Fiz um teste aqui, fazendo um update em uma table e sem o commit, abri uma outra sessão e tentei alterar a table... Record locked by another user ORA-00054 resource busy and acquire with NOWAIT specied. Até aí normal !!! Você tem o número do erro no Oracle? Se os outros estão apenas utilizando pesquisas (select) na table, não era para acontecer isto Um abraço, Carlos como usuário system, executando o sql abaixo no sqlplus, dá para verificar se a table está travada por outro usuário.. --verlock.sql set linesize 132 pagesize 66 break on Kill on username on terminal column Kill heading 'Kill String' format a13 column res heading 'Resource Type' format 999 column id1 format 990 column id2 format 990 column lmode heading 'Lock Held' format a20 column request heading 'Lock Requested' format a20 column serial# format 9 column username format a10 heading Username column terminal heading Term format a6 column tab format a35 heading Table Name column owner format a9 column Address format a18 select nvl(S.USERNAME,'Internal') username, nvl(S.TERMINAL,'None') terminal, L.SID||','||S.SERIAL# Kill, U1.NAME||'.'||substr(T1.NAME,1,20) tab, decode(L.LMODE,1,'No Lock', 2,'Row Share', 3,'Row Exclusive', 4,'Share', 5,'Share Row Exclusive', 6,'Exclusive',null) lmode, decode(L.REQUEST,1,'No Lock', 2,'Row Share', 3,'Row Exclusive', 4,'Share', 5,'Share Row Exclusive', 6,'Exclusive',null) request fromV$LOCK L, V$SESSION S, SYS.USER$ U1, SYS.OBJ$ T1 where L.SID = S.SID and T1.OBJ# = decode(L.ID2,0,L.ID1,L.ID2) and U1.USER# = T1.OWNER# and S.TYPE != 'BACKGROUND' order by 1,2,5 --- Em delphi-br@yahoogrupos.com.br, Carlos Bernardo Schmidt [EMAIL PROTECTED] escreveu Pessoal, Alguma luz?? Estou realizando um alter table adicionando uma coluna em uma tabela pelo meu sistema em Delphi e aparece a seguinte mensagem Temporary table resource limit. Delphi 7 Banco Oracle Conexão via BDE Obs. É uma tabela que tem em torno de 320 campos e pelo que parece neste momento que ocorre isto é devido a uma select *, o qual é realizado internamente de alguma forma. Como faço para resolver isto? Atenciosamente, Carlos [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] ou [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
[delphi-br] Re: Apagar data de tabela paradox
update tabela set campodata = null; Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Vitor Luiz Redes [EMAIL PROTECTED] escreveu Já tentou Campo.Clear ? --- Vitor Luiz Redes Desenvolvimento --- Redsystem Informática [EMAIL PROTECTED] --- - Original Message - From: alisson_delphi To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 12, 2005 4:15 PM Subject: [delphi-br] Apagar data de tabela paradox Galera, preciso apagar uma data de uma tabela paradox. Na tabela esta marcando 30/12/1899, o campo é do tipo date. Como eu faço para apaga-lo ? Já tentei: tabelacampodata.asdatetime := 0; tabela.fieldbyname('data').AsDateTime := 0; tabelacampodata.isnull; Nada deu certo. To deseperado. Obrigado -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [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] ou [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
[delphi-br] Re: Tquery apanhando!
Olá, Não, porque, ele está dando um outro sql.add que vai para a próxima linha, logo, não vai ficar colado, mas é sempre bom dá um espacinho antes do where. Tente assim: ParamByName('pardata1').AsDateTime := strToDateTime (Timededata2.DateText); ou ParamByName('pardata1').AsDateTime := strToDateTime (Timededata2.Text); Um abraço, Carlos --- Em delphi-br@yahoogrupos.com.br, Osmar de Souza Júnior [EMAIL PROTECTED] escreveu Entre a palavra Auditori e Where precisa ter um espaço em branco: A sua query sairá assim: Select * from Auditoriwhere data between :pardata1 and :pardata2 Antes do Open, coloque um showmessage(sql.text), e verá que falta um espaço em branco... --- Em delphi-br@yahoogrupos.com.br, Reginaldo Terrabuio [EMAIL PROTECTED] escreveu Galera é o seguinte, tenho um Tquery, e estou tentando rodar o seguinte: with QryAudito do begin Close; sql.Clear; sql.Add ('Select * from Auditori'); sql.Add ('where data between :pardata1 and :pardata2'); ParamByName('pardata1').AsString := dedata1.DateText; *1 ParamByName('pardata2').AsString := dedata2.DateText; *1 Open; end; *1 -- Nesta parte ele não consegue retornar o valor correto à : pardata1, ou seja seria uma data, por exemplo 11/01/2005 qnd executo no SQL explorer faço o seguinte e da certo: select * from auditori where data between '01/11/2005' and '01/21/2005' será que ele não está colocando o apóstrofo nas datas? correto: '01/11/2005' incorreto: 01/11/2005. Qualquer ajuda é válida, Obrigado! [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] ou [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
[delphi-br] Re: Delphi + Paradox + VPN = Lentidão ABSURDA
Olá Bruno, Outra saída, só que mais radical :), utilizar um banco de dados de verdade como os servidores, pelo que você disse, são Linux, um PostgreSQL ou Firebird seria uma boa pedida. O problema é o sistema em delphi, tem que ver se eles tem uma versão para um banco de dados de verdade e/ou vão querer converter o mesmo. Um abraço, Carlos -- 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] ou [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