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

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

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

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 草草免费观看视频在线 | 日韩a在线播放 | 偷偷久久 | 国产福利在线网址成人 | 成人免费观看www视频 | 成人免费观看www在线 | 国产精品久久久久影视青草 | 免费无毒片在线观看 | 日日操夜夜摸 | 老司机51精品视频在线观看 | 日本一级毛片免费播放 | 香港三级日本三级人妇三级四 | 日本青青草| 欧美日韩一区二区三区四区在线观看 | 国产69精品久久久久999三级 | www.久久艹 | 九九久久香港经典三级精品 | 精品视自拍视频在线观看 | 亚洲不卡视频在线观看 | 日韩精品一区二区三区中文3d | 天天操天天操天天操天天操 | 波多野结衣在线一区 | 丁香狠狠色婷婷久久综合 | 色在线免费视频 | 大美女久久久久久j久久 | 欧美成人综合视频 | 亚洲狠狠综合久久 | 久久精品亚洲综合 | 手机在线精品视频每日更新 | 日韩一级在线 | 精品欧美高清不卡在线 | 99久久综合狠狠综合久久 | 国自产精品手机在线视频香蕉 | 亚洲成人综合在线 | 国产亚洲网站 | 99久久精品久久久久久婷婷 | 久久草影视 | 欧美人成网站在线看 | 国产成人精选免费视频 | 蕾丝视频成人★在线观看 | 久久精品国产福利国产琪琪 |