Jump to content


- - - - -

Delphi 7 /Dbgrid /Sql Server (Paginação)










Post sem respostas

#1 Marcelo F. Ribeiro

    Membro

  • Membros
  • PipPip
  • 28 posts
  • Sexo:Masculino
  • Estado:São Paulo

Adicionado 14 March 2012 - 02:56 PM

Boa tarde. Blz?

To com uma duvida que to tentando resolver aqui mas nada.

Tenho o D7 e o SQL Server. Faço uma consulta no banco pelo dataset. A Consulta é +ou- assim:

dm.dataset,close;
dm.dataset.commandtext := 'select RTRIM(A3_NOME) AS A3_NOME,	    dt_interes_sup as dt_interes,			 dt_prox_contato_sup as dt_prox_contato,	    dt_atualiza_sup as dt_atualiza,		    dt_prox_vis_sup as dt_prox_vis,		    status_neg_sup as status_neg,	   case when ltrim(rtrim(dt_interes_sup)) <> '' then	   RIGHT(dt_interes_sup,2)+'/'	 +SUBSTRING(dt_interes_sup,5,2)+'/'	 +LEFT(dt_interes_sup,4) else dt_interes_sup	 end AS 'interes' , case when ltrim(rtrim(dt_prox_contato_sup)) <> '' then	   RIGHT(dt_prox_contato_sup,2)+'/'	 +SUBSTRING(dt_prox_contato_sup,5,2)+'/'	 +LEFT(dt_prox_contato_sup,4) else dt_prox_contato_sup	 end AS 'contato' , case when ltrim(rtrim(dt_atualiza_sup)) <> '' then	   RIGHT(dt_atualiza_sup,2)+'/'	 +SUBSTRING(dt_atualiza_sup,5,2)+'/'	 +LEFT(dt_atualiza_sup,4) else dt_atualiza_sup	 end AS 'atualiza' , case when ltrim(rtrim(dt_inclusao)) <> '' then	   RIGHT(dt_inclusao,2)+'/'	 +SUBSTRING(dt_inclusao,5,2)+'/'	 +LEFT(dt_inclusao,4) else dt_inclusao	 end AS 'inclusao' , case when ltrim(rtrim(dt_prox_vis_sup)) <> '' then	   RIGHT(dt_prox_vis_sup,2)+'/'	 +SUBSTRING(dt_prox_vis_sup,5,2)+'/'	 +LEFT(dt_prox_vis_sup,4) else dt_prox_vis_sup	 end AS 'prox_vis' ,	   (select nome_usuario from user_forecast where codigo_vendedor = cod_vend_sup)			    as nome_sup,	    (select nome_usuario from user_forecast where codigo_vendedor = cod_vend_maq)			    as nome_maq ,prospect_carteira_sp.*, user_forecast.* from prospect_carteira_sp	   left join SA3110 on A3_COD = cod_vend_sup				 collate Latin1_General_CS_AS	    left join user_forecast on user_forecast.codigo_vendedor = cod_vend_sup and								  empresa like '%110%' where cod_vend_sup in ('V112') and delet_sup <> 'S' ORDER BY dt_inclusao desc, status_neg_sup asc';
dm,dataset.open;

só que ela traz mtos registros. Teria como fazer uma paginação, ou pelo dbgrid, ou pelo SQL Server ou por algum outro componente pra trazer somente uns 100 registros por vez? To fuçando aqui mas ate agora nenhum avanço.

Abs





1 usuário(s) esta(ão) lendo este tópico

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)