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

由于我们要操作，要使用到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