教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

手把手教你使用VB来创建ASP组件(2)

四、使用VB创建组件


　　现在让我们开始用Visual Basic 6.0（当然使用VB5.0也是可以的 ）创建一个新的ActiveX DLL项目（如图）

然后，把项目名改为CD，把类模块名改为CD_Handle,见下图


由于我们要操作数据库，要使用到ADO，因此我们要引用Microsoft Activex Data Object 2.5 Library.(如下图)

现在我们开始写组件中的方法

1、 OpenDB方法

　　OpenDB方法的思路是建立与MS SQL SERVER7.0的连接，这可以使用SQLOLEDB Provider来实现。建立连接后就可以创建一个包含所有CD信息的记录集。根据以上分析我们写出如下代码。

Option Explicit

Private Conn As ADODB.Connection

Private RecordSetCD As ADODB.Recordset

’打开连接和结果集

Private Sub OpenDB()

Set Conn = New ADODB.Connection

Set RecordSetCD = New ADODB.Recordset

Conn.Open "Provider=SQLOLEDB;DataSource=MUSE;Initial Catalog=Music;UserId=Wayne;Password=AbCdEfG"

RecordSetCD.Open "SELECT * FROM CD", Conn

End Sub

2、 CloseDB方法

　　由于连接数据库是相当昂贵的，所以在不需要使用数据库时，一定要记住关闭Recordset 和Connection对象，CloseDB就是完成这一操作。

Private Sub CloseDB()

’关闭结果集RecordSetCD

If Not (RecordSetCD Is Nothing) Then

If RecordSetCD.State = adStateOpen Then

RecordSetCD.Close

End If

Set RecordSetCD = Nothing

End If

’关闭连接Conn

If Not (Conn Is Nothing) Then

Conn.Close

Set Conn = Nothing

End If

End Sub