data servidor mysql

[Guest --eduardo --]

tenho o seguinte : delphi com interbase

function TdtmSystem.HoraBD: TTime;
var qryTmp: TSQLQuery;
begin
  // Retorna a DATA do Banco de dados...
  qryTmp := TSQLQuery.Create(Self);
  try
    qryTmp.SQLConnection := dtmConexao.SqlCnConexaoBD;
    qryTmp.SQL.Text := 'SELECT CURRENT_DATE HORA FROM RDB$DATABASE';
    qryTmp.Open;
    Result := qryTmp.FieldByName('HORA').Value;
    qryTmp.Close;
  finally
    qryTmp.Free;
  end;
end;

como faço isso com o mysql ..obs já usei o curdate() etc.

Editado Janeiro 24, 2008 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[Micheus]

como faço isso com o mysql ..obs já usei o curdate() etc.

e qual foi o erro obtido?

Segundo a documentação do MySQL, sobre funções para data e hora, você poderia utilizar: CURDATE(), CURRENT_DATE(), CURRENT_DATE

Não teria relação com o uso da tabela referenciada?

Ocorre que ela não diz respeito ao MySQL e tão pouco se faz necessária. Experimente colocar apenas esta instrução SQL:

SELECT CURRENT_DATE AS HORA

Abraços

[specdev]

caro amigo

já´usei o select como sugerio e não funcionou? o delphi retorna o seguinte " invalid argument to date encode"

function TdtmSystem.DataBD: TDate;

var qryTmp: TSQLQuery;

begin

// Retorna a DATA do Banco de dados...

qryTmp := TSQLQuery.Create(Self);

try

qryTmp.SQLConnection := dtmConexao.SqlCnConexaoBD;

qryTmp.SQL.Text := 'SELECT CURRENT_DATE AS DATA ';

qryTmp.Open;

Result := qryTmp.FieldByName('DATA').Value;

qryTmp.Close;

finally

qryTmp.Free;

end;

end;

[Micheus]

Em que linha ocorre o erro?

Experimente trocar: Result := qryTmp.FieldByName('DATA').Value;

por: Result := qryTmp.FieldByName('DATA').AsDate; // ou AsDateTime

[Guest Marcos Boy]

Olá Boa Noite.

Amigo se você continua com este problema, teste esta função. :blink:

function TDataModule1.Data_Servidor : TDateTime;
var
ZQdata_server : TZQuery;
begin
  Try
    ZQdata_server := TZQuery.create(nil);
    ZQdata_server.Connection := DataModule1.ZConnection;

    ZQdata_server.SQL.Add('select CURRENT_DATE AS "DATA"');
    ZQdata_server.Open;

    Result := ZQdata_server.fieldByName('DATA').AsDateTime;
  finally
    ZQdata_server.close;
    ZQdata_server.Free;
  end;
end;

Chamando a função.

--

label1.Caption := DateToStr(DataModule1.Data_Servidor());

--

Obs.: Aqui funciona perfeitamente, estou usando MySql 5 + Zeos

Editado Janeiro 27, 2008 por Micheus
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)