Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   ¿Como cargo la fecha del Servidor Mysql? (https://www.clubdelphi.com/foros/showthread.php?t=93093)

Jorge91 16-05-2018 19:17:25

¿Como cargo la fecha del Servidor Mysql?
 
Necesito una ayuda, he buscado pero no encuentro bien lo que necesito. El caso es que tengo una aplicacion en delphi la cual me debe cargar en un edit la fecha y hora del servidor mysql donde tengo mi BD. Quien me pueda ayudar se lo agradeceré

Casimiro Notevi 16-05-2018 19:49:14

Imagino que mysql tendrá las funciones estandar: NOW, DATE, etc.
Algo así debería funcionar:
Código SQL [-]
select now();

Jorge91 16-05-2018 21:03:30

Esa consulta me funciona bien pero mi duda esta en como implementarla en el delphi, estoy utilizando Zeos y quiero q se me muestre el resultado de la query en un edit. Me puedes dar un ejemplo para aclararme mejor porfavor

Casimiro Notevi 16-05-2018 22:33:19

Pues ejecutas la sentencia en un query de zeos y le asignas el valor al tedit.
No uso zeos, pero más o menos algo así:
Código Delphi [-]
query1.sql.text := 'select now as fechaservidor';
query1.Open;
edit1.text := query1.FieldByName('fechaservidor').Astext;

Jorge91 17-05-2018 17:23:06

De esa manera tengo error en la tercera linea, el error es E2003 Undeclared identifier: 'qyTmp', trate de la siguiente manera pero no se como guardar el valor de la consulta en el edit
ZQuery1.Close;
ZQuery1.SQL.Clear;
ZQuery1.SQL.add('Select Now()');
ZQuery1.Open;
ZQuery1.ExecSQL;

Casimiro Notevi 17-05-2018 19:17:53

¿Acaso es eso lo que yo he puesto?

Jorge91 18-05-2018 21:18:35

De la manera en que me lo diste te dige q me daba error en la tercera linea e intente de la la otra forma pero no se como recoger el resultado de la query y guardarlo en una variable

Casimiro Notevi 18-05-2018 23:53:24

Es un error al teclear :p

Código Delphi [-]
query1.close;
query1.sql.text := 'select now as fechaservidor';
query1.Open;
edit1.text := query1.FieldByName('fechaservidor').Astext;

Jorge91 19-05-2018 20:01:10

Sigo con el error al ejecutar la consulta.Si la pongo como me dices 'Select now as fechaservidor' cuando ejecuto me dice q no encuentra la columna now, probe a poner 'Select now() as fechaservidor' y me dice que no encuentra el campo fechaservidor.

Casimiro Notevi 19-05-2018 20:20:16

No conozco mysql, echa un vistazo al manual, o al manual en línea, o una simple búsqueda en tu buscador de internet.
Lo mismo es entre comillas 'now'

Casimiro Notevi 19-05-2018 21:01:50

Prueba así:
Código Delphi [-]
query1.close;
query1.sql.text := 'select now()';
query1.Open;
edit1.text := query1.Fields[0].Astext;

Casimiro Notevi 19-05-2018 21:09:55

Es que no tengo zeos ni mysql para probar.

Jorge91 22-05-2018 03:49:23

Solucion al tema, la web es lo maximo jajaja
Cita:

ZQuery1.Close;
try
ZQuery1.SQL.Clear;
ZQuery1.SQL.Add('select current_date()');
ZQuery1.Open;
Edit10.Text := FormatDateTime('dd/MM/yyyy',ZQuery1.Fields[0].AsDateTime);
except
raise Exception.Create('¡Ocurrió un problema al intentar obtener la fecha!');
end ;

Casimiro Notevi 22-05-2018 11:12:50

Pues eso estaba diciendo. De todas formas current_date seguramente devolverá la fecha y tú pedías la fecha y hora, por eso lo de now.


La franja horaria es GMT +2. Ahora son las 20:14:02.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi