[Resolvido] Contar registros na tabela

[l_nando 0]

Pessoal, bom dia!

 

Seguinte, estou tentando contar quantos registros existem na minha tabela de usuarios, se tiver somente 1 usuario, não deletar, segue o cód:

 

sq = "Select count(NomeUs) as total from Usuario"

AbreConn

bco.execute(sq)

if rs("total") = 1 then

response.Write("Existe somente um Usuário Cadastrado, exclusão não permitida")

else

sq = "Delete From Usuario Where NomeUs= '" & Vnome & "'"


bco.execute(sq)
FechaConn

end if

está dando o seguinte erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis

/intima09/excluiusuariofinal.asp, line 13

 

Linha 13:

 

if rs("total") = 1 then

Desde já agradeço.

 

Abraços.

[Ted k' 126]

coloque assim:

 

if rs("total") = "1" then

e faça o tratamento antes do if

 

if not rs.eof then

if rs("total") = "1" then
......

[augustoclaro 2]

você tem q fzer assim:

 

bco.execute(sq)

 

count = rs.recordcount

 

 

esse count vai ter o numero de registros recuperados pelo seu recordset!

 

 

ai é só você fazer as verificações que você quiser!

[augustoclaro 2]

eai ted'k!!

 

post no mesmo minuto heiN!!

[l_nando 0]

Pessoal, com as duas dicas apareceu o seguinte erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01A8)

Objeto necessário: ''

/intima09/excluiusuariofinal.asp, line 13

 

Linha 13:

 

if not rs.eof then

Abraço.

[Ted k' 126]

esqueceu de setar a variável

 

assim

 

set rs = bco.execute(sq)

[augustoclaro 2]

deu certo com essa dica do ted??

[l_nando 0]

Desculpa minha mancada, esqueci de setar a var.

 

Deu certo. Voces são os mestres.

 

Caso resolvido.

 

Valeu!

 

Abraços.

[Ted k' 126]

que mestre o que rapa, eu nem tinha percebido isso antes, hehe!