Public Property NomBdGeneral() As String
Get
Return VnumEmp
End Get
Set
VnumEmp = Value
End Set
End Property
Public VnumEmp As String
Public CadConex As String = "Data Source=WIN-59UIUI1KGPN\SAMIT; Initial Catalog=" & VnumEmp & ";user id = sa; password = 2121121512"
Я пробовал это так и с плюсом, но он не присваивает значение Начальному каталогу, который в данном случае является именем базы данных. Спасибо ..
Ты мог бы пробовать определяя что-то как это
Public Class Class1
Private VnumEmp As String
Public Property NomBdGeneral() As String
Get
Return VnumEmp
End Get
Set
VnumEmp = Value
End Set
End Property
Public ReadOnly Property CadConex() As String
Get
Return String.Format("Data Source=WIN-59UIUI1KGPN\SAMIT; Initial Catalog={0};user id = sa; password = 2121121512", Me.NomBdGeneral)
End Get
End Property
End Class
И ты это использовал бы этой формы
Dim cls As New Class1
cls.NomBdGeneral = "nombredb"
Dim connstring As String = cls.CadConex
идею состоит instanciar класс, в том, чтобы распределять свойство NomBdGeneral и потом в том, чтобы получать связь
Он был должен объявлять ее следующего способа
Public Shared Property NomBdGeneral() As String
Get
Return VnumEmp
End Get
Set
VnumEmp = Value
End Set
End Property
Private Shared VnumEmp As String
, Но не в одном модулируйте, если не в классе.