一个连接数据库的Class类
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. ''Syntax: Debug.Print X.UserName UserName = lsUserName End Property Public Property Let Server(ByVal vData As String) ''used when assigning a value to the property, on the left side of an assi |
查看所有评论