繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 手把手教你使用VB来创建ASP组件(3)
- ASP
- 在ASP应用中验证用户身份(2)
- 在ASP应用中验证用户身份(3)
- 在ASP应用中验证用户身份(4)
- 在ASP应用中验证用户身份(5)
- 用ASP开发一个在线考试程序（一）
- 用ASP开发一个在线考试程序（二）
- 用ASP开发一个在线考试程序（三）
- 用ASP开发一个在线考试程序（四）
- 用表单来提交sql - 1
- 用表单来提交sql - 2
- 用表单来提交sql - 3
- 让您的主页支持各种浏览设备（ASP+篇)(上）
- 如何用ASP编写网站统计系统（一）
- 如何用ASP编写网站统计系统（二）
- 如何用ASP编写网站统计系统（三）
- 如何用ASP编写网站统计系统（四）
- 一个免费的邮件列表源程序(一)
- 一个免费的邮件列表源程序(二)
- 一个免费的邮件列表源程序(三)
- 用密码保护页面 (I)
手把手教你使用VB来创建ASP组件(3)
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 121 ::
收藏到网摘: n/a
现在我们开始写组件中的方法
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
评论 (0) All
