HIERARQUIA DE CLASSES

 Tópico anterior Próximo tópico Novo tópico

HIERARQUIA DE CLASSES

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#480006 - 05/03/2018 20:43:18

NOWLIGHTS
SUMARE
Cadast. em:Abril/2011


boa noite galera,

Desenvolvi uma aplicação que usa Access para guardar dados (não preciso de nada robusto) e então me pediram para poder configurar a pasta onde está o arquivo.mdb, porém surgiu a duvida, como faço para levar este dado até a classe de conexão?
meu sistema é dividido entre 4 "niveis"

1 Sistema (Windows Forms)
2 BLL
3 DAL
4 Entidades/Classe de propriedades

e é exatamente assim
1 recebe 2 e 4
2 recebe 3 e 4
e
3 recebe 4

E minha classe de conexão;
  Public Class Conexao
    Public Shared ConnectionString = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=c:\EasyScript\Data\EasyData.mdb"
    Public Shared Conexao As New OleDb.OleDbConnection(ConnectionString)


    Public Shared Sub Conectar()
        If Conexao.State = ConnectionState.Closed Then
            Conexao.Open()
        End If
    End Sub
    Public Shared Sub Desconect()
        If Conexao.State = ConnectionState.Open Then
            Conexao.Close()
        End If
    End Sub
End Class


Está na camada 3 DAL, a duvida é, como faço para inserir dados no ConnectionString direto do Window Form (Nivel 1) eu pensei em algumas formas, más, me pareceu meio gambiarra.

__________________________________
- Everyone has a chance


Resposta escolhida #480009 - 05/03/2018 22:49:02

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
A camada de apresentação nem deve "saber" sobre a conexão. Coloque os dados da connection string no App.Config e busque de lá.

_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#480058 - 07/03/2018 21:56:11

NOWLIGHTS
SUMARE
Cadast. em:Abril/2011


Boa noite,

Kerp, já estou conseguindo ler a ConnectionString;

  <connectionStrings>
  <add name="Connection" connectionString="Provider=Microsoft.Jet.Oledb.4.0; Data Source=c:\EasyScript\Data\EasyData.mdb"/>
</connectionStrings>


  Dim config = System.Configuration.ConfigurationManager.ConnectionStrings("Connection").ConnectionString


Porém, não estou conseguindo salvar uma alteração nessa ConnectionString :/

__________________________________
- Everyone has a chance


#480059 - 07/03/2018 22:05:28

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Muito simples, salve novamente a connectionstring:

Configuration config = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None);
config.ConnectionStrings.ConnectionStrings[Connection].ConnectionString = "qualquer valor aqui, inclusive o conteúdo de uma textbox";
config.Save(ConfigurationSaveMode.Modified, true);
ConfigurationManager.RefreshSection("connectionStrings");


_______________________________________________________________________
Gostaria de ter seu sistema Desktop "traduzido" para uma interface web? Podemos conversar...
Virei Oráculo!
The end is nigh, be ready for the nukes!


#480091 - 09/03/2018 20:23:57

NOWLIGHTS
SUMARE
Cadast. em:Abril/2011


Valeu kerp, era isso mesmo

__________________________________
- Everyone has a chance


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por NOWLIGHTS em 09/03/2018 20:24:09