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

我的VBNETORACLE增刪改查學習筆記(本源碼在VBNET2008下測試通過)學習VBNET有一段時間了，之前一直學習VB60。過度到NET后發(fā)現(xiàn)與之前所學習的有了相當大的變化。于是將編程經(jīng)常用到的增刪改查代碼提煉出來，備后日使用及各位一起學習。各段代碼均可以獨立運行，讀者可以活學活用，設(shè)置公共變量剔除冗余代碼。可以將連接代碼寫成函數(shù)，隨時調(diào)用，不用每次都加。主要內(nèi)容為添加數(shù)據(jù)庫部件引用、設(shè)置連接字符串、設(shè)置界面、查詢并將結(jié)果放入表中、添加按鈕代碼、修改操作、刪除操作、調(diào)用無參數(shù)的存儲過程、調(diào)用有參數(shù)的存儲過程、最終所有代碼。一、首先，要引用SYSTEMDATAORACLECLIENT，我的電腦中已經(jīng)安裝ORACLE9I，在COM選項卡下可以找到該項。如果不添加該引用，程序?qū)o法運行。二、連接字符串(可以添加一個ORACLECONNECTION對象，針對您的計算機進行設(shè)置，然后復(fù)制CONNECTIONSTRING代碼，記得復(fù)制完刪除它；也可以復(fù)制下面的代碼，然后更改用戶名及密碼) 對ORACLECONNECTION對象的CONNECTIONSTRING屬性賦值，指定連接位置OBJCONNCONNECTIONSTRING“DATASOURCEMYZSYYPERSISTSECURITYINFOTRUEUSERIDBZK22PASSWORDZXCVBNUNICODETRUE“三、界面如下四、查詢并將結(jié)果放入表中，代碼如下我將該段代碼放置在了_LOAD過程中，您也可以把該代碼放置在按鈕或其他過程中。PRIVATESUB1_LOADBYVALSENDERASSYSTEMOBJECT,BYVALEASSYSTEMEVENTARGSHANDLESMYBASELOADDIMSTRSQLASSTRINGDIMSTRCONNASSTRINGDIMOBJDAASORACLECLIENTORACLEDATAADAPTERDIMOBJDSASNEWDATADATASETSTRCONN“DATASOURCEMYZSYYPERSISTSECURITYINFOTRUEUSERIDBZK22PASSWORDZXCVBNUNICODETRUE“STRSQL“SELECTFROMTEST“OBJDANEWORACLECLIENTORACLEDATAADAPTERSTRSQL,STRCONNOBJDAFILLOBJDS,“TEST“DATAGRIDVIEW1DATASOURCEOBJDSTABLES“TEST“ENDSUB五、添加按鈕代碼如下添加后表格中數(shù)據(jù)未進行更新，加入CALL1_LOADSENDER,E代碼實現(xiàn)即時更新。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六、修改操作，分兩步，首先將表格中選中行數(shù)據(jù)放在各個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

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。