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

原创 2006年06月02日 03:18:00

[] 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 (ConnIs Nothing) Then

          Conn.Close

          SetConn = 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"

 

 

 

ASP组件开发 经典教程

  • 2010年07月19日 16:23
  • 9.49MB
  • 下载

ASP.NETMVC经典小事例

  • 2009年08月14日 10:19
  • 1.64MB
  • 下载

C#+.NET中调用VB编写的DLL代码事例

转自:http://www.taotechinfo.com/collect/2010222/n68565463.html http://www.cnblogs.com/Tmouse/archive/...

VB语言COM组件开发GUID指定方法

一、背景          VS2010开发环境下,VB的开发许多代码可以自动的生成模板,节省大量开发时间。 二、方法    新建一个项目,选择Visual Basic\Window \ 类库,假设项...
  • zhouqt
  • zhouqt
  • 2016年05月24日 21:12
  • 1114

asp.net组件工具包vb.net web解决方案

  • 2007年06月24日 11:44
  • 5.03MB
  • 下载

asp_net组件工具包vb_net web解决方案

  • 2007年10月18日 11:18
  • 5.01MB
  • 下载

VB & 数据库交互(二)——经典五实例总结

上一篇讲到了VB与数据库交互的必备知识,这张从经典实例的方向出发,讲述一些经典的代码。        1,在系统登录的例子中:        a,建立数据库连接,和执行查询命令: '建...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB开发ASP组件经典事例[二]
举报原因:
原因补充:

(最多只允许输入30个字)