Fatal编程技术网
  • vb6/
  • Vb6 如何为MDI中的所有表单设置数据库连接？

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

vb6

Vb6 如何为MDI中的所有表单设置数据库连接？,vb6,Vb6,我正在使用MDI表单，在所有需要数据库连接的表单中，如何为所有表单提供连接都是活动的 我想为所有人编写一个公共连接。然后，我将在需要时调用表单的连接。您可以在模块中定义连接对象，并在任何地方使用它。在MDI表单中创建模块级变量以保存连接： Private m_Conn as ADODB.Connection 在MDI表单中创建公共属性getter： Public Property Get CurrentConnection() as ADODB.Connection Set Curr

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

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

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

在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