Ir para conteúdo
Fórum CódigoFonte.net
Entre para seguir isso  
Otata

Classes

Recommended Posts

Eae pessoal estou iniciando em ASP....e quero trabalhar com classes mas não estou conseguindo fazer uma classe q se conecta ao banco....

links.asp

<%

Class links

    Public sub links
        
                 Set objCon = Server.CreateObject("ADODB.Connection")
                objCon.Open "Data Source =  C :\Inetpub\wwwroot\bd1.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"        
        
                
    end sub
        
end Class 

%>
busca.asp
 <!--#include file = "link.asp"--> 

<%


nome = request.form("txtNome")


DIM obj
set obj = new links



strQ = "SELECT strNome from tbCliente where strNome = '" & nome & "'"

Set objRS = obj.links.execute(strQ)


    if( objRS.EOF ) then 
    
        response.write("Cliente não encontrado!!")
        
        else            
            while Not objRS.EOF

            Response.Write objRS("strNome") & "<br>" 
    
             objRS.MoveNext
            
        wend
            
    end if 
    
    'for x = 0 to (UBound(arr))
    
    'response.write(arr(x)) & "<br>"

    'next 

%>

ta ai acho q esta bem errado :D mas por favor me ajudem......valeu!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Resolvido pessoal faltava declarar a variavel de conexão valeuu!!


<%

Class links

  Private objCon 'Tava faltando rs...

    Public sub links
        
         Set objCon = Server.CreateObject("ADODB.Connection")
        objCon.Open "Data Source =  C :\Inetpub\wwwroot\bd1.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"        
        
                
    end sub
        
end Class 

%>



Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
Entre para seguir isso  

×
×
  • Criar Novo...