如何为MDI中的所有表单设置数据库连接？

Question

使用vb6

我正在使用MDI表单，在所有表单中我需要数据库连接，如何为所有表单提供连接。

我想为所有人写一个公共连接。然后我会在需要的时候调用表单的连接。

是MDI表格的新手。

需要VB6代码帮助。

Answer 1

您可以在模块中定义连接对象，并在任何地方使用它。

Answer 2

在MDI表单中创建一个模块级变量来保存连接：

Private m_Conn as ADODB.Connection

在MDI表单中创建一个公共属性getter：

Public Property Get CurrentConnection() as ADODB.Connection
     Set CurrentConnection = m_Conn
End Property

从您的子表单中获取MDI表单的连接（假设MDI表单名为MainForm）：

Dim oConn As ADODB.Connection

Set oConn = MainForm.CurrentConnection