Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Germa

[Resolvido] Dando erro quando mando incluir em BD.mdb

Por , em ASP Clássico

Recommended Posts

Germa    0

Germa
Postado

Bom segue o meu código de class

maladireta.asp

<%  
 
 Class maladireta 
   
 Dim nome, email   
 Private Conex 
 Private RS 
 Private SQL   
   
 'Criei variáveis privadas, porque só serão usadas aqui na classe.  
 Private Sub AbrirConexao   
 Set Conex = CreateObject("ADODB.Connection")   
 Set RS = CreateObject("ADODB.Recordset")   
 Conex.Open "dbq=C:\Inetpub\vhosts\meudominio.com.br\httpdocs\bd1.mdb;driver={Microsoft Access Driver (*.mdb)}" 'colque sua string de conexão  
 End Sub   
   
 
 Sub Incluir  
 
 Call AbrirConexao  
 SQL = "Insert into TB_USERS (nome,email) values ('" & nome & "','" & email & "')"   
 set RS = Conex.Execute(SQL)  
   
  
 Call FecharConexao   
 End Sub   
   

 Private Sub FecharConexao   
 If Conex.State <> 0 Then Conex.Close   
 End Sub	 
  
 End Class   
 %>
incluir

 

<!-- #Include File="maladireta.asp" -->  
   

 <html>  
 <head>  
 <title>Form Incluir - Usando Classe</title>  
 </head>  
 <body>  
 <form name="FormIncluir" method="post">  
 
<table width="64%" border="0" cellspacing="1" cellpadding="1" align="center">  
 <tr>  
 <td width="13%">Nome:</td>  
 <td width="87%"><input type="text" name="nome" size="50"></td>  
 </tr>  
   
 <tr>  
 <td>E-mail:</td>  
 <td><input type="text" name="email" size="60"></td>  
 </tr>  
 <tr>  
 <td colspan="2" align="center" height="40"><input type="button" name="gravar" value=" Gravar " onClick="clicou();">  </td>  
 </tr>  
 </table>  
<input type="hidden" name="bt">
</form>  
</body>  
 </html>  
 
  
 <script>  
 function clicou()  
 {  
 FormIncluir.bt.value = 0;  
 FormIncluir.action = 'incluir.asp'  
 FormIncluir.submit();  
 }  
  
 </script>  
   
 <%  
 if request("bt") = "0" then  

 dim ag   
 'INSTÂNCIA A CLASSE  
 set ag = new TB_USERS  
   
 
 ag.nome = request("nome")  
 ag.email = request("email")  
 'Chama o nome da função  
 ag.incluir   
   
 response.Write("<div align=center>Dados incluido com sucesso....</div>")  
 end if  
 %>

está aparecendo um erro quando eu manda gravar

Microsoft VBScript runtime error '800a01fa

 

Class not defined: 'TB_USERS'

 

/incluir.asp, line 46 '

 

O que estou fazendo errado me ajudem"

Compartilhar este post

Link para o post
Compartilhar em outros sites

Germa    0

Germa
Postado

No arquivo incluir.asp procure pela linha

set ag = new TB_USERS
e troque para

set ag = new maladireta

 

Vlw deu certo

eu me amarro nesse fórum e nas pessoas daqui

Brigadão

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito