在控件中:
Private m_Conn as ADODB.ConnectionPublic Property Get DBConnect() As ADODB.Connection
Set DBConnect = m_Conn
End PropertyPublic Property Set DBConnect(ByVal DBconn As ADODB.Connection)
Set m_Conn = DBconn
'Set DBConnect = DBconn '不要这句
End Property
在测试工程中:
Dim dbConn As New ADODB.Connection
dbConn.Open Connstring
Grid1.DBConnect=dbConn
Private m_Conn as ADODB.ConnectionPublic Property Get DBConnect() As ADODB.Connection
Set DBConnect = m_Conn
End PropertyPublic Property Set DBConnect(ByVal DBconn As ADODB.Connection)
Set m_Conn = DBconn
'Set DBConnect = DBconn '不要这句
End Property
在测试工程中:
Dim dbConn As New ADODB.Connection
dbConn.Open Connstring
Grid1.DBConnect=dbConn
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货