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

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

http://www.itcnw.com/

• 打印文档
• 推荐好友
• 
• 返回顶部
• 增大字体
• 减少字体

• 上一篇文章：列出服务器上的打印机
• 下一篇文章：构建稳定的服务器端组件的七个步骤(载自微软)