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

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

手把手教你運用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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 在线观看午夜视频 | 高清在线一区二区三区亚洲综合 | 亚洲欧美在线免费观看 | 亚州人成网在线播放 | 久久色网 | 国产第一草草影院 | 在线一区播放 | 日本视频色 | 老司机观看精品一区二区 | 欧美激情网址 | 国产69久久精品成人看小说 | 亚洲男人天堂a | xxxxwww一片| 黄网站色视频免费看无下截 | 婷婷色中文网 | 国产一区二区三区免费 | 极品国产一区二区三区 | 欧美做爰猛烈床戏大尺度黑人 | 久久久久九九精品影院 | 国产精品视频免费视频 | 国产成人精品福利网站在线观看 | 在线亚洲播放 | 成人网在线观看 | 久久成人精品免费播放 | 精品久久久久久无码中文字幕 | 最新欧美精品一区二区三区不卡 | 孕妇孕妇aaaaa | 91尤物国产尤物福利 | 久久性感美女视频 | 欧美在线一 | 深夜影院破解版免费vip | 91在线播| 国产成人精品区在线观看 | 国产在线不卡午夜精品2021 | 午夜影院操 | 精品91自产拍在线观看99re | 国产成人亚洲精品2020 | 最近中文字幕在线 | 中文 | 午夜精品久久影院蜜桃 | 成人情趣片免费看 | 欧美国产片 |