关闭

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

1346人阅读 评论(0) 收藏 举报

[] 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"

 

 

 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:190062次
    • 积分:2460
    • 等级:
    • 排名:第14975名
    • 原创:46篇
    • 转载:32篇
    • 译文:0篇
    • 评论:38条