3、 Add方法 

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

  Add方法的目的是向数据库中添加一条新的CD信息,因此它打开的记录集要求能够更新。这就不能像OpenDB中那样仅用Open打开数据集。详细的代码见下面: 

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

Private Sub Add(Id As String, Name As String, Author As String, Price As Currency, Information As String) 

1、 OpenDB方法 

Dim NewConn As New ADODB.Connection 

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

Dim NewRecordsetCD As New ADODB.Recordset 

Option Explicit 

NewConn.Open “Provider=SQLOLEDB;DataSource=MUSE;Initial Catalog=Music;UserId=Wayne;Password=AbCdEfG” 

Private Conn As ADODB.Connection 

NewRecordsetCD.Open “SELECT * FROM CD”, NewConn, adOpenDynamic, adLockOptimistic 

Private RecordSetCD As ADODB.Recordset 

NewRecordsetCD.AddNew 

’打开连接和结果集 

NewRecordsetCD.Fields(“CD_ID”) = Id 

Private Sub OpenDB() 

NewRecordsetCD.Fields(“CD_Name”) = Name 

Set Conn = New ADODB.Connection 

NewRecordsetCD.Fields(“CD_Author”) = Author 

Set RecordSetCD = New ADODB.Recordset 

NewRecordsetCD.Fields(“CD_Price”) = Price 

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

NewRecordsetCD.Fields(“CD_Information”) = Information 

RecordSetCD.Open “SELECT * FROM CD”, Conn 

NewRecordsetCD.Update 

End Sub 

End Sub 

2、 CloseDB方法 

网站地图xml地图