locorj

Fala galera fiz esse código pra validar data... mas o que está errado nele ?? ele para no primeiro no segundo if acho que não estou sabendo trabalhar com o val... alguém pode me dar uma ajuda !!!?? if Trim(camosentrada.Text) = '' then begin end else begin if val ((AnsiLeftStr(camosentrada.text,2))) > 31 and (val ((AnsiMidStr(camosentrada.text,2,2))) > 12) then begin messagebox (Handle,'Data Inválida, digite no formato DD/MM/YYYY','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end else begin if val ((AnsiRightStr(camosentrada.text,4)))mod 4 <> 0 and (val ((AnsiMidStr(camosentrada.text,2,2)))=2) and (val ((AnsiLeftStr(camosentrada.text,2))) = 28)then begin messagebox (Handle,'Data Inválida','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end else begin if val ((AnsiMidStr(camosentrada.text,2,2)))mod 2 <> 0 and (val ((AnsiLeftStr(camosentrada.text,2))) = 30) then begin messagebox (Handle,'Data Inválida','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end else begin if val ((AnsiMidStr(camosentrada.text,2,2)))mod 2 =0 and (val ((AnsiLeftStr(camosentrada.text,2))) = 31) then begin messagebox (Handle,'Data Inválida','Aviso do sistema',MB_OK+MB_ICONINFORMATION); camosentrada.Clear; camosentrada.SetFocus; end else begin end; end; end; end; end;

o Erro é 'data type mismatch in criteria expression'. ele completo fica assim... Project cirus.exe raised class EOleException with message 'data type mismatch in criteria expression'. Estou fazendo acesso a um BD access via ADO, no meu projeto tenho uma data module com um TADOconnection, TADOtable que ligo no TADOconnection, TDataSource que ligo no TADOtable, e um TADOquery que ligo no TDataSource e no TADOconnection, as ligações estão corretas ?

Tenho em meu programa um botão de navegação de registros... minha intenção com esse código é toda vez que altere o registro ele pegue o valor referente ao cadastro da os que é o campo camoscadastro.Text (DBedit) e faça execute essa sql... mas tá dando erro na hora de executar... como eu faço corretamente... acessodados.frmdados.sqltabelatrocadas.Close; acessodados.frmdados.sqltabelatrocadas.SQL.Text:='select * from os_pecas where pectroc_oscadastro=' + quotedstr(camoscadastro.Text); acessodados.frmdados.sqltabelatrocadas.Open;

Fala galera to matando quase todas... A Resposta da segunda pergunta.... no evento oncolenter do dbgrid acessodados.frmdados.tabelatrocadas.Fields[0]:= acessodados.frmdados.tabelaos.Fields[0]; // Coloca o codigo da os corrente no pectroc_oscadastro acessodados.frmdados.tabelatrocadas.Fields[2]:= acessodados.frmdados.tabelapecas.Fields[4]; // Colocar o preço corrente na no campo pectroc_valor Agora só falta saber como faço pra evitar que o dbgrid inclua e delete e a consulta sql.... vamos lá galera dá uma força !!!

Resolvi o problema parcialmente.... Coloquei com dblookupcombobox no dbgrid... ai o usuário seleciona a peca pelo nome mas cadastra o numero da peça... fiz uma grid manualmente... só com o valor e a peça... mas ainda preciso fazer a sql... para que seja vizualizado somente as peças correspondentes a O.S Agora pra ficar legal preciso saber algumas coisas... 1 - Como faço para o dbgrid somente alterar... não quero que ele inclua nem delete. preciso que seja feito isso por um botão. 2 - Ao selecionar uma peça pelo dblookupcombobox dentro do dbgrid preciso que ele pegue o valor da peça.... como faço isso ???

Olá galera beleza ??? Olha só tenho em meu projeto uma tabela chamada os_pecas ela é responsável por armazernar as pecas trocadas em uma O.S nessa tabela tenho 3 campos, pectroc_peca, pectroc_valor os_pecas o primeiro pra armazenar o numero de cadastro da peca e segundo pra armazenar o valor da peca, e o terceiro pra armazenar a qual O.S elas são ligadas... No form eu tenho um dbgrid e um dblookupcombobox. Quero que funcione assim o cara seleciona no dblookupcombobox a peça clique no botão adiconar no dbgrid apareça na grid somente o nome da peça e o valor... sendo que ele só pode alterar o valor. Tenho quase tudo pronto... mas ainda não sei como faço pra alimentar a grid com essa sql select pectroc_peca, pectroc_valor from os_pecas where pectroc_oscadastro= + quotedstr(camoscadastro.text); É um banco de dados access estou usando ado.

se a libmysql.dll estiver no diretório onde está o programa e ainda assim es'ta dando erro registre-a... prompt vá até ao diretório do programa e digite regsvr32 libmysql.dll

Eu não te aconselho pegar um US pci... porque a maioria desses modens que tem aqui no brasil é winmdem e a US não dá suporte pra linux... o modem que aconselho se você comprar um é o externo da US esse funciona sem grilo algum... Já tentou fazer ele funcionar com quais kernel ??

Seu ip é valido ?? o dominio é local ??

Como faço para atribuir o valor de um tdatetimepicker no dbedit ?? Sei que é pela propriedade time ou date, mas quando coloco dbedit.text:= tdatetimepicker a propriedate time não aparece... como faço pra fazer isso ??? Meu interreçe nisso de fazer isso é fazer uma validação de data simples...

valeu mesmo Graymalkin funcionou redondinho.

E ai galera beleza ?? Estou querendo saber como faço pra criar uma procedure publica, no meu programa tenho um cadastro de clientes toda vez que alguém vai adicionar ou editar um registro os botões de navegação de registros tem que estar desabilitatos... eu queria uma forma, de ao invés de ter que colocar no evento do botão adicionar pra ele desabilitar os botões de navegação, tivesse uma procedure desabilitar_navegacao onde tivesse tudo isso... ai era só chamar a procedure...

Descobri o que é... é a opção keyfield... tb tem que estar selecionada..

Exatamente... estou fazendo um projeto win32. Eu faço assim, coloco um componente TADOConnection na guia dbGo pra fazer a conexão.... e um componente TADOTable para cada tabela que uso em meu programa. Depois vou na guia Data access coloco um TDataSource para cada TADOTables que eu tenho, tudo isso dentro de um data module e ligo os componentes dblookupcombobox nos TDataSource... Verifiquei a opção active em todas adotables e todas estão ativas... o estranho que eu consigo editar, excluir, adicionar normalmente.... o que não funciona é a dblookupcombobox. Eu como sou iniciante em delphi não estou entendendo porque isso acontece com um único componente...Se quiser posso te enviar o projeto que estou fazendo para você analizar...

Fala galera estou fazendo um projeto simples.... mas hj aconteceu uma coisa muito estranha... eu estava usando várias dblookupcombobox só que agora simplesmente do nada todas ela não querem habitilar... e em outros projetos elas tb não funcionam.... tentei criar um do 0 e nada a mesma coisa !!! alguém sabe se isso é um bug do delphi 2005 ??? já tentei colocar um combo ele funciona normalmente... mas o dblookupcombobox não rola de forma alguma !!! o que será ??

Valeu mesmo... era exatamente isso....

Fala galera beleza ??? Estou querendo saber como posso capturar o valor selecionado no dblookupcombobox, pois no meu programa preciso que esse campo seja obrigatório.