Private _ConnectString As String
Private _DbServer As String
Private _DbDriver As String
Private _DbDatabase As String
Private _DbUser As String
Private _DbPass As String
Public DbError As String
' ******************************************************
' DB接続プロパティ
' ******************************************************
Public Property DbServer() As String
Get
Return _DbServer
End Get
Set(ByVal value As String)
_DbServer = value
End Set
End Property
Public Property DbDriver() As String
Get
Return _DbDriver
End Get
Set(ByVal value As String)
_DbDriver = value
End Set
End Property
Public Property DbDatabase() As String
Get
Return _DbDatabase
End Get
Set(ByVal value As String)
_DbDatabase = value
End Set
End Property
Public Property DbUser() As String
Get
Return _DbUser
End Get
Set(ByVal value As String)
_DbUser = value
End Set
End Property
Public Property DbPassword() As String
Get
Return _DbPass
End Get
Set(ByVal value As String)
_DbPass = value
End Set
End Property
|