VBNET2008连接Oracle增删改查学习笔记(经典CRUD_含存储过程).docVIP

我的+oracle增删改查学习笔记 （本源码在VB.NET2008下测试通过） 学习VB.NET有一段时间了，之前一直学习VB6.0。过度到.NET后发现与之前所学习的有了相当大的变化。于是将编程经常用到的增删改查代码提炼出来，备后日使用及各位一起学习。各段代码均可以独立运行，读者可以活学活用，设置公共变量剔除冗余代码。可以将连接代码写成函数，随时调用，不用每次都加。 主要内容为：添加数据库部件引用、设置连接字符串、设置界面、查询并将结果放入表中、添加按钮代码、修改操作、删除操作、调用无参数的存储过程、调用有参数的存储过程、最终所有代码。 一、首先，要引用System.Data.OracleClient，我的电脑中已经安装Oracle9i，在COM选项卡下可以找到该项。如果不添加该引用，程序将无法运行。 二、连接字符串（可以添加一个OracleConnection对象，针对您的计算机进行设置，然后复制ConnectionString代码，记得复制完删除它；也可以复制下面的代码，然后更改用户名及密码） 对OracleConnection对象的ConnectionString属性赋值，指定连接位置 objconn.ConnectionString = Data Source=myzsyy;Persist Security Info=True;User ID=bzk22;Password=zxcvbn;Unicode=True 三、界面如下 四、查询并将结果放入表中，代码如下： 我将该段代码放置在了Form_Load过程中，您也可以把该代码放置在按钮或其他过程中。 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strSql As String Dim strConn As String Dim objDA As OracleClient.OracleDataAdapter Dim objds As New Data.DataSet strConn = Data Source=myzsyy;Persist Security Info=True;User ID=bzk22;Password=zxcvbn;Unicode=True strSql = select * from TEST objDA = New OracleClient.OracleDataAdapter(strSql, strConn) objDA.Fill(objds, TEST) DataGridView1.DataSource = objds.Tables(TEST) End Sub 五、添加按钮代码如下： 添加后表格中数据未进行更新，加入Call Form1_Load(sender, e)代码实现即时更新。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strSql As String Dim strConn As String Dim objDA As OracleClient.OracleDataAdapter Dim objds As New Data.DataSet Dim objcb As OracleClient.OracleCommandBuilder Dim objrow As Data.DataRow strConn = Data Source=myzsyy;Persist Security Info=True;User ID=bzk22;Password=zxcvbn;Unicode=True strSql = select * from TEST order by A DESC objDA = New OracleClient.OracleDataAdapter(strSql, strConn) objcb = New OracleClient.OracleCommandBuilder(objDA) objDA.Fill(objd