55 lines
1.1 KiB
VB.net
55 lines
1.1 KiB
VB.net
|
Public Class ConexionNET
|
||
|
|
|
||
|
|
Dim strServidor As String
|
||
|
|
Dim strMDServidor As String
|
||
|
|
Dim strBase As String
|
||
|
|
Dim strUser As String
|
||
|
|
Dim StrPassw As String
|
||
|
|
|
||
|
|
Public Property Servidor()
|
||
|
|
Get
|
||
|
|
Servidor = strServidor
|
||
|
|
End Get
|
||
|
|
Set(ByVal Value)
|
||
|
|
strServidor = Value
|
||
|
|
End Set
|
||
|
|
End Property
|
||
|
|
|
||
|
|
Public Property MDServidor()
|
||
|
|
Get
|
||
|
|
MDServidor = strMDServidor
|
||
|
|
End Get
|
||
|
|
Set(ByVal Value)
|
||
|
|
strMDServidor = Value
|
||
|
|
End Set
|
||
|
|
End Property
|
||
|
|
|
||
|
|
Public Property BaseDatos()
|
||
|
|
Get
|
||
|
|
BaseDatos = strBase
|
||
|
|
End Get
|
||
|
|
Set(ByVal Value)
|
||
|
|
strBase = Value
|
||
|
|
End Set
|
||
|
|
End Property
|
||
|
|
|
||
|
|
Public Property Usuario()
|
||
|
|
Get
|
||
|
|
Usuario = strUser
|
||
|
|
End Get
|
||
|
|
Set(ByVal Value)
|
||
|
|
strUser = Value
|
||
|
|
End Set
|
||
|
|
End Property
|
||
|
|
|
||
|
|
Public Property Password()
|
||
|
|
Get
|
||
|
|
Password = StrPassw
|
||
|
|
End Get
|
||
|
|
Set(ByVal Value)
|
||
|
|
StrPassw = Value
|
||
|
|
End Set
|
||
|
|
End Property
|
||
|
|
|
||
|
|
End Class
|