日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當(dāng)前位置:雨林木風(fēng)下載站 > 技術(shù)開發(fā)教程 > 詳細(xì)頁面

手把手教你運(yùn)用VB來創(chuàng)建ASP組件(5) 

手把手教你運(yùn)用VB來創(chuàng)建ASP組件(5) 

更新時(shí)間:2022-05-14 文章作者:未知 信息來源:網(wǎng)絡(luò) 閱讀次數(shù):

5、 IsEof方法

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

其代碼如下

Private Function IsEof() As Boolean

IsEof = RecordSetCD.EOF

End Function

6、 NextCD 方法

  NextCD方法的目的是返回當(dāng)前的CD信息,并將記錄集的指針向下移動(dòng),這可以通過MoveNext方法和IsEof配合使用來實(shí)現(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后,你最好把他們注冊(cè)一下 方法是在DOS界面下,輸入regsvr32 CD.dll 

溫馨提示:喜歡本站的話,請(qǐng)收藏一下本站!

本類教程下載

系統(tǒng)下載排行

主站蜘蛛池模板: www.欧美成人 | 国产精品久久久影院 | 国产成人自拍视频在线观看 | 一区二区欧美视频 | 免费网站在线观看国产v片 免费网站在线看 | 欧美日韩在线观看视频 | 牛牛色婷婷在线视频播放 | 在线免费观看精品 | 欧美激情午夜 | 久久青草91线频免费观看 | 日韩二区 | 黄视频免费 | 视频在线观看一区 | 亚洲国产欧美在线观看 | 国产全肉乱妇杂乱视频 | 日本亚洲天堂网 | 婷婷激情综合网 | 精品一区二区三区在线成人 | 天天做人人爱夜夜爽2020毛片 | 久久99亚洲精品久久久久99 | 欧美影片一区二区三区 | 日韩色在线观看 | 日日爽爽 | 国内精品免费久久影院 | 91麻豆国产 | wwwxxx在线观看 | 国产成人免费观看在线视频 | 午夜国产精品色福利视频 | 不卡久久| 夜夜操夜夜摸 | 五月婷婷综合网 | 日本sm极度另类视频 | 精品亚洲视频在线 | 99精品网站 | 久久精品日日躁精品 | 国产亚洲欧美在线中文无广告 | 欧美综合天天夜夜久久 | 成人www视频网站免费观看 | 精品老司机在线观看视频 | 久久久91精品国产一区二区 | 色偷偷影院|