Consultar Campo Fecha por Parametro utilizando ADOConexion

[[Caral]]

Hola
A que tienes conectado el adoquery?
Saludos

[[Caral]]

Hola
No uso clientdataset, pero:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 ClientDataSet2.Close;
 with ADOQuery2 do
 begin
   Close;
   sql.Text:= 'select userid, checktime from checkinout where checktime = :fecha'
   Parameters[0].Value := DateTimePicker1.DateTime;
   open;
   ClientDataSet2.Open;
 end;
 
end;

Saludos

[novato_erick]

Hola Caral Gracias por responder:

Lo tengo conectado al componente ADOConnection1 y a que te refieres con:

Caral dice:
Hola
No uso clientdataset, pero:

Saludos

novato_erick

[novato_erick]

en mi Base de datos en SQL 2005 tengo en la Tabla CHECKINOUT CAMPO CHECKTIME guardado lo siguiente: 08/01/2012 09:20:11 a.m.

he notado que tal vez me hace falta la hora para traer la consulta idéntica pero es algo que no es posible ya que necesito que me muestre los datos específicamente en esa fecha independientemente la hora ya que son marcas de empleados realizados en un relog biometrico.


Saludos

[novato_erick]

Bueno ya entendí cuando quisiste decir que no usas el ClientDataSet

bueno lo hice ahora de esta manera siguiendo las sugerencia en este linck: http://www.clubdelphi.com/foros/show...34&postcount=7

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
with ADOQuery3 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select userid, checktime from checkinout where checktime =:fecha');
    Parameters.ParamByName('fecha').Value:= FormatDateTime('dd/mm/yyyy',DateTimePicker2.Date);
    Open;
  end;
end;

Pero el resultado es el mismo... nada me trae jejejeje...


Saludos

novato_erick

[jsc]

Empezado por novato_erick

Bueno ya entendí cuando quisiste decir que no usas el ClientDataSet

bueno lo hice ahora de esta manera siguiendo las sugerencia en este linck: http://www.clubdelphi.com/foros/show...34&postcount=7

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
with ADOQuery3 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select userid, checktime from checkinout where checktime =:fecha');
    Parameters.ParamByName('fecha').Value:= FormatDateTime('dd/mm/yyyy',DateTimePicker2.Date);
    Open;
  end;
end;

Pero el resultado es el mismo... nada me trae jejejeje...


Saludos

novato_erick

hola
yo hice pruebas con este codigo y no me dio ningun tipo de problemas

procedure TForm1.Button5Click(Sender: TObject);
begin
   with ADOQuery1 do
   begin
      close ; sql.clear; parameters.clear ;
      sql.Add('SELECT * FROM TABLA1 WHERE FECHA = :fecha');
      parameters.ParamByName('fecha').value := formatdatetime('dd/mm/yyyy',datetimepicker1.Date);
      open;
   end;
end;

en ejemplos mas arriba tienes codigo

with ADOQuery2 do...

en este ultimo post el codigo es diferente

with ADOQuery3 do...

no se si esto se debe a pruebas que has hecho o te puede venir el problema de ahi si luego los grid apuntan a uno u otro Query
por otra parte se me ocurre que pruebes a hacer como en el ejemplo que te pongo

parameters.clear

quiza de otra consulta tengas algun parametro con el mismo nombre o algo y no ejecute bien o coja bien los valores
saludos,

[novato_erick]

Hola Agradeciendo tu atención:

Realize tu ejemplo de igual manera solo activa el AdoQuery sin recibir nada.

Pero en SQL Server el campo checktime también posee hora.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  with ADOQuery3 do
    begin
     Close;
     SQL.Clear;
     Parameters.Clear;
     SQL.Add('select userid, checktime from checkinout where checktime =:fecha');
     Parameters.ParamByName('fecha').Value:= FormatDateTime('dd/mm/yyyy',DateTimePicker2.Date);
    Open;
   end;
end;

Saludos

novato_erick