olá amigo
estou com a seguinte duvida.
estou fazendo uma consulta no delphi por data usando banco de dados sql server.
quando eu faço a consulta por data intercalada ex: 01/01/2009 a 15/01/2009 ele funciona normal.Mais quando eu faço uma
consulta por data com o mesmo dia exp: 15/01/2009 a 15/01/2009 ele não me mostra nada.
Alguns pessoas falão que é porque ele armazena a hora. como faço para resolver esse proble.
logo abaixo segue o codigo de instrução que estou sando na consulta
ADOQuery_Venda.Close;
ADOQuery_Venda.SQL.Clear;
ADOQuery_Venda.Sql.Add('Select *');
ADOQuery_Venda.SQL.Add('From Kit');
ADOQuery_Venda.Sql.Add('Where Kit.Data >= :Data1_P and Kit.Data <= :Data2_P');
ADOQuery_Venda.Sql.Add('Order By Kit.Data');
V_Data_Ini := datetoStr(DateTimePicker_Data1.Date);
V_Data_Final := datetoStr(DateTimePicker_Data2.Date);
ADOQuery_Venda.Parameters[0].Value := StrTodate(V_Data_Ini);
ADOQuery_Venda.Parameters[1].Value := StrTodate(V_Data_Final);
ADOQuery_Venda.Open;
muito obrigado
Boa tarde a todos, estou terminando um trabalho e preciso de uma ajuda, em meu trabalho tenho um formulário onde o usuário irá cadastrar todas as datas em que precisa efetuar pagamentos. Já coloquei o botão que salva em tabela (paradox) um determinado cadastro, ex:
Campo (Tipo de Pagamento) : Conta de água (Edit)
Campo (Data de Pagamento) : 01/03/2009 (Datatimepick)
até aqui tudo bem, só que quero uma função que dê ao usuário a opção de salvar o cadastro com datas futuras, ou seja, o pagamento de água é realizado todos os mês, então ao invés de todos os meses o usuário realizar o cadastro deste pagamento, quero que ele cadastre uma única vez com a opção do de repetir o cadastro por 1 ano, 5 anos, 10 anos ou indefinidamente, outro ex:
Campo (Tipo de Pagamento) : Conta de água (Edit)
Campo (Data de Pagamento) : 01/03/2009 (Datatimepick)
Opções:(X)repetir 1 , ( )repetir 5 , ( )repetir 10 , ( )repetir Indefinadamente
(A opção escolhida acima foi 1 ano, ai o sistema vai salvar na tabela o seguinte):
Campo Campo
Tipo de Pagamento Data de Pagamento
Conta de Água 01/06/2009
Conta de Água 01/07/2009
Conta de Água 01/08/2009
Conta de Água 01/09/2009
Conta de Água 01/10/2009
Conta de Água 01/11/2009
Conta de Água 01/12/2009
Conta de Água 01/01/2010
Conta de Água 01/02/2010
Conta de Água 01/03/2010
Conta de Água 01/04/2010
Conta de Água 01/05/2010
ou seja o sistema vai salvar 12 datas consecutivas, com o mesmo dia, mudando apenas o mês e o ano.
Muito Obrigado Antecipadamente.
estou usando o delphi7 uso um componente da aba "BDE" chamado query dentro deste componete digito os cmando do banco de dados para fazer a insersão no BD na opção SQL
'insert into funcionarios (empresa,nomefuncionario,telefone,celular,dataadmissao) values (:campo2,:campo3,:campo4,:campo5,:campo6)'
no botão de incluir uso o seguinte codigo.
' query1.Params.ParamByName('campo2').Value :=strtoint(lbcodempresafunc.Text);
query1.Params.ParamByName('campo3').Value :=lbnomefuncionario.Text;
query1.Params.ParamByName('campo4').Value :=lbtelfixofuncionario.Text;
query1.Params.ParamByName('campo5').Value :=lbcelularfuncionario.Text;
query1.Params.ParamByName('campo6').Value :=dataadmissao.Text;
query1.ExecSQL;
query1.Close; '
Espero que te ajude!
Querida Jacqueline
Tente ver se está tudo conectado ao banco de dados, no site www.planetadelphi.com.br você encontra muitos exemplos.
Data: 24/06/2009 11:37
De: ailton jose da silva monteiro
IP: 189.80.50.204
Assunto: Re: Projeto
eu queri asaber como eu faço pra personalizar o meu pro jeto que foi criado no delfhi 7.0
se vc pode me ajudar eu fico a gradecido ok um braço
Bom dia, no dia 19/02/1990, voltava com minha familia de Marataízes(ES), quando nos acidentamos; morreu meus pais e duas irmãs. Gostaria de saber mais detalhes do acidente. Sei que ja passaram muitos anos, mas só agora, tenho condiçoes de me envolver em tal fato. Atenciosamente por Deus se podurem me ajudar, obrigado, Vitor.
Bom dia, no dia 19/02/1990, voltava com mina familia de Marataízes(ES), quando nos acidentamos; morreu meus pais e duas irmãs. Gostaria de saber mais detalhes do acidente. Sei que ja passaram muitos anos, mas só agora, tenho condiçoes de me envolver em tal fato. Atenciosamente por Deus se podurem me ajudar, obrigado, Vitor.
Data: 08/06/2009 01:43
De: vitor miranda guimaraes (vitor28
@ig.com.br)
IP: 189.106.72.52
Assunto: Re: Busca por data
voltava com mina familia de Marataízes(ES), quando nos acidentamos; morreu meus pais e duas irmãs. Gostaria de saber mais detalhes do acidente. Sei que ja se passaram muitos anos mas só agora tenho condiçoes de me envolver em tal fato. Atenciosamente por Deus se podurem me ajudar, obrigado, Vito.
Amigo, Para vc não pegar o mesmo código já existente vc deve usar esse script:
"SELECT MAX(CampoCodigo + 1) as Codigo_Novo FROM Table"
aí vc usa o field "Codigo_Novo" para carregar o CampoCodigo do novo registro, e se vc tem mais de um usuário fazendo inserção ao mesmo tempo, tem que usar no AfterPost, pois para usar no BeforePost vc precisaria ter uma table de controle separada.
Boa noite, desculpe minha inesperiencia, tenho uma academia e estou criando um sistema de montagem de treino de musculação, pois comprei um e acabei não gostando, não entendo nada de programacão, mas gosto de aprender, gostaria de que se fosse possivel, me enviar os comandos utilizados nos mesmos botoes encontrados no dbnavigator, pois gostaria de colocar realmente botoes, estou usando o componente adoconnection, adotable e datasource, desde já agradeço a ajuda.
Data: 09/01/2009 16:31
De: Vanessa (vasilvaoliveira
@gmail.com)
IP: 201.15.130.32
Assunto: Grid
Preciso que apareça as informações de uma linha do grid em outra cor, só que quero que apareça essa outra cor quando a data de vencimento vencer..
Exemplo.
tenho um vencimento dia 10/01.hoje a linha do grid que tem esse vencimento é preta, só que amanhã é dia 10/01 e automaticamente a linha tem que ficar vermelha.
Será que vcs podem me ajudar??
Obrigada
Data: 18/11/2008 18:15
De: guercyene
IP: 201.51.92.70
Assunto: Delphi
preciso de ajuda pra desenvolver um progama pra cadastra uma farmacia com o progama delphi no aguardo.
olha cara digamos que vc já está gravando tudo certinho no banco então nos MASKEDIT vc vai fazer o seguinte:
NomedoClienteDataSet.FieldByName('Nome do campo no Banco de dados').AsString:=NomedoMaskEdit.text;
lembrando que o ASSTRING citado está fazendo a conversão para string pode ser que no seu caso a conversão vai ser outro, por exemplo se for converter o maskedit para inteiro vai ficar ASINTEGER.
espero que tenha entedido, qualquer dúvida entra em contato por email zezimfederal@yahoo.com.br
Ola a Todos estou aqui para Todos que mexen em Delphii estou aki para propror para vc que Tall nois Criar um Anti-Virus Totalment no Delphii me add ntkhacker@hotmail.com
Olá Kelly!
Eu sei q tem como fazer isso pelo componente PictureDialog pq ja vi tuto disso na net.. mas nao sei quais os comandos nao = /
Procura na net sobre esse componente que talvez voce ache..
Se quiser me adicionar no msn pra gente trocar uns códigos.. =) cpu.br@hotmail.com
Abraços!
DEUS abençoe a todos. Voces tiraram o velho aqui de um SUFOCO !!!
a minha duvida eh a mesma de muitos da minha sala e vc poderia mandar exemplos de acessos de delphi a banco de dados SQL server(update,delete,insert,select)...
Oi estou tentando fazer tratamento de uma imagem(foto captada por uma câmera) e preciso aumentar a resolução da foto alguém por favor conhece um componente no delphi ou um modo que eu possa fazer isso??
Obrigada
Estou precisando de um curso de delphi completo apostilado.
MAIS INFORMAÇÕES CURSOS DE INFORMATICA EM DVD ACESSE;
http://www.quebarato.com.br/thomask8/anuncios
http://thomask8cursos.wordpress.com
Contato para envio: thomask8@gmail.com
MEGA CURSOS EM DVDs R$ 19,90 - FRETE GRATIS
VALE A PENA CONHECER!
Estou desenvolvendo um Sistema de cadastro de Clientes utilizando o banco de dados ACCESS, nele será cadastrado uma data de agendamento de consulta, cada Cliente só poderá passar de 15 em 15 dias, queria fazer uma rotina para bloquer Clientes espertinhos que tentassem passar antes dos 15 dias, como eu faria esse código amigos!!!
Olá, sou Jacqueline e estou fazendo um curso de Delphi aqui na Espanha. Tenho muitas dificuldades de encontrar livros pois estou numa cidade muito pequena. Necessitava um programa básico para guardar uma agenda pessoal (nome, endereço e telefone). Sei os comandos mas afinal nada me funciona...Estou utilizando atualmente o Delphi 6.
queria saber sobre formularios de pesquisas de idosos de abrigo
objetivo geral: analisar os principais motivos que levam o idoso se abrigar na casa de repouso São José na cidade de macapá.
com urgência
Ola , sou iniciante, eh coloquei uma pesquisa num Edit num form de cadastro de descrições, o problema eh que quando quero incluir ou editar uma descrição da um erro, ( Cannot perform this operation on an open dataset
eis o codigo
if key =#13 then
begin
screen.cursor:=crHourGlass;
QueryDescricao.close;
QueryDescricao.sql.clear;
QueryDescricao.SQL.add('Select * From CADDESCRICAO Where UPPER(DsDescricao) like :p_titulo');
QueryDescricao.sql.add('ORDER BY DsDescricao');
QueryDescricao.ParamByName('p_titulo').asString:='%'+UpperCase(Edit1.Text)+ '%';
QueryDescricao.Open;
screen.cursor:=crDefault;
edit1.Text:='';
Data: 13/11/2007 18:41
De: Gissa (gissatorres
@yahoo.com.br)
IP: 201.77.112.10
Assunto: Busca por data
Olá, pessoal
Estou com problemas quando utilizo o seguinte código na procedure de busca por data:
begin
FormatDateTime('dd-mm-yyyy',dtePlantio.Date);
try
Transacao.TransactionID := 1;
Transacao.IsolationLevel := xilREPEATABLEREAD;
dmDados.SQLConnection1.StartTransaction(Transacao);
with SimpledtsTabela do
begin
Close;
DataSet.CommandText := 'SELECT * from CULTIVO where DATA_PLANTIO = ' + DateToStr (dtePlantio.Date);
Open;
dbgPesqCultivo.Refresh;
dmDados.SQlConnection1.Commit(Transacao);
if RecordCount = 0 then
begin
MostrarTodosRegistros;
cmbGleba.SetFocus;
Exit;
end;
end;
except
on Exc:Exception do
begin
dmDados.SQLConnection1.Rollback(Transacao);
Exit;
end;
end;
end;
Recebo uma mensagem de erro.......
.....raised exception class EDatabaseError with message 'Conversion error from string'
Alguém pode me ajudar?
[]s,
Gissa
tenta adicionar na uses a unit DB ou BD naum me lembro a ordem das letras....
abs
também estou com esse problema, por favor se alguém tiver algo a respeito por favor me mande, meu e-mail é ademirjcarneiro@itelefonica.com.br
Também estou nesse dilema, se já conseguiu passa pra mim o código por favor.
Obrigado desde já.
Afrânio
Oi
gaspar
Por gentileza, estou com esse problema tambem
sou novato em Delphi
Se vdc consegui resolverm me de a dica
jorge-sousa@uol.com.br
Bom dia!
Eu estou com um probleminha... eu tento fazer consultas utilizando inner join, mas não sei se estou usando certo...
O erro q da é de q o parâmetro não foi encontrado, e eu já adicionei o parâmetro! Alguém teria alguma idéia do q eu posso ter esquecido?
Obrigada.
