Fazer Contagem E Parar A Inserção.

[Nesh]

Olá galera,

Bom, tenho uma tabela no banco e tenho um formulário de inserção, o que eu quero fazer é quando chegar a 25 registros cadastrados não inserir mais nada no banco até que seja deletado um registro contido na tabela como posso fazer isso?

Quando a pessoa tentar registrar alguma coisa ele dê uma mesagem dizendo que chegou ao limite de registro.

Até mais!!

[douglasdamame]

você vai terque fazer um RecordCount para verificar o número de registros e faz um IF verificando se o RecordCount = 25, se for, mostra a mensagem se não Grava no BD......

Eu nunca fiz isso ,mas deve ser mais ou menos assim....

A parte de contagem ta aqui:

 <%
dbfile=Server.MapPath("Database/bancodedados.mdb") 
Set OBJdbConnection=Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & dbfile

Set rs = Server.CreateObject("ADODB.Recordset")

SQL = "Select * From Tabela"

rs.Open sql, OBJdbConnection, 1, 3

Response.Write rs.RecordCount
%>

Eu acho que da para fazer um

Total = rs.RecordCount

ai faz um IF

If total = 25 then

MOSTRA A MENSAGEM

Else

Grava no BD

Não sei... tenta ai!!!!

[Nesh]

Vou tentar praver o que dar.

Até mais!