Quantcast
Channel: Web Config
Viewing all articles
Browse latest Browse all 7

Web Config

$
0
0

mm dejarlo estatico lo dudo, podrias en una clase hacer encapsular esta accion

 

PublicClass ConnStringPrivate connstring AsString = ""PrivateSubNew()
		connstring = ConfigurationMaanger.ConnectionStrings("TBHConnectionString").ToString()EndSubPublicSharedFunction Instance() As ConnStringIf Session("connstring") IsNothingThen
			Session("connstring") = New ConnString()EndIfReturn Session("connstring")EndFunctionPublicProperty usuario() AsStringGetReturn m_usuarioEndGetSet
			m_usuario = ValueEndSetEndPropertyPrivate m_usuario AsStringPublicProperty pass() AsStringGetReturn m_passEndGetSet
			m_pass = ValueEndSetEndPropertyPrivate m_pass AsStringPublicReadOnlyProperty ConnStringComplete() AsStringGetReturn connstring.Replace("@usuario", Me.usaurio).Replace("@constrasena", Me.pass)EndGetEndPropertyEndClass

como veras alli se implementa el patron Singleton, por eso veras el constructor privado

para inicializarlo seria

Dim conn As ConnString = ConnString.Instance()

conn.usuario = txtUsuario.Text
conn.pass = txtpassword.Text


y luego solo lo usas

Dim conn As New SqlConnection(ConnString.Instance().ConnStringComplete)

 

saludos


Leandro Tuttini

Blog
Buenos Aires
Argentina

Viewing all articles
Browse latest Browse all 7


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>