在 VB6 中设置属性？答案

【问题标题】：Setting a property in VB6?在 VB6 中设置属性？
【发布时间】：2015-04-30 13:40:31
【问题描述】：

如何设置此属性的连接字符串值？

Dim mdbDataStoreADOConnection As ADODB.Connection

Public Property Set DataStoreConnection(ByVal dbNewDataStoreConnection As ADODB.Connection) 
 Set mdbDataStoreADOConnection = dbNewDataStoreConnection 
End Property

我希望能够设置这个连接变量的连接字符串，例如：

mdbDataStoreADOConnection.ConnectionString = "Provider=MSDASQL;Driver={MySQL ODBC 5.2 ANSI Driver};Server=localhost;Database=myDataBase;User=myUsername;Password=myPassword;Option=3;"

我还在学习 VB6 并且不确定如何为这个属性赋值？

【问题讨论】：

哇。刚学VB6？我假设您知道它已过时且不受支持？如果你知道，那么祝你好运！
是的，我知道感谢您的帮助。我工作的公司使用它，所以我必须学习它。
只是确保你知道。你会感到惊讶，但有些人不知道。

标签： properties vb6 connection-string ado

【解决方案1】：

你目前正在做的是设置一个对象。你说你想做的是设置对象的属性。您现有的代码有几个选择。如果您已有匹配的 Get 属性，则可以访问 DataStoreConnection 对象的 ConnectionString 属性。

Public Property Get DataStoreConnection() As ADODB.Connection
    Set DataStoreConnection = mdbDataStoreADOConnection
End Property

然后您将设置 ConnectionString 属性为

DataStoreConnection.ConnectionString = "Provider=MSDASQL;Driver={MySQL ODBC 5.2 ANSI Driver};Server=localhost;Database=myDataBase;User=myUsername;Password=myPassword;Option=3;"

没有错误处理，如果使用不当，代码本身可能会导致错误。例如，如果尚未设置 DataStoreConnection，则您的变量 mdbDataStoreADOConnection 什么都不是，尝试访问属性将导致错误。

【讨论】：