Erso

ola pessoal!! meu problema é o seguinte. Eu tenho um sistema de ponto de funcionários, ele funciona com biometria. Pra que a biometria funcione eu preciso inicializar o aparelho etal. O problema é quando o usuário abre o sistema duas vezes, então o aparelho é aberto duas vezes é da uns pau muito loco heheheh, então eu resolvi este problema impedindo que o usuario abrise o sistema duas vezes, So que se ele abre um sistema logado com um usuario edepois faz um logof e loga com outro ele consegue abrir o sistema isso gera o mesmo problema na "dll" do aparelho que se ele tivesse aberto duas vezes o parelho. alguém sabe como saber se um programa esta aberto em outro usuario do windows. perguntinha sacana essa não????hehehe

ola pessoal! eu tenho um OpenDialog e preciso fazer ele abrir em um determinado doretório ex 'c:\diretorio\diretorio2' eu já tentei colocar opendialog.filename:= 'c:\diretorio1\diretorio2'; mas ele abre no diretorio1 ao invés do diretorio2. ps: e se alguém souber, eupresiso que ele so fique nesse diretorio não abra masis pasta nenhuma e nem volte pasta obrigado!!

já tentou tirar as aspas?

você errou no seguinte o mysql não funciona assim você deveria ter feito um backup utilizando o " dump" gerando um arquivo ".Sql". dessa forma que você fez acredito não conseguir recupera-lo(pelo menos numca consegui). enfim boa sorte!!!

cara o mysql não funciona assim. você tem que fazer o seguinte. gere um arquivo ".sql" ai execute esse ".sql" gerado no seu servidor. no caso se você estiver montando um site e tal, vai ter uma opção no gerencoador para "Importar" então as querys desse arquivo serao executadas, e ai sim você tera seu banco. se tiver em casa so ezecute arquivo como script. Como Gerar ".sql" http://www.linhadecodigo.com.br/artigos.asp?id_ac=263

que tipo de erro??, se for na query , você pode ter definido o tipo de campo incompativel com o que você esta enviando. tenta a mascara assim "R$ 99,99;1;_"

Pesoal a quem pertence o Delphi? Li alguma coisa sobre o delphi ser descontinuado pela Borland (que ele iria parar de trabalhar com ferramentas de desenvolvimento, iria trabalhar so com sistema de análise de sistemas). e ouvi uma histórias sobre a MicreSofth ter Comprado alguém sabe de alguma coisa????? :blink:

o que acontece é o seguinte realmente a coluna "funcionario_id" não existe na sua consulta hehehehehhe a consulta retorna o campo camando o de "MAX" para retornar com o no me de funcionario_id faça o seguinte SELECT MAX(CAD_CLi) AS funcionario_id FROM TABELA cara vai funcionar certeza. pra fazer a consulta to vendo que você está usando uma query acho? pra resgatar o registro usa assim. last_cod := ZCod.FieldByName(' funcionario_id').AsInteger; new_cod := last_cod + 1; Vejo que você esta fazendo um auto incremento manual? Essa forma de pegar o ultimo registro e adicionar mais 1 para servir de chave promária não é o mais indicado. Pois se o sistema estiver em rede e várias pessoas estiverem cadastrando ao mesmo tempo, pode ocorrer de gravarem o mesmo registro. :D Boa sorte!!! e continua postando at seu problema ser resolvido

SELECT * FROM TABELA WHERE preço > :PRECOMENOR AND preço < :PRECOMENOR :PRECOMENOR é O 50.000,00 EO :preço MAIOR é O 60.000,00 é SO SUBSTITUIR OU SELECT * FROM TABELA WHERE preço BETWEEM :PRECOMENOR AND :PRECOMAIOR falou

http://lib.seven.com.br/ampliar.asp?codartigo=508

SELECT MAX(CAD_CLi) FROM TABELA

1- Use campos do tipo "blob" é esse tipo de campo que se usa com descrição ou imagem!!! 2- Eu não tenho certeza não tenho como testar agora, mas..., quando esta configurando o mysql, ele deve ter uma opção de linguagem!! esse link tem um cara com o mesmo problema que você vê la. http://www.guj.com.br/posts/list/23951.java mas acho que é na configuração

Cara não posso te ajudar muito !! mas tive esse mesmo problema quando tentava logar com um usuario que possuia senha, tenta logar com um usuario sem senha pra ver se você esta com o mesmo problema que eu!! hehhhe....eu ainda estou usando um usuario sem senha.

Concordo com o Progr'amador BDE é muito bom (Trabalho assim, na empresa onde trabalho), apesar de dar alguns paus quando usado com oracle ex. a propriadade "RecNo" muitas vezes vem como -1 apesar de ter varios registros delecionados. .. mas enfim na minha opnião não usaria o zeos, tive alguns problemas om ele e MySql, Tipo: não autenticava usuario com senha, procurei o que podia ser mas não achei nada do tipo. juniorboll, te aconselho dbExpres é uma tecnologia mais nova e otima pra se trabalhar em rede(que acho que é o que você está pensando)

Aghata o dialect é 3 mesmo. muito estranho esse erro. temta deletar o campo do tipo blob e criar no vamente. porque eu testei aqui do jeito que você está fazendo com print + ctrl+v e funcionou eu gravei e não deu erro nenhum!! que versão do delphi você esta usando ??? e versão do firebird?? não acredito que seja isso, mas.. enfim..

Aghata voce criou seu banco de dados FireBird com dialect 3 ??? porque eu testei a qui e fiz da mesmo forma que você, com ctl+v ai salva, não deu erro nehum.

oi Aghata desculpe se não fui claro o suficiente. O Churc tem razão esse open que eu coloquei é um componente, esquece essa linha você fez bem em comentar. explocando. essa linha "DBImage1.Picture.LoadFromFile(open.filename);" tem a mesma funçao quando você usa o "print" e da um "ctrl+v" , pra você não é inportante coloquei porque achei seria mais facil de você entender. se você fez tudo certinho e t gravando como você diz. o erro que ocorre é do delphi e não do seu sistema (é como se fosse um aviso). essa mensagem que o delphi coloca pra você não vai acontecer quando o sistema for rodado fora do delphi. Tem como desabilitar essa mesmo no delphi faz o seguinte va ao menu tools ->Debugger Option e na aba Language Exception desmarcar a opção Stop on Delphi Exceptions e deixar marcada a opção Integraded debugging issso fara com que essa mesmo de "Erro " desapareça.... Aghata.. continue postando ate que seu problema possa ser resolvido :D boa sorte!

ao fazendo uma observação. mikel se se quer apagar apenas um campo da tabela seria assim update Tabela set campo = '' where etc...

faz assim DmDados.Alunos.SQL.Add(sql); como no exempo provavelmente é porque você não esta dando espaço entre o campo está ficando tudo grudado

opa!!!! Aghata .. acabei de fazer um teste aqui dando um print va tela e um ctrl+v e gravando e deu certo é so fazer do jeito que eu coloquei no exemplo que da certo . falou :D

no meu exemplo eu pego de um arquivo, mas você pode colocar atravez "Clipboard" ctrl+v que é o que você está fazendo. da certo também, pois o poblema que você está temdo é na hora de gravar, certo? ps... so complementando tem como você fazer iso sem usar o "print/screen" tipo. clica num botao e o sistema faz isso sozinho. se você quiser posse te passar como faz . é so postar ai!!

Var sql :string; begin Sql := ' SELECT PESSOAS.NOME_PESSOA, PESSOAS.DATA_NASC FROM PESSOAS WHERE ( (EXTRACT(MONTH FROM PESSOAS.DATA_NASC) between ''' +Edit1.text+ ''' and '''+Edit2.text+''') and (EXTRACT(day FROM PESSOAS.DATA_NASC) between '''+Edit3.text+''' and '''+Edit4.text+''') ) '; então use a variavel "sql" para fazer a pesquisa. esse esquema de aspas ' '' assim é importante para que seu comando sql fique com aspas e pra você pegar so o dia ou so o ano ou mês de uma data ex."01/01/2007" use a função "DecodeDate" procedure TForm1.Button1Click(Sender: TObject); var Present: TDateTime; Year, Month, Day, Hour, Min, Sec, MSec: Word; begin Present:= Now; DecodeDate(Present, Year, Month, Day); Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month ' + IntToStr(Month) + ' of Year ' + IntToStr(Year); DecodeTime(Present, Hour, Min, Sec, MSec); Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour ' + IntToStr(Hour); end;

O Churc ten razao. copie o arquivo ".GDB". Da uma olhada nessa procedure peguei a algum tempo num site. Copiar um arquivo de um lugar para outro (topo) Procedure CopyFile( Const sourcefilename, targetfilename: String ); Var S, T: TFileStream; Begin S := TFileStream.Create( sourcefilename, fmOpenRead ); try T := TFileStream.Create( targetfilename, fmOpenWrite or fmCreate ); try T.CopyFrom(S, S.Size ) ; finally T.Free; end; finally S.Free; end; end; falou. :)

você pode estar com algum problema Nos Bands. Da uma olhada nesse tutorial, e veja se você esta usando as bands de modo que elas deem esse problema Tutorial espero ter ajudo!!! , se não de mais detalhes do seu problema. ;)

olha não entedi bem o que esta acontecendo, tente explicar melhor.. Dblookupcombobox funcinam da seguinte forma no seu caso DataSource -> tem qficarligada na sua DataSource da tabela principal(nesse caso Tabela Visita) DataField - > // no campo onde sera gravada(nesse caso se for o "Dblookupcombobox" do Cliente , então sera CodigoDoCliente) ListSource -> tem que ficarligada na sua DataSource da sua tabela de cliente contendo todos os seus clientes ListField -> no campo que você deseja listar no Dblookupcombobox(Acredito eu que seja o Nome do cliente). e por fim onde eu acredito que você pessa estar errando KeyField -> que sera o campo que vai ser gravado na sua tabelavisita (Acredito que seja codigo do cliente ). assim você deve fazer isso com todos os seus Dblookupcomboboxs. se fizer dessa maneira não tem erro. espero ter ajudado, se não posta ai com mais detalhes... :D