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;

como fica isso com mysql!!!!!!!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 fica isso com mysql!!!!!!!