vbnet2008連接oracle增刪改查學(xué)習(xí)筆記(經(jīng)典crud_含存儲(chǔ)過(guò)程).doc

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

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