现在我们开始写组件中的方法
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
标签：
