前几天谁问的?从dll返回连接对象给asp使用,例子在里面

80酷酷网    80kuku.com

  对象dll工程的名字为NN,类的名字为TT
Option Explicit

Function test() As String

    test = "test!!!!"
    
End Function


Public Function GetConn() As ADODB.Connection

    Dim conn As ADODB.Connection
    
    Set conn = New ADODB.Connection
    
    
    Debug.Print ("ok")
    
    Set GetConn = conn
    
End Function

exe工程的名字为NA,

Option Explicit

Private Sub Form_Load()

    
    Dim a As NN.TT
    
    Set a = New NN.TT
    
    
    Dim b As Object
    
    Set b = a.GetConn()
     
    '这里的b就是一个adodb.connectioh对象
    Debug.Print b.version()
    


End Sub

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: