sqlclientDataset

Delphi

04/09/2003

Close;
CommandText := sql;
CommandText := Dm_relat.Cds_LtConven.CommandText+
´ AND PA.PN_CCONVEN = ´+Edit1.Text;
CommandText := Dm_relat.Cds_LtConven.CommandText+
´ AND PA.PN_CODATEN = ´+Edit2.Text;
CommandText := Dm_relat.Cds_LtConven.CommandText+
´ ORDER BY CA.PC_NOME´;
open;

Dm_Relat.Cds_LtConven.Params[0].AsDate := StrToDate(MaskEdit1.Text);
Dm_Relat.Cds_LtConven.Params[1].AsDate := StrToDate(MaskEdit2.Text);

no sqlclientDataset
SELECT PA.PC_CATEND, PA.PC_NUMGUIA, PA.PD_ENTRADA, PA.PD_SAIDA , CA.PC_NOME, CO.CC_DESCRIC,ME.MC_NOME,TA. AC_DESCRIC FROM PACIENTE PA
INNER JOIN CADASTRO CA ON CA.PC_CODIGO=PA.PC_CODIGO
INNER JOIN CONVENIO CO ON CO.CN_CODIGO=PA.PN_CCONVEN
INNER JOIN MEDICO ME ON ME.MN_CODIGO=PA.PN_MEDICO
INNER JOIN TIPOAT TA ON TA.AC_CODIGO=PA.PN_CODATEN
WHERE (PA.PD_ENTRADA >= :INICIO) AND (PA.PD_ENTRADA <= :FIM)

pessoal como alem de passar os parametros inicio e fim, encrementar a query com os parametros que eu quera.
por que do jeito que to fazeno ou faco uma coisa ou outra...

mais :)


Luiz Souza

Luiz Souza

Curtidas 0
POSTAR