subject:"Re\: \[delphi\-br\] Data em branco"

Re: [delphi-br] data em branco

2008-09-12 Por tôpico Emerson

Um ex:
select * from tabela_funcionarios where data_de_demissao is null;
  - Original Message - 
  From: asandro1501 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, September 12, 2008 1:48 PM
  Subject: [delphi-br] data em branco

  Olá pessoal

  Preciso gerar um relatório dos funcionários cadastrados onde apareça 
  somente os dados somente de quem tem a data de demissão em branco. A 
  base de dados é em access e o relatório foi criado com o quick report. 

  Alguém pode me ajudar com a instrução SQL que preciso para colocar no 
  commandtext do adodataset do relatório?

  Grato

  Alex

[As partes desta mensagem que não continham texto foram removidas]

Re: [delphi-br] Data em branco

2004-11-03 Por tôpico Alosi


Já tentou:

DM_SEC.ITINERAR.FieldByName('DTSAIDA').Clear;


t+


- Original Message - 
  From: info.suporte 
  To: [EMAIL PROTECTED] 
  Sent: Wednesday, November 03, 2004 3:34 PM
  Subject: [delphi-br] Data em branco


  Boa tarde a todos.
  Estou importando dados deuma tabela para outra, identicas.
  Quando passo dados da tabOrigem para TabDestino no campo DTSAIDA é preenchido com a 
data 30/12/1899, sendo que na TabOrigem essa data é nula, em branco.
  Alguem sabe como faço para que um capo data receba vazio?


  PAULO FERNANDES
  PORTO ALEGRE  RS

  [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

Re: [delphi-br] Data em branco

2004-11-03 Por tôpico Gláucio Saraiva da Silva



  WHILE NOT DM_SG.ITINERAR.EOF DO//origem
  BEGIN
   DM_SEC.ITINERAR.Append;
   DM_SEC.ITINERAR.Edit;//destino
   DM_SEC.ITINERAR.FieldByName('CDRELIG').AsString:= 
DM_SG.ITINERAR.FieldByName('CDRELIG').AsString;
   DM_SEC.ITINERAR.FieldByName('CDCOMU').AsString:= 
DM_SG.ITINERAR.FieldByName('CDCOMU').AsString;
   DM_SEC.ITINERAR.FieldByName('CDCOMUANT').AsString:= 
DM_SG.ITINERAR.FieldByName('CDCOMUANT').AsString;
   DM_SEC.ITINERAR.FieldByName('CDCOMUPROX').AsString:= 
DM_SG.ITINERAR.FieldByName('CDCOMUPROX').AsString;
   DM_SEC.ITINERAR.FieldByName('CDPROV').AsInteger:= 
DM_SG.ITINERAR.FieldByName('CDPROV').AsInteger;
   DM_SEC.ITINERAR.FieldByName('CDPROVANT').AsInteger:= 
DM_SG.ITINERAR.FieldByName('CDPROVANT').AsInteger;
   DM_SEC.ITINERAR.FieldByName('CDPROVPROX').AsInteger:= 
DM_SG.ITINERAR.FieldByName('CDPROVPROX').AsInteger;
   DM_SEC.ITINERAR.FieldByName('DTCHEGADA').AsDateTime:= 
DM_SG.ITINERAR.FieldByName('DTCHEGADA').AsDateTime;
   IF not DM_SG.ITINERAR.FieldByName('DTSAIDA').IsNull then
   begin
DM_SEC.ITINERAR.FieldByName('DTSAIDA').AsDateTime:= 
DM_SG.ITINERAR.FieldByName('DTSAIDA').AsDateTime;
   end;
   DM_SEC.ITINERAR.FieldByName('OBSERV').AsString:= 
DM_SG.ITINERAR.FieldByName('OBSERV').AsString;
   DM_SEC.ITINERAR.FieldByName('DTATUAL').AsDateTime:= 
DM_SG.ITINERAR.FieldByName('DTATUAL').AsDateTime;
   DM_SEC.ITINERAR.Post;
   DM_SG.ITINERAR.Next;
  END;

Se não for nulo ele passa os dados, se não, não passa nada.

Atenciosamente,

Gláucio Saraiva

  - Original Message - 
  From: info.suporte 
  To: [EMAIL PROTECTED] 
  Sent: Wednesday, November 03, 2004 11:08 AM
  Subject: [delphi-br] Data em branco


  Alguem sabe como faço para que um campo da tabela receba uma data em branco
  // Programa para importar os dados de uma tabela origempara destino
  Exemplo:
WHILE NOT DM_SG.ITINERAR.EOF DO//origem
BEGIN
 DM_SEC.ITINERAR.Append;
 DM_SEC.ITINERAR.Edit;//destino
 DM_SEC.ITINERAR.FieldByName('CDRELIG').AsString:= 
DM_SG.ITINERAR.FieldByName('CDRELIG').AsString;
 DM_SEC.ITINERAR.FieldByName('CDCOMU').AsString:= 
DM_SG.ITINERAR.FieldByName('CDCOMU').AsString;
 DM_SEC.ITINERAR.FieldByName('CDCOMUANT').AsString:= 
DM_SG.ITINERAR.FieldByName('CDCOMUANT').AsString;
 DM_SEC.ITINERAR.FieldByName('CDCOMUPROX').AsString:= 
DM_SG.ITINERAR.FieldByName('CDCOMUPROX').AsString;
 DM_SEC.ITINERAR.FieldByName('CDPROV').AsInteger:= 
DM_SG.ITINERAR.FieldByName('CDPROV').AsInteger;
 DM_SEC.ITINERAR.FieldByName('CDPROVANT').AsInteger:= 
DM_SG.ITINERAR.FieldByName('CDPROVANT').AsInteger;
 DM_SEC.ITINERAR.FieldByName('CDPROVPROX').AsInteger:= 
DM_SG.ITINERAR.FieldByName('CDPROVPROX').AsInteger;
 DM_SEC.ITINERAR.FieldByName('DTCHEGADA').AsDateTime:= 
DM_SG.ITINERAR.FieldByName('DTCHEGADA').AsDateTime;
 IF DM_SG.ITINERAR.FieldByName('DTSAIDA').IsNull then
 begin
   // Se a data saida for em branco então a tabela origem recebe data em 
branco senão recebe a data da tabela destino
   DM_SEC.ITINERAR.FieldByName('DTSAIDA').AsDateTime:= 
DM_SG.ITINERAR.FieldByName('DTSAIDA').AsDateTime;
 end else
 begin
  DM_SEC.ITINERAR.FieldByName('DTSAIDA').AsDateTime:= 
DM_SG.ITINERAR.FieldByName('DTSAIDA').AsDateTime;
 end;
 DM_SEC.ITINERAR.FieldByName('OBSERV').AsString:= 
DM_SG.ITINERAR.FieldByName('OBSERV').AsString;
 DM_SEC.ITINERAR.FieldByName('DTATUAL').AsDateTime:= 
DM_SG.ITINERAR.FieldByName('DTATUAL').AsDateTime;
 DM_SEC.ITINERAR.Post;
 DM_SG.ITINERAR.Next;
END;


  [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/

*

Re: [delphi-br] data em branco

Re: [delphi-br] Data em branco

Re: [delphi-br] Data em branco

3 matches

Site Navigation

Mail list logo

Footer information