最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
一个连接数据库的Class类
时间:2022-06-30 10:13:14 编辑:袖梨 来源:一聚教程网
Option Explicit
'local variable(s) to hold property value(s)
Private lsServer As String 'local copy
Private lsDatabase As String
'local variable(s) to hold property value(s)
Private lsUserName As String 'local copy
Private lsPassword As String 'local copy
Private lsSelectSQL As String 'local copy
'local variable(s) to hold property value(s)
Private lsTable As String 'local copy
Public Property Let Table(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Table = 5
lsTable = vData
End Property
Public Property Get Table() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Table
Table = lsTable
End Property
Public Property Let SelectSQL(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.SelectSQL = 5
lsSelectSQL = vData
End Property
Public Property Get SelectSQL() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.SelectSQL
SelectSQL = lsSelectSQL
End Property
Public Property Let Password(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Password = 5
lsPassword = vData
End Property
Public Property Get Password() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Password
Password = lsPassword
End Property
Public Property Let UserName(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.UserName = 5
lsUserName = vData
End Property
Public Property Get UserName() As String
'used when retrieving value of a property, on the right side of an assignment.
'local variable(s) to hold property value(s)
Private lsServer As String 'local copy
Private lsDatabase As String
'local variable(s) to hold property value(s)
Private lsUserName As String 'local copy
Private lsPassword As String 'local copy
Private lsSelectSQL As String 'local copy
'local variable(s) to hold property value(s)
Private lsTable As String 'local copy
Public Property Let Table(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Table = 5
lsTable = vData
End Property
Public Property Get Table() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Table
Table = lsTable
End Property
Public Property Let SelectSQL(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.SelectSQL = 5
lsSelectSQL = vData
End Property
Public Property Get SelectSQL() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.SelectSQL
SelectSQL = lsSelectSQL
End Property
Public Property Let Password(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.Password = 5
lsPassword = vData
End Property
Public Property Get Password() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Password
Password = lsPassword
End Property
Public Property Let UserName(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.UserName = 5
lsUserName = vData
End Property
Public Property Get UserName() As String
'used when retrieving value of a property, on the right side of an assignment.
相关文章
- 大奉打更人手游平民职业怎么选 最适合平民的四大职业推荐 07-08
- 顶级专家发布重大看涨以太坊(ETH)预测 07-08
- 碳碳岛配额怎么安排 配额管理技巧详解 07-08
- 洛克王国世界内测资格怎么申请 内测资格获取方法 07-08
- 王者荣耀世界什么时候公测 最新公测时间介绍 07-08
- 金铲铲之战s14战略超频猫阵容搭配指南 07-08