由于我们要操作数据库,要使用到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...[ 查看全文 ]