国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

手把手教你使用VB來創(chuàng)建ASP組件(5) 

2019-11-18 20:56:35
字體：大 中 小
供稿：網(wǎng)友
5、 ISEOf方法

　　IsEof方法是用來判斷是否還有更多的信息

其代碼如下

PRivate Function IsEof() As Boolean

IsEof = RecordSetCD.EOF

End Function

6、 NextCD 方法

　　NextCD方法的目的是返回當(dāng)前的CD信息，并將記錄集的指針向下移動，這可以通過MoveNext方法和IsEof配合使用來實現(xiàn)

Private Sub NextCD(Id As Variant, Name As Variant, Author As Variant, Price As Variant, Information As Variant)

On Error Resume Next

If IsEof = True Then

Err.Raise vbObject + 1, "CD Information", "End of cursor"

Exit Sub

End If

Id = RecordSetCD.Fields("CD_ID")

Name = RecordSetCD.Fields("CD_Name")

Author = RecordSetCD.Fields("CD_Author")

Price = RecordSetCD.Fields("CD_Price")

Information = RecordSetCD.Fields("CD_Information")

RecordSetCD.MoveNext

End Sub

　　好，我們已經(jīng)編寫好了組件，把它們編譯成CD.dll后，你最好把他們注冊一下 方法是在DOS界面下，輸入regsvr32 CD.dll 

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板： 开远市| 淮滨县| 义马市| 新干县| 富源县| 乌兰县| 临邑县| 稻城县| 诸暨市| 莲花县| 云安县| 张家川| 乐清市| 盐池县| 成安县| 昌乐县| 东乡县| 松原市| 哈巴河县| 胶南市| 乐山市| 麻栗坡县| 修文县| 土默特左旗| 渭南市| 龙海市| 庆阳市| 秦安县| 武冈市| 定日县| 洛南县| 清水河县| 云南省| 祁阳县| 郁南县| 任丘市| 偃师市| 拉孜县| 陇西县| 疏勒县| 长白|