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

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

手把手教你運用VB來創建ASP組件(4) 

手把手教你運用VB來創建ASP組件(4) 

更新時間:2022-05-14 文章作者:未知 信息來源:網絡 閱讀次數:

3、 Add方法

  Add方法的目的是向數據庫中添加一條新的CD信息,因此它打開的記錄集要求能夠更新。這就不能像OpenDB中那樣僅用Open打開數據集。詳細的代碼見下面:

Private Sub Add(Id As String, Name As String, Author As String, Price As Currency, Information As String)

Dim NewConn As New ADODB.Connection

Dim NewRecordsetCD As New ADODB.Recordset

NewConn.Open "Provider=SQLOLEDB;DataSource=MUSE;Initial Catalog=Music;UserId=Wayne;Password=AbCdEfG"

NewRecordsetCD.Open "SELECT * FROM CD", NewConn, adOpenDynamic, adLockOptimistic

NewRecordsetCD.AddNew

NewRecordsetCD.Fields("CD_ID") = Id

NewRecordsetCD.Fields("CD_Name") = Name

NewRecordsetCD.Fields("CD_Author") = Author

NewRecordsetCD.Fields("CD_Price") = Price

NewRecordsetCD.Fields("CD_Information") = Information

NewRecordsetCD.Update

End Sub

解釋:使用 NewRecordsetCD.AddNew,

NewRecordsetCD.Fields(“Some_Key”)=Some_Value

NewRecordsetCD.Update 來添加一條紀錄

4、 Delete方法:

  這個方法的目的是為了刪除庫中的某條CD名和相關的信息。它的實現方法是通過查詢表中唯一的CD_ID來定位CD信息,從而刪除該行紀錄

Private Sub Delete(Id As String)

Dim NewConn As New ADODB.Connection

Dim RecordsetDelete As New ADODB.Recordset

NewConn.Open "Provider=SQLOLEDB;DataSource=MUSE;Initial Catalog=Music;UserId=Wayne;Password=AbCdEfG"

’從表中刪除一條信息

NewConn.Execute "DELETE FROM CD WHERE CD_ID ='" & Id & "'", adCmdText + adExecuteNoRecords

End Sub

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 91精品国产免费久久久久久青草 | 国产高清不卡视频 | 成人免费在线视频网 | 中国黄色影院 | 国产一区二区三区免费看 | 日韩激情在线 | 国产福利在线视频尤物tv | 中文字幕日韩精品麻豆系列 | 国产精品9999久久久久仙踪林 | 欧美国产日韩在线 | 欧美成人免费在线观看 | 欧美日本二区 | 亚洲国产精品一区二区不卡 | 欧美 综合 社区 国产 | 精品久久中文网址 | 精品成人一区二区三区免费视频 | 中文字幕一区二区三区永久 | 国产一区亚洲二区 | 99热国产这里只有精品免费 | 久久精品屋 | 国产大陆xxxx做受视频 | 欧美日韩在线观看精品 | 日本看片网址 | 久久精品国产免费看久久精品 | 91香蕉在线观看免费高清 | 久久综合给合久久狠狠狠97色69 | 天天干夜夜欢 | 亚洲欧美日韩成人网 | 美女毛片在线看 | 日日噜噜夜夜狠狠视频buoke | 色综合久久天天综线观看 | 欧美综合自拍亚洲综合图自拍 | 狠狠干天天爽 | 春色视频一区二区三区 | 国产91麻豆视频 | 成人在线观看免费视频 | 亚洲视频二区 | 欧美国产一区二区二区 | 中文字幕有码在线播放 | 视频一区在线观看 | 最新在线防屏蔽国产一区 |