国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表

圖片精選

主站蜘蛛池模板： 太谷县| 凤台县| 顺昌县| 怀集县| 元江| 广灵县| 虹口区| 威远县| 岑溪市| 象山县| 滦南县| 囊谦县| 凤庆县| 巴彦淖尔市| 英吉沙县| 田东县| 台东市| 乌兰察布市| 平舆县| 泸溪县| 宣汉县| 东兴市| 荣成市| 靖安县| 泰兴市| 平邑县| 巨鹿县| 钟山县| 景东| 东阿县| 屏山县| 新巴尔虎左旗| 上犹县| 酒泉市| 商城县| 荥经县| 苍梧县| 辽宁省| 曲阜市| 博爱县| 法库县|