VB开发ASP组件经典事例[二]

[二] VB源码

       操作：

1、  打开VB6，修改工程名为：TestCOM，类模块名为：CDTB

2、  工程>>引用 Microsoft ActiveX Data Objects 2.7 Library (注意:版本不能太高,最好是2.8以下,否则生成DLL会出现错误)

3、  在类文件中输入如下代码

 

Option Explicit

 

Private Conn As ADODB.Connection

Public Function OpenDB(StrConn As String) As ADODB.Connection

Set Conn = New ADODB.Connection

Conn.Open StrConn

Set OpenDB = Conn

End Function

 

Public Sub CloseDB()

     If Not ( Conn Is Nothing) Then

          Conn.Close

          Set Conn = Nothing

     End If

End Sub

 

Public Function Add(CD_Name As String, CD_Author As String) As Boolean

     Dim Rs As New ADODB.Recordset

     On Error GoTo er1

     Rs.Open "Temp_CD", Conn , 1, 3

     Rs.AddNew

          Rs.Fields("CD_Name") = CD_Name

          Rs.Fields("CD_Author") = CD_Author

     Rs.Update

     Add = True

     Exit Function

er1:

     Add = False

End Function

 

Public Function Delete(CD_ID As String) As Boolean

     On Error GoTo er1

     Conn.Execute "Delete From Temp_CD Where CD_ID = '" & CD_ID & "'"

     Delete = True

     Exit Function

er1:

     Delete = False

End Function

 

Public Function Search(CD_ID As String) As ADODB.Recordset

          Set Search = Conn.Execute("Select * From Temp_CD Where CD_ID = '" & CD_ID & "'")

End Function

 

Public Function Update(CD_ID As String, CD_Name As String, CD_Author) As Boolean

     On Error GoTo er1

     Conn.Execute "Update Temp_CD Set CD_Name = '" & CD_Name & "',CD_Author = '" & CD_Author & "' Where CD_ID = '" & CD_ID & "' "

     Update = True

     Exit Function

er1:

     Update = False

End Function

 

 

4、文件>>生成TestCOM.dll

5、调试:（修改VB源码后重新生成DLL）

把如下代码保存为*.bat格式

regsvr32 -u E:/Program/VB/Test_CD/TestCOM.dll
net stop "world wide web publishing service"
net Start "world wide web publishing service"