[Resolvido] Limitar registros de uma tabela!

[Vagner Nunes 0]

Fiz o teste e agora está apresentano o seguinte erro:

 

Informações técnicas (para a equipe de suporte)

 

Tipo de erro:

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

Objeto necessário: '[string: "SELECT count(data) F"]'

/estudo/teste1/pos.asp, line 14

 

 

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; GTB6.6; .NET CLR 2.0.50727)

 

Página:

POST 98 bytes to /estudo/teste1/pos.asp

 

POST Data:

titulo=Morena+Teste&video=Morena+Teste+1&audio=Morena+Teste+2&data=08%2F03%2F2011&button=CADASTRAR

 

Hora:

terça-feira, 8 de março de 2011, 16:18:34

 

Segue código:

<% 
Dim conta, conexao, titulo, video, audio, data  

titulo = Request.form("titulo") 
video = Request.form("video") 
audio = Request.form("audio") 
data = Request.form("data") 

Set Conexao= Server.CreateObject("ADODB.Connection") 
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\estudo\teste1\banco.mdb;" 

Set Consulta =  "SELECT count(titulo) FROM videos"  'Aqui salva a string do select 
Set conta = conexao.execute(Consulta) 'Aqui ela pega aquela string do select e usa o comando execute, apos feito o select ele salva na variavel conta. 

  if conta >= 5 then  
      Inserir= "insert into videos (titulo, video, audio, data) values ('"&titulo&"','"&video&"','"&audio&"','"&data&"')" 'Aqui salva a string de insert. 
      conexao.execute(Inserir) 'Aqui usa o execute. 
      conta.movefirst ' Aqui ele tah jogando o ponteiro do select para o 1º registro 
          Deletar = "delete * from videos" ' Aqui ele vai deletar 
 else  
       Inserir= "insert into videos (titulo, video, audio, data) values ('"&titulo&"','"&video&"','"&audio&"','"&data&"')" 'Aqui salva a string de insert. 
      conexao.execute(Inserir) 'Aqui usa o execute. 
 end if  
Response.write("Vídeo cadastrado com sucesso") 
conexao.close   
 %>

[LCS 0]

select count(titulo)

 

tente fazer assim select count(titulo) as Soma from videos

 

se num der certo eu devo estar fazendo alguma coisa errado.. ai ja nao vou poder ajudar mais.

 

abçs

[Vagner Nunes 0]

Testei desta forma também e não deu certo....

[LCS 0]

Olha essa aqui.. Só copia e cola.. pra ver como fica..

 

Cara esse negócio ta me fazendo ler um monte de coisas.. kkk, pelo menos eu to olhando tudo o que já aprendi antes..

 

mais vamos lá que dessa vez eu acho que vai dar certo.

 

<% 
Dim conta, conexao, rs, titulo, video, audio, data  

titulo = Request.form("titulo") 
video = Request.form("video") 
audio = Request.form("audio") 
data = Request.form("data") 

Set Conexao= Server.CreateObject("ADODB.Connection") 
Set rs= Server.CreateObject ("ADODB.Recordset") 
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\estudo\teste1\banco.mdb;"   

conta = rs.open "SELECT COUNT(titulo) FROM videos",conexao  

  if conta >= 5 then  
      rs.open "INSERT INTO videos (titulo, video, audio, data) values ('"&titulo&"','"&video&"','"&audio&"','"&data&"')",conexao 
      rs.movefirst ,conexao 
      rs.open "DELETE * FROM videos" , conexao  
 else  
       rs.open "INSERT INTO videos (titulo, video, audio, data) values ('"&titulo&"','"&video&"','"&audio&"','"&data&"')" , conexao 
 end if  
Response.write("Vídeo cadastrado com sucesso") 
rs.close 
Conexao.close   
 %>

[Vagner Nunes 0]

Prezado,

 

Fiz conforme procedimento, porém está apresentando erro. Tente outras formas também de utilizar o SELECT COUNT, más, sem sucesso.

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0401)

Fim da instrução esperado

/estudo/teste1/pos.asp, line 14, column 16

conta = rs.open "SELECT COUNT(titulo) FROM videos" , conexao

---------------^

 

Sds,

 

Vagner Nunes

[Vinicius Ianni 189]

conta = "select count titulo from videos"
set rs = conn.execute (conta)

[Vagner Nunes 0]

Prezado,

 

fiz conforme relatado, porém agora apresenta o erro abaixo:

Tipo de erro:

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

Objeto necessário: 'SELECT COUNT(titulo)'

/estudo/teste1/pos.asp, line 15

 

 

 

Modifiquei a linha mencionada, segue Código abaixo:

<% 
Dim conta, conexao, rs, titulo, video, audio, data  

titulo = Request.form("titulo") 
video = Request.form("video") 
audio = Request.form("audio") 
data = Request.form("data") 

Set Conexao= Server.CreateObject("ADODB.Connection") 
Set rs= Server.CreateObject ("ADODB.Recordset") 
Conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\estudo\teste1\banco.mdb;"   

conta = "SELECT COUNT(titulo) FROM videos"
set rs = conta.execute (conta)

  if conta >= 5 then  
      rs.open "INSERT INTO videos (titulo, video, audio, data) values ('"&titulo&"','"&video&"','"&audio&"','"&data&"')",conexao 
      rs.movefirst ,conexao 
      rs.open "DELETE * FROM videos" , conexao  
 else  
       rs.open "INSERT INTO videos (titulo, video, audio, data) values ('"&titulo&"','"&video&"','"&audio&"','"&data&"')" , conexao 
 end if  
Response.write("Vídeo cadastrado com sucesso") 
rs.close 
Conexao.close   
 %>

[Vagner Nunes 0]

Olá pessoal, consegui resolver o problema aqui.

 

Fiz um SELECT TOP 1 ORDER BY DESC

 

pegando o último ID.

 

Valeu pela ajuda, estarei disponibilizando o código já resolvido.

 

Abraços,

 

Obrigado a todos....

[LCS 0]

Passa o código ai... eu to louco para ver como você fez as conexões com o bd.os select,etc..

 

abçs.

[Vinicius Ianni 189]

Que Bom que resolveu :)

 

Precisando, estamos ai :joia: