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