Re: [delphi-br] Onde está o erro?
não funcionou
Att.
Rodrigo
Moacir (gmail) escreveu:
> Galvao,
>
> Não estou com o Delphi aqui, mas tenta assim:
>
> IF not (frmmntalterar is nil) then
> begin
> if frmmntalterar.EDITAR=2 then
> begin
> frmmntalterar.dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',
> frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,
> []);
> btnexcluir.Visible:=True;
> end;
> end;
>
>
> [ ]´s
> Moacir
>
> galvao_em escreveu:
>
>> Como eu faço para saber se um form está "Nil" ou não.
>> pois tenho o seguinte código:
>>
>>
>> IF not (frmmntalterar=nil) then
>> begin
>> if frmmntalterar.EDITAR=2 then
>> begin
>>
>> dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,[]);
>> btnexcluir.Visible:=True;
>> end;
>> end;
>>
>> mas ele não funciona de jeito nenhum. preciso muito de ajuda.
>>
>> Att.
>>
>> Rodrigo Galvan
>>
>>
>> ___
>> Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
>> http://br.info.mail.yahoo.com/
>>
>>
>>
>
>
>
>
___
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://br.info.mail.yahoo.com/
--
< 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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] Onde está o erro?
Galvao,
Não estou com o Delphi aqui, mas tenta assim:
IF not (frmmntalterar is nil) then
begin
if frmmntalterar.EDITAR=2 then
begin
frmmntalterar.dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',
frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,
[]);
btnexcluir.Visible:=True;
end;
end;
[ ]´s
Moacir
galvao_em escreveu:
> Como eu faço para saber se um form está "Nil" ou não.
> pois tenho o seguinte código:
>
>
> IF not (frmmntalterar=nil) then
> begin
> if frmmntalterar.EDITAR=2 then
> begin
>
> dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,[]);
> btnexcluir.Visible:=True;
> end;
> end;
>
> mas ele não funciona de jeito nenhum. preciso muito de ajuda.
>
> Att.
>
> Rodrigo Galvan
>
>
> ___
> Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
> http://br.info.mail.yahoo.com/
>
>
--
< 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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Onde está o erro?
Como eu faço para saber se um form está "Nil" ou não.
pois tenho o seguinte código:
IF not (frmmntalterar=nil) then
begin
if frmmntalterar.EDITAR=2 then
begin
dmsistema.mdo_sqlmotorista.Locate('ID_MOTORISTA',frmmntalterar.mdo_sqlauteracoes_motoristaID_MOTORISTA.AsInteger,[]);
btnexcluir.Visible:=True;
end;
end;
mas ele não funciona de jeito nenhum. preciso muito de ajuda.
Att.
Rodrigo Galvan
___
Abra sua conta no Yahoo! Mail: 1GB de espaço, alertas de e-mail no celular e anti-spam realmente eficaz.
http://br.info.mail.yahoo.com/
--
< 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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
RE: [delphi-br] Onde está o erro?
Experimentou passar essas datas na sua instrução SQL no formato mm/dd/?
Sds.
>From: "effgen9" <[EMAIL PROTECTED]>
>Reply-To: delphi-br@yahoogrupos.com.br
>To: delphi-br@yahoogrupos.com.br
>Subject: [delphi-br] Onde está o erro?
>Date: Mon, 22 May 2006 12:45:41 -
>
>Olá, pessoal.
>Tenho uma tabela em paradox e uso D7.
>Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
>10.
>Estou começando a trabalhar com SQL. Passo dois parâmetros
>Data_Inicial e data_final e gostaria de saber os contratos que estão
>entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
>retornou um resultado maluco.
>Como converto a data que está na tabela como string para data?
>
>Segue a procedure:
>procedure TForm21.BitBtn2Click(Sender: TObject);
>VAR
> INICIO, FINAL: Tdate;
>begin
> Table1.Open;
> Query1.Open;
> {}
> INICIO:=strtodate(MaskEdit1.Text);
> FINAL:=strtodate(MaskEdit2.Text);
> {}
> QUERY1.CLOSE;
> QUERY1.SQL.CLEAR;
> QUERY1.SQL.ADD('SELECT *');
> QUERY1.SQL.ADD(' FROM Contratos_dados');
> QUERY1.SQL.ADD(' WHERE data_final >= '''+INICIO+''' AND');
> QUERY1.SQL.ADD('DATA_FINAL <= '''+FINAL+''' ');
> QUERY1.SQL.ADD(' ORDER BY CONTRATO');
> QUERY1.OPEN;
> {}
>end;
>
>
>
>
>
>
>
_
MSN Busca: fácil, rápido, direto ao ponto. http://search.msn.com.br
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] Onde está o erro?
Porque vc não altera o campo da tabela para data?
Em 22/05/06, effgen9 <[EMAIL PROTECTED]> escreveu:
>
> Olá, pessoal.
> Tenho uma tabela em paradox e uso D7.
> Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
> 10.
> Estou começando a trabalhar com SQL. Passo dois parâmetros
> Data_Inicial e data_final e gostaria de saber os contratos que estão
> entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
> retornou um resultado maluco.
> Como converto a data que está na tabela como string para data?
>
> Segue a procedure:
> procedure TForm21.BitBtn2Click(Sender: TObject);
> VAR
> INICIO, FINAL: Tdate;
> begin
> Table1.Open;
> Query1.Open;
> {}
> INICIO:=strtodate(MaskEdit1.Text);
> FINAL:=strtodate(MaskEdit2.Text);
> {}
> QUERY1.CLOSE;
> QUERY1.SQL.CLEAR;
> QUERY1.SQL.ADD('SELECT *');
> QUERY1.SQL.ADD(' FROM Contratos_dados');
> QUERY1.SQL.ADD(' WHERE data_final >= '''+INICIO+''' AND');
> QUERY1.SQL.ADD('DATA_FINAL <= '''+FINAL+''' ');
> QUERY1.SQL.ADD(' ORDER BY CONTRATO');
> QUERY1.OPEN;
> {}
> end;
>
>
>
>
>
>
>
>
>
> --
> < FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
[As partes desta mensagem que não continham texto foram removidas]
--
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
Re: [delphi-br] Onde está o erro?
[-x-]
effgen9 escreveu:
Olá, pessoal.
Tenho uma tabela em paradox e uso D7.
Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
10.
Estou começando a trabalhar com SQL. Passo dois parâmetros
Data_Inicial e data_final e gostaria de saber os contratos que estão
entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
retornou um resultado maluco.
Como converto a data que está na tabela como string para data?
[-x-]
[Welson] Tente assim:
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: TDate;
begin
Table1.Open;
{}
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
{}
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD(' SELECT * ');
QUERY1.SQL.ADD(' FROM Contratos_dados ');
QUERY1.SQL.ADD(' WHERE data_final between ' + QuotedStr(INICIO) + ' AND ' + QuotedStr(FINAL));
QUERY1.SQL.ADD(' ORDER BY CONTRATO ');
QUERY1.OPEN;
{}
end;
[]s.
=
"O que me preocupa não é o grito dos maus. É o silêncio dos bons."
Martin Luther King.
=
Welson de Avelar Soares Filho
Analista/Programador Delphi
Gemini Sistemas
Juiz de Fora - Minas Gerais
=
-
Yahoo! Search
Música para ver e ouvir: You're Beautiful, do James Blunt
[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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Onde está o erro?
Olá, pessoal.
Tenho uma tabela em paradox e uso D7.
Nesta tabela Contratos_Dados tenho um campo data que é Data_final,A,
10.
Estou começando a trabalhar com SQL. Passo dois parâmetros
Data_Inicial e data_final e gostaria de saber os contratos que estão
entre estas datas. Já fiz a pesquisa usando as datas como Alfa e me
retornou um resultado maluco.
Como converto a data que está na tabela como string para data?
Segue a procedure:
procedure TForm21.BitBtn2Click(Sender: TObject);
VAR
INICIO, FINAL: Tdate;
begin
Table1.Open;
Query1.Open;
{}
INICIO:=strtodate(MaskEdit1.Text);
FINAL:=strtodate(MaskEdit2.Text);
{}
QUERY1.CLOSE;
QUERY1.SQL.CLEAR;
QUERY1.SQL.ADD('SELECT *');
QUERY1.SQL.ADD(' FROM Contratos_dados');
QUERY1.SQL.ADD(' WHERE data_final >= '''+INICIO+''' AND');
QUERY1.SQL.ADD('DATA_FINAL <= '''+FINAL+''' ');
QUERY1.SQL.ADD(' ORDER BY CONTRATO');
QUERY1.OPEN;
{}
end;
--
< 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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!.
[delphi-br] Onde está o erro?
Bom dia a todos. [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
Re: [delphi-br] Onde está o erro?
o erro é que vc estava tentanto modificar um registro mas passava na clausula
where os novos valores e não os valores que estão na tabela.
Olá, isso ja aconteceu comigo, vamos lá..
imagine a tabela "Areas"
digamos que não existe chave primaria e vc pode
querer mudar os 2 campos.
idArea nomeArea
258 bahia
358 Espirito Santo
458 Minas Gerais
//novo sql
UPDATE areas SET
idArea =:New_idArea,
nomeArea =:New_nomeArea
WHERE
idArea =:Old_idArea and
nomeArea =:Old_nomeArea
No formulario, botão alterar:
operacao := 2;
edtidArea.Enabled:= True;
edtNomeArea.Enabled := True;
// crie 2 variaveis para armazenar os valores antigos que estão na tabela.
OldArea := edtidArea.text;
OldNome := edtNomeArea.text;
EdtNomeArea.SetFocus;
No formulario, botão Gravar:
if operacao = 2 then begin
with dm.IBQAltAreas do begin
//Novos valores a serem gravador...
ParamByName('New_idArea').AsStrin := EdtidArea.Text;
ParamByName('New_NomeArea').AsStrng:=
EdtNomeArea.Text;
// valores antigos usados no where...
ParamByName('Old_idArea').AsStrin := OldArea;
ParamByName('Old_NomeArea').AsStrng := OldNome;
ExecSQL;
dm.IBQaltAreas.Close;
dm.IBTransaction1.Commit;
end;
Beep;
MessageDlg('A Alteração da Área: ' + #13 +
EdtNomeArea.Text +
#13 + 'foi executada com sucesso.',
mtInformation,[mbOK], 0);
end;
agora se vc criar um campo e definir como chave primaria nao precisa de nada
disso.
=
>De:"fabiano_jd" <[EMAIL PROTECTED]>
>Para:delphi-br@yahoogrupos.com.br
>Assunto:[delphi-br] Onde está o erro?
>
>
>
> Não está alterando os dados:
>
> Em uma IBQuery :
>
>UPDATE areas
>SET
> idArea =:par_idArea,
> nomeArea =:par_nomeArea
>WHERE
> idArea =:par_idArea
>
>
> No formulario, botão alterar:
>
> operacao:= 2;
> edtidArea.Enabled:= True;
> edtNomeArea.Enabled:= True;
> EdtNomeArea.SetFocus;
>
>
> No formulario, botão Gravar:
>
>if operacao = 2 then
> begin
>
>dm.IBQAltAreas.ParamByName('par_idArea').AsStrin
>g:=
>edtidArea.Text;
>
>dm.IBQAltAreas.ParamByName('par_NomeArea').AsStr
>ing:=
>EdtNomeArea.Text;
>
> dm.IBQAltAreas.ExecSQL;
> dm.IBQaltAreas.Close;
> dm.IBTransaction1.Commit;
>
> Beep;
> MessageDlg('A Alteração da Área: ' + #13 +
>EdtNomeArea.Text +
>#13 + 'foi executada com sucesso.',
>mtInformation,[mbOK], 0);
> 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]
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] Onde está o erro?
Não está alterando os dados:
Em uma IBQuery :
UPDATE areas
SET
idArea =:par_idArea,
nomeArea =:par_nomeArea
WHERE
idArea =:par_idArea
No formulario, botão alterar:
operacao:= 2;
edtidArea.Enabled:= True;
edtNomeArea.Enabled:= True;
EdtNomeArea.SetFocus;
No formulario, botão Gravar:
if operacao = 2 then
begin
dm.IBQAltAreas.ParamByName('par_idArea').AsString:=
edtidArea.Text;
dm.IBQAltAreas.ParamByName('par_NomeArea').AsString:=
EdtNomeArea.Text;
dm.IBQAltAreas.ExecSQL;
dm.IBQaltAreas.Close;
dm.IBTransaction1.Commit;
Beep;
MessageDlg('A Alteração da Área: ' + #13 + EdtNomeArea.Text +
#13 + 'foi executada com sucesso.', mtInformation,[mbOK], 0);
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]
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
