Descobrir data e hora
Pessoal, gostaria de uma ajuda.
Tentei pegar a data e hora do sistema operacional com Delphi e foi tranquilo, mas se ela estiver errada? Tem como eu pegar a data e hora do meu banco de dados?
Obrigada!
Tentei pegar a data e hora do sistema operacional com Delphi e foi tranquilo, mas se ela estiver errada? Tem como eu pegar a data e hora do meu banco de dados?
Obrigada!
Carla Batista
Curtidas 0
Respostas
Cesar Roniglei
03/08/2012
Boa tarde,
Você pode gerar um script para que o delphi retorne a data do seu servidor utilizando uma Query.
Ex. SQL Server:
César Roniglei
Você pode gerar um script para que o delphi retorne a data do seu servidor utilizando uma Query.
Ex. SQL Server:
Select GetDate() -- Retorna o horario.
César Roniglei
GOSTEI 0
Antonio Jesus
03/08/2012
Olá boa noite!
Veja esta função.
Function Data_Servidor():TdateTime;
VAR Sqlx: TSQLQuery;
Msg, Dtax : String;
Begin
Try
Sqlx := TSQLQuery.Create(Nil);
Sqlx.SQLConnection:= DMCN.SQLConnect;
WITH Sqlx Do Begin
Close;
SQL.Clear;
SQL.Add(select Current_Time, Current_Date from RDB$Database);
Open;
IF FieldByName(Current_Date).AsDateTime 0 Then
Result := FieldByName(Current_Date).AsDateTime;
Dtax := DateToStr(FieldByName(Current_Date).AsDateTime);
IF FieldByName(Current_Date).AsDateTime Date Then Begin
Msg := ATENÇÃO!+#13+A Data e Hora do Computador Local está diferente do Computador Servidor+#13+Favor acertar a data dos dois Computadores.;
Application.MessageBox(Pchar(Msg),Aviso,MB_Ok+mb_IconInformation);
End;
End;
Finally
Sqlx.close;
FreeAndNil(Sqlx);
End;
End;
Veja esta função.
Function Data_Servidor():TdateTime;
VAR Sqlx: TSQLQuery;
Msg, Dtax : String;
Begin
Try
Sqlx := TSQLQuery.Create(Nil);
Sqlx.SQLConnection:= DMCN.SQLConnect;
WITH Sqlx Do Begin
Close;
SQL.Clear;
SQL.Add(select Current_Time, Current_Date from RDB$Database);
Open;
IF FieldByName(Current_Date).AsDateTime 0 Then
Result := FieldByName(Current_Date).AsDateTime;
Dtax := DateToStr(FieldByName(Current_Date).AsDateTime);
IF FieldByName(Current_Date).AsDateTime Date Then Begin
Msg := ATENÇÃO!+#13+A Data e Hora do Computador Local está diferente do Computador Servidor+#13+Favor acertar a data dos dois Computadores.;
Application.MessageBox(Pchar(Msg),Aviso,MB_Ok+mb_IconInformation);
End;
End;
Finally
Sqlx.close;
FreeAndNil(Sqlx);
End;
End;
GOSTEI 0
Carla Batista
03/08/2012
Olá Cesar, fiquei na dúvida de como implementar, poderia me explicar melhor?
Não entendi, usar query?
Obrigada
Não entendi, usar query?
Obrigada
GOSTEI 0
Carla Batista
03/08/2012
Olá Antonio, tentei implementar aqui, mas esta dando erro. O código esta certo?
Obrigada!
Obrigada!
GOSTEI 0
Marco Salles
03/08/2012
Carlinha o forum não esta perfeitamente formatado. Assim muitas intruções corretas ficam erradas
Por exemplo , infelismente come as aspas simples
Coloque o erro que esta dando assim o amigo pode lhe ahujar melhor
Por exemplo , infelismente come as aspas simples
Coloque o erro que esta dando assim o amigo pode lhe ahujar melhor
GOSTEI 0
Carla Batista
03/08/2012
Olá Marco, com a sua explicação eu entendi.
Faltavam as *aspas* mesmo!
Obrigada meninos!
Faltavam as *aspas* mesmo!
Obrigada meninos!
GOSTEI 0