vbnet2008連接oracle增刪改查學習筆記(經典crud_含存儲過程).doc

我的VBNETORACLE增刪改查學習筆記(本源碼在VBNET2008下測試通過)學習VBNET有一段時間了，之前一直學習VB60。過度到NET后發現與之前所學習的有了相當大的變化。于是將編程經常用到的增刪改查代碼提煉出來，備后日使用及各位一起學習。各段代碼均可以獨立運行，讀者可以活學活用，設置公共變量剔除冗余代碼。可以將連接代碼寫成函數，隨時調用，不用每次都加。主要內容為添加數據庫部件引用、設置連接字符串、設置界面、查詢并將結果放入表中、添加按鈕代碼、修改操作、刪除操作、調用無參數的存儲過程、調用有參數的存儲過程、最終所有代碼。一、首先，要引用SYSTEMDATAORACLECLIENT，我的電腦中已經安裝ORACLE9I，在COM選項卡下可以找到該項。如果不添加該引用，程序將無法運行。二、連接字符串(可以添加一個ORACLECONNECTION對象，針對您的計算機進行設置，然后復制CONNECTIONSTRING代碼，記得復制完刪除它；也可以復制下面的代碼，然后更改用戶名及密碼) 對ORACLECONNECTION對象的CONNECTIONSTRING屬性賦值，指定連接位置OBJCONNCONNECTIONSTRING“DATASOURCEMYZSYYPERSISTSECURITYINFOTRUEUSERIDBZK22PASSWORDZXCVBNUNICODETRUE“三、界面如下四、查詢并將結果放入表中，代碼如下我將該段代碼放置在了_LOAD過程中，您也可以把該代碼放置在按鈕或其他過程中。PRIVATESUB1_LOADBYVALSENDERASSYSTEMOBJECT,BYVALEASSYSTEMEVENTARGSHANDLESMYBASELOADDIMSTRSQLASSTRINGDIMSTRCONNASSTRINGDIMOBJDAASORACLECLIENTORACLEDATAADAPTERDIMOBJDSASNEWDATADATASETSTRCONN“DATASOURCEMYZSYYPERSISTSECURITYINFOTRUEUSERIDBZK22PASSWORDZXCVBNUNICODETRUE“STRSQL“SELECTFROMTEST“OBJDANEWORACLECLIENTORACLEDATAADAPTERSTRSQL,STRCONNOBJDAFILLOBJDS,“TEST“DATAGRIDVIEW1DATASOURCEOBJDSTABLES“TEST“ENDSUB五、添加按鈕代碼如下添加后表格中數據未進行更新，加入CALL1_LOADSENDER,E代碼實現即時更新。PRIVATESUBBUTTON1_CLICKBYVALSENDERASSYSTEMOBJECT,BYVALEASSYSTEMEVENTARGSHANDLESBUTTON1CLICKDIMSTRSQLASSTRINGDIMSTRCONNASSTRINGDIMOBJDAASORACLECLIENTORACLEDATAADAPTERDIMOBJDSASNEWDATADATASETDIMOBJCBASORACLECLIENTORACLECOMMANDBUILDERDIMOBJROWASDATADATAROWSTRCONN“DATASOURCEMYZSYYPERSISTSECURITYINFOTRUEUSERIDBZK22PASSWORDZXCVBNUNICODETRUE“STRSQL“SELECTFROMTESTORDERBYADESC“OBJDANEWORACLECLIENTORACLEDATAADAPTERSTRSQL,STRCONNOBJCBNEWORACLECLIENTORACLECOMMANDBUILDEROBJDAOBJDAFILLOBJDS,“TEST“OBJROWOBJDSTABLES“TEST“NEWROWOBJROW“A“TEXTBOX1TEXTOBJROW“B“TEXTBOX2TEXTOBJROW“C“TEXTBOX3TEXTOBJROW“D“TEXTBOX4TEXTOBJDSTABLES“TEST“ROWSADDOBJROWOBJDAUPDATEOBJDS,“TEST“CALL1_LOADSENDER,EENDSUB六、修改操作，分兩步，首先將表格中選中行數據放在各個TEXTBOX中，然后進行UPDATE操作。第一步注意是DATAGRIDVIEW1_CELLCLICK事件。其他事件單擊后無此效果。PRIVATESUBDATAGRIDVIEW1_CELLCLICKBYVALSENDERASOBJECT,BYVALEASSYSTEMWINDOWSSDATAGRIDVIEWCELLEVENTARGSHANDLESDATAGRIDVIEW1CELLCLICKTEXTBOX1TEXTDATAGRIDVIEW1CURRENTROWCELLSITEM0VALUETOSTRINGTEXTBOX2TEXTDATAGRIDVIEW1CURRENTROWCELLSITEM1VALUETOSTRINGTEXTBOX3TEXTDATAGRIDVIEW1CURRENTROWCELLSITEM2VALUETOSTRINGTEXTBOX4TEXTDATAGRIDVIEW1CURRENTROWCELLSITEM3VALUETOSTRINGENDSUB第二部修改按鈕代碼如下PRIVATESUBBUTTON3_CLICKBYVALSENDERASSYSTEMOBJECT,BYVALEASSYSTEMEVENTARGSHANDLESBUTTON3CLICKDIMSTRSQLASSTRINGDIMSTRCONNASSTRINGDIMOBJDAASORACLECLIENTORACLEDATAADAPTERDIMOBJDSASNEWDATADATASETSTRCONN“DATASOURCEMYZSYYPERSISTSECURITYINFOTRUEUSERIDBZK22PASSWORDZXCVBNUNICODETRUE“STRSQL“UPDATETESTSETB “TRIMTEXTBOX2TEXT“ ,C “TRIMTEXTBOX3TEXT“ ,D “TRIMTEXTBOX4TEXT“ WHEREA “TRIMTEXTBOX1TEXT“ “OBJDANEWORACLECLIENTORACLEDATAADAPTERSTRSQL,STRCONNOBJDAFILLOBJDS,“TEST“CALL1_LOADSENDER,EENDSUBENDCLASS七、刪除按鈕代碼如下PRIVATESUBBUTTON2_CLICKBYVALSENDERASSYSTEMOBJECT,BYVALEASSYSTEMEVENTARGSHANDLESBUTTON2CLICKDIMSTRSQLASSTRINGDIMSTRCONNASSTRINGDIMOBJDAASORACLECLIENTORACLEDATAADAPTERDIMOBJDSASNEWDATADATASETSTRCONN“DATASOURCEMYZSYYP

總結

以上是生活随笔為你收集整理的vb.net调用oracle存储过程,vbnet2008连接oracle增删改查学习笔记(经典crud_含存储过程).doc...的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。