Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > MS SQL Server
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #10  
Antiguo 30-08-2006
trex2000 trex2000 is offline
Miembro
 
Registrado: may 2003
Posts: 245
Poder: 24
trex2000 Va por buen camino
Ya pude detectar la linea que pone el profiler al momento de ejecutar la aplicacion de Delphi:

"SET FMTONLY ON select recvtime from history where 1=2 SET FMTONLY OFF"

el query que utilizo es el sig:

Cita:
With modulo.ADOQuery1 do
Begin
Close;
SQL.Clear;
SQL.Add('Select card.cardholderid, card.cardnumber, card.deleted,');
SQL.Add('cardholder.recordid, cardholder.firstname, cardholder.lastname, cardholder.deleted,cardholder.note4,');
SQL.Add('history.param3,history.param2,history.param1,history.link1,history.recvtime,history.gentime ,history.link2,history.link3,history. deleted');
SQL.Add('From card,cardholder,history');
SQL.Add('Where (card.cardholderid = cardholder.recordid)And(cardholder.recordid=history.link3)And(card.Deleted = 0)And(CardHolder.Deleted = 0)');
SQL.Add('And (card.cardnumber Between :EmpIni And :EmpFin)');
SQL.Add('And (history.link1 = :Puerta1)Or(history.link1 = :Puerta2)');
SQL.Add('And (history.recvtime >= :FechaIni) And (history.recvtime <= :FechaFin)');
SQL.Add('And (cardholder.note4 = :depto)');
SQL.Add('Order By card.Cardnumber');

Parameters.ParamByName('EmpIni').DataType:=ftString;
Parameters.ParamByName('EmpFin').DataType:=ftString;
Parameters.ParamByName('Puerta1').DataType:=ftString;
Parameters.ParamByName('Puerta2').DataType:=ftString;
Parameters.ParamByName('FechaIni').DataType:=ftDateTime;
Parameters.ParamByName('FechaFin').DataType:=ftDateTime;
Parameters.ParamByName('Depto').DataType:=ftString;

Parameters.ParamByName('EmpIni').Value:=Edit_EmpIni.Text;
Parameters.ParamByName('EmpFin').Value:=Edit_EmpFin.Text;
Parameters.ParamByName('Puerta1').Value:=Edit_PE.Text;
Parameters.ParamByName('Puerta2').Value:=Edit_PS.Text;
Parameters.ParamByName('FechaIni').Value:=Fecha1;
Parameters.ParamByName('FechaFin').Value:=Fecha2;
Parameters.ParamByName('Depto').Value:='Mantenimiento';
Open;
End;
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Sql Server 2000 y Windows XP BetoAlonso Conexión con bases de datos 2 27-11-2007 20:57:05
Delphi + MS SQL Server 2000 Maibok SQL 1 22-11-2005 17:59:33
SQL Server 2000 y Delphi cmoldes MS SQL Server 2 16-02-2005 20:20:57
SQL SERVER 2000 se cae sga000y MS SQL Server 2 17-01-2005 23:59:23
Ms Word 2000/97 + Ms sql server 7/2000 + almacenar - leer - actualizar Campos jcp_nqn Servers 0 21-12-2003 01:55:14


La franja horaria es GMT +2. Ahora son las 15:51:42.


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