como contar registros ?

[andreia_sp 1]

eu nao sei se tem como fazer como nas colunas: tab.fields(0) mas com os registros

[baladaclick 0]

entao. eu queria colocar em Rs individuais. mas tudo bem. mto obrigado andrea.vou esperar e tentando aqui.alguem sabe como faço mais de um select em uma string?

[jothaz 1]

Pois é camarada não atentei que você esta usando a m.. do access. http://forum.imasters.com.br/public/style_emoticons/default/upset.gif

 

O exemplo que dei é para SQL Server dai parace mais complicado.

 

 

Bom tente isto:

SELECT tabela3.sit, Count(tabela3.sit) AS ContarDesitFROM tabela3GROUP BY tabela3.sitORDER BY Count(tabela3.sit);

Q vai retornar as situações (aprovadas...) e a qtde de cada.

Depois é só fazer um loop e pegar os valores.

 

Agora na base do "RTA" pode ser assim:

SQL = "SELECT count(aprovacao)as total from clientes WHERE aprovacao = 'aprovada'"RS.Open SQL, conn, 3iAprovada = RS("total")rs.closeSQL = "SELECT count(aprovacao)as total from clientes WHERE aprovacao = 'reprovada'"RS.Open SQL, conn, 3iReprovada = RS("total")

Dai você pode utilizar as variáveis iAprovada e iReprovada para efetuar as contas.

 

t+

 

 

ENTAO JOTHAZ, A RESPOSTA É P TODOS. RSSSS. DO JEITO Q você ME PASSOU COMPLICOU MAIS HEHE AINDA NAO TENHO MTO CONHECIMENTO. OLHA COMO ESTA MEU CODIGO

 

<%Set Conn= server.createobject("adodb.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf.mdb")Conn.Open DSNtestSet RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = "SELECT count(aprovacao)as total from clientes WHERE aprovacao = 'aprovada'"RS.Open SQL, conn, 3id_perfil = session("id_perfil")%>

QUERIA USAR ESTE CODIGO PQ ESSE EU TO ENTENDENDO. KKKKK

ENTAO, EU QUERO COLOCAR NESTA STRING SQL AS PENDENTES, CANCELADAS E TALZ. MAS NAO SEI COMO FAZER

 

ABRAÇO AMIGO

 

TENTEI DESSA FORMA E NAO DEU CERTO

SQL = "SELECT count(aprovacao)as total from clientes WHERE aprovacao = 'aprovada'" AND"SELECT count(aprovacao)as PENDENTE from clientes WHERE aprovacao = 'pendente'"		RS.Open SQL, conn, 3

[baladaclick 0]

retorna esse erro jothaz

 

ADODB.Recordset erro '800a0e79'

 

Operação não permitida quando o objeto está aberto.

 

/sam/relatorio1.asp, line 17

 

<%Set Conn= server.createobject("adodb.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf.mdb")Conn.Open DSNtestSet RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = "SELECT count(aprovacao)as total from clientes WHERE aprovacao = 'aprovada'"RS.Open SQL, conn, 3vAprovadas = RS("total")SQL = "SELECT count(aprovacao)as total from clientes WHERE aprovacao = 'reprovada'"RS.Open SQL, conn, 3vReprovadas = RS("total") %>

[jrcardozo 4]

isso é erro asp e não sql...você está setando para abrir um objeto recordset que já está aberto

tente assim

<%Set Conn= server.createobject("adodb.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf.mdb")Conn.Open DSNtestSet RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSet RS2= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = "SELECT count(aprovacao)as total from clientes WHERE aprovacao = 'aprovada'"RS.Open SQL, conn, 3vAprovadas = RS("total")SQL = "SELECT count(aprovacao)as total from clientes WHERE aprovacao = 'reprovada'"RS2.Open SQL, conn, 3vReprovadas = RS2("total") %>

[baladaclick 0]

eu segui do jeito que o jothaz falou

[baladaclick 0]

alguem pode me dizer como faço mais de um select com count numa string só?

[jrcardozo 4]

creio que seja impossivel fazer dois count no mesmo select pois pensando logicamente seria assimselecione e conte o campo X, selecione e conte o campo Y quando campo XZ=true e YZ=falseentende!!???ele iria se perder pois as condições anulariam os resultados. Ao meu ver a maneira correta são duas querys(como editei no post anterior) e dois recordsets. Se tiver como fazer da maneira que deseja espero que alguem possa te auxiliar e colocar a solução ai pra galeraQualquer galho post ai

[andreia_sp 1]

Eu ja acho melhor fazer um array do resultado e depois chamar em qq parte da pagina

[baladaclick 0]

beleza moçada. vou tentando aqui. qdo eu tiver uma solução eu posto aqui.

[baladaclick 0]

andrea, fiz do jeito que voce falou. joguei um while só que ele me retorna os valores todos juntos. como faço p separar

 

select count(status) as total, status from TABELA group by status

<%=rs("total")%>

antes sem while ele soh me jogava o valor 2, agora me retona o valor 32886810715117. acredito que é a conta de todos os campos de aprovadas, reprovadas, pendentes e etc. como separo isso?

 

abraço querida

[jothaz 1]

Camarada,Tenta assim:

iAprovadas = 0iReprovadas = 0while not rs.eof()	 if ucase("rs("status")) = ucase("aprovadas") then	 		  iAprovadas = iAprovadas + rs("total")	 else		  iReprovadas = iReprovadas + rs("total")	end if	rs.movenext wendresponse.write iAprovadas & "<br>"response.write iReprovadas & "<br>"

Não tive como testar. QQ coisa estamos ai!t+

andrea, fiz do jeito que voce falou. joguei um while só que ele me retorna os valores todos juntos. como faço p separar

select count(status) as total, status from TABELA group by status

<%=rs("total")%>

antes sem while ele soh me jogava o valor 2, agora me retona o valor 32886810715117. acredito que é a conta de todos os campos de aprovadas, reprovadas, pendentes e etc. como separo isso?abraço querida

[jrcardozo 4]

a ideia do amigo jothaz é valida, mas tem dois poréns:você perderá em desempenho pois vai ter que fazer uma verificação a cada volta do while e mover o cursore ainda, dependendo como quer exibir terá que fazer mais um select pois esse ai só vai contar os totais, você teria que exibir os registros correspondentes de cada tipo(aprovado ou não)

[baladaclick 0]

GALERA ACHEI UMA SOLUÇÃO. FIZ UMA GAMBIARRA DAQUELAS QUE TEM Q REGISTRAR.

 

FIZ INCLUDE DE CADA COUNT NA PAGINA Q VAI EXIBIR OS DADOS

 

<%Set Conn= server.createobject("adodb.connection")DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("banco/netdbf.mdb")Conn.Open DSNtestSet RS= Server.CreateObject("ADODB.Recordset") 'acrescentei por causa da paginaçãoSQL = "select count(aprovacao) as em_analise from clientes where aprovacao = 'em_analise' "RS.Open SQL, conn, 3%><table width="107" border="0" cellspacing="0" cellpadding="0">  <tr>	<td width="107"><%=rs("em_analise")%> </td>  </tr></table>

FIZ DE CADA UM, APROVADAS, REPROVADAS, CANCELADAS E TALZ. E JOGUEI COMO INCLUDE TD EM UMA PAGINA SÓ E DEU CERTO. COMEÇOU A CONTAR TD DIREITINHO

 

NÃO ME XINGUEM

HEHEHE

 

ABRAÇO

[jrcardozo 4]

qual a diferença de fazer no include ou diretamente na página se o resultado é o mesmo e você terá mais de um select???Bom...ao menos resolveu como queria

[baladaclick 0]

jonathan eu tentei fazer varios selects diretamente mas nao deu certocomo seria varios selects em uma pagina p ver c eu tava fazendo certo?