Classe dentro de Classe?

[diegolauro 0]

Oi pessoal, beleza?

 

Tem como eu fazer o seguinte:

 

tenho uma classe chamada Conexao, com ela faço a conexão com todos os parametros que eu preciso.

 

Nos meus programas, eu estava pensando em usar uma outra classe, a Usuarios e dentro dela criar as Subs de Inclusão, Alteração e Exclusão.

 

Tem como eu aproveitar a conexão da classe Conexao nas subs?

 

 

Um esquema rápido:

 

Class Conexao

- Ações conexao

 

Class Usuarios

Sub Incluir

-Usar a conexao da class Conexao

Sub Alterar

-Usar a conexao da class Conexao

Sub Excluir

-Usar a conexao da class Conexao

 

 

Como não achei nada parecido na net resolvi procurar aqui

 

Vlw!

[Jow Xavier 0]

pelo q eu entendi é só você sar o include do arquico de conexão, conforme a estrutura das pastas.

 

<!-- #include file="conexao.asp"--> tem q estar fora das tags <%%>

[diegolauro 0]

Então, pq eu pensei em usar uma classe pra fazer a conexão pois daí eu conseguiria pegar parâmetros e indicar qual o tipo de conexão que vai ser feita.

 

Eu entendi o que você quis dizer, se não tiver outro jeito eu vou acabar fazendo isso mesmo.

[Jow Xavier 0]

Ok ... mas para fazer uma conexão diferente é só você usar outra conexão em cada página

[diegolauro 0]

Então, comecei a usar classes agora e tô um pouco perdido em relação de até onde elas conseguem ir. Se dentro de uma classe eu conseguisse chamar uma outra, maravilha seria para o meu projeto, senão paciência neh...

[jrcardozo 4]

consegue fazer o que pretende, mas use classe somente quando necessario e não sempre

[diegolauro 0]

você sabe como faz ou já viu algo em que eu possa me basear?

 

Eu tentei assim, mas apresentou erro.

 

CODE

<!--#include file="../../includes/classeGeral.asp" -->

 

<%

'nome da classe

Class Usuarios

 

Dim Nome, Login, Email, Senha, Status 'definição de variáveis que serão utilizadas para guardar as informações que serão digitadas.

'Dim objCnx

Private Conn 'variáel que fará a conexão com banco.

Private RS 'variável do recordset.

Private SQL 'variável que terá o retorno do que foi gravado.

'Conexão com o banco

Sub Conexao

objCnx = new Connection 'Chamando a classe

objCnx.DBTipo = "sqlserver" 'Informar o tipo do banco de dados.

objCnx.DBOpen()

End Sub

 

 

'função que chamarei para fazer a inclusão dos dados.

Sub Incluir

'chama a função que faz a conexão com banco.

Call Conexao

 

SQL = "SELECT cd_usuario FROM usuario WHERE email='" & email & "'"

Set RS = Conn.Execute(SQL)

 

If Rs.Eof Then

SQL = "INSERT INTO usuario (nome, login, email, senha , status) "

SQL = SQL & "VALUES ( "

SQL = SQL & "'" & nome & "', "

SQL = SQL & "'" & login & "', "

SQL = SQL & "'" & email & "', "

SQL = SQL & "'" & senha & "', "

SQL = SQL & status & ") "

 

Set RS = Conn.Execute(SQL)

 

session("mensagem") = "Usuário cadastrado com sucesso!"

Else

session("mensagem") = "E-mail já cadastrado em nossa base de dados."

End If

 

Call FechaConexao

End Sub

 

 

End Class