RecordCount Não Funciona

[Ecos 0]

Dim Login, Senha, Sql, Qry, Erro
		
		Login = Request.Form("login")
		Senha = Request.Form("senha")
		
		Sql = "Select login From clientes where login = '" & Login & "'"
		Set Rs = Server.CreateObject("ADODB.RecordSet")
		Rs.Open Sql, Conexao, 3, 3
		
		If Login = Rs("login") Then
		
			Qry = "Select senha, nome, cliente_codigo, nome From clientes where senha = '" & Senha & "'"
			Set Res = Server.CreateObject("ADODB.RecordSet")
			Res.Open Qry, Conexao, 3, 3
			
			If Senha = Res("senha") Then
				Session("Login") = Login
				Session("Senha") = Senha
				Session("Cliente_Codigo") = Res("cliente_codigo")
				Session("Nome") = Res("nome")
				Response.Redirect("materiais.asp?acesso=true")						
			Else
				Response.Redirect("materiais.asp?acesso=passnot")
			End If
			
		Else
			Response.Redirect("materiais.asp?acesso=usernot")
		End If
				
	End If

Meu RecordCount não funciona, ele sempre dá falso. SEMPRE. O que pode tá acontecendo ?

[DSerma 19]

Try it;

 

set rs = createobject("ADODB.Recordset")
rs.cursortype 		= 3
rs.CursorLocation 	= 3
rs.Open Sql,Conexao,3,1,&H0001

[Ecos 0]

Funcionou!

Agora explica isso aí... pq eu entendi essa porcaria, só nao coloquei esse &H0001, que pora eh essa ?

[DSerma 19]

A "p****" do &H0001 é equivalente à "porcaria" do adCmdText ....

 

Att;

[xanburzum 169]

dependendo da situacaun melhor usar um contatdor normal ou a clausula count do SQL, pois se o seu bd for muito grande o recordcount do objeto recordset para apresentar queda de desempenho

e para usar o RecordCount , seu cursortype tem k ser recordset.CursorType = 3 (AdOpenDynamic)

 

exemplo:

<%
DIM mySQL, objRS
mySQL = "SELECT * FROM myTable" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn

' Count how many records exist
DIM iRecordCount
iRecordCount = 0
DO WHILE NOT objRS.EOF
iRecordCount = iRecordCount + 1
objRS.MoveNext
Loop

' Display result
Response.Write "(" & iRecordCount & ")"

objRS.Close
Set objRS = Nothing 
objConn.Close
Set objConn = Nothing
%> 

SQL COUNT

 

<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->

<%
DIM mySQL, objRS
mySQL = "SELECT Count(*) AS intTotal FROM myTable" 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open recSQL, objConn

' Display result
Response.Write objRS("intTotal")

objRS.Close
Set objRS = Nothing 
objConn.Close
Set objConn = Nothing
%>