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

當(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)下載排行

主站蜘蛛池模板: 伊人影院综合 | 精品在线91 | 激情五月婷 | 国产911情侣拍拍在线播放 | 欧美日韩在线永久免费播放 | 国产丝袜调教踩踏在线 | 国产三级在线观看视频不卡 | 国产欧美日韩高清专区ho | 欧美成人午夜免费完成 | 在线观看老湿机免费福利视频 | 热99这里有精品综合久久 | 日本色影院 | 久久综合九九 | 久久精品国产精品亚洲艾 | 国产永久免费爽视频在线 | 中日韩视频在线观看 | 日本a视频在线观看 | 热久久亚洲 | 国产免费资源 | 日韩一级精品久久久久 | 成人网在线观看 | 美国人妖欧美性xxxxk妖 | free×性欧美人妖tube | 日日摸夜夜添夜夜添一区二区 | 狠狠狠色丁香婷婷综合久久88 | 国产第二十三页浮力影院 | 爱爱小视频日本 | 久久99精品视香蕉蕉 | 99热这里只有免费国产精品 | 国产在线观看xxxx免费 | 福利在线视频一区热舞 | 在线观看精品视频一区二区三区 | 欧美国产综合日韩一区二区 | 日本α级毛片视频免费观看 | 久艾草国产成人综合在线视频 | 成人国产精品免费网站 | 一区二区在线观看视频 | 中文字幕在线不卡 | 天天看夜夜看 | 亚洲成人福利在线观看 | 无码免费一区二区三区免费播放 |