大家都知道VB.NET，oracle，但是如何在VB.NET使用ORACLE数据库呢，我想这个问题很多人都不知道怎么解决，在这里给大家演示一个示例吧。Oracle.DataAccess.Client 命名空间是 ODP.NET 的一部分，它包含许多类，其中有OracleConnection、OracleCommand 和 OracleTransaction。示例程序用到了这些类。
VB.NET使用ORACLR第 1 步
创建一个 OracleConnection 对象连接到 Oracle 数据库，然后打开该连接。
在 C# 中：
- OracleConnection myOracleConnection =new OracleConnection(
- "User Id=store;Password=store;Data Source=ORCL"
- );
- myOracleConnection.Open();
在 VB.NET 中:
- Dim myOracleConnection As New OracleConnection( _
- "User Id=store;Password=store;Data Source=ORCL")
- myOracleConnection.Open()
User Id 和 Password 属性指定了您所要连接到的模式的数据库用户和口令。Data Source 属性指定了数据库的 Oracle Net 服务名称；初始数据库的默认服务名称为 ORCL。如果您使用的不是初始数据库，或者您的服务名称不同，那么您需要在程序中修改 Data Source 属性的设置。
VB.NET使用ORACLR第 2 步
创建一个 OracleTransaction 对象，然后调用 OracleConnection 对象的 BeginTransaction() 方法启动事务。
在 C# 中：
- OracleTransaction myOracleTransaction =
- myOracleConnection.BeginTransaction();
- In VB.NET:
- Dim myOracleTransaction As OracleTransaction = _
- myOracleConnection.BeginTransaction()
VB.NET使用ORACLR第3 步
创建一个 OracleCommand 对象，用于存储 SQL 语句。
在 C# 中：
- OracleCommand myOracleCommand = myOracleConnection.CreateCommand();
在 VB.NET 中：
- Dim myOracleCommand As OracleCommand =
- myOracleConnection.CreateCommand
因为 OracleCommand 对象使用 OracleConnection 对象的 CreateCommand() 方法创建的，所以它自动使用在第 2 步中为 OracleConnection 对象设置的事务。
VB.NET使用ORACLR第 4 步
将 OracleCommand 对象的 CommandText 属性设为向表 product_types 中添加一行的第一条 INSERT 语句。
在 C# 中：
- myOracleCommand.CommandText =
- "INSERT INTO product_types (" +
- " product_type_id, name" +
- ") VALUES (" +
- " 3, 'Magazine'" +
- ")";
在 VB.NET 中：
- myOracleCommand.CommandText = _
- "INSERT INTO product_types (" & _
- " product_type_id, name" & _
- ") VALUES (" & _
- " 3, 'Magazine'" & _
- ")"
VB.NET使用ORACLR第 5 步
使用 OracleCommand 对象的 ExecuteNonQuery() 方法运行 INSERT 语句。
在 C# 中：
- myOracleCommand.ExecuteNonQuery();
在 VB.NET 中：
- myOracleCommand.ExecuteNonQuery();
VB.NET使用ORACLR第 6 和第 7 步
将 OracleCommand 对象的 CommandText 属性设为向表 Products 中添加一行的第二条 INSERT 语句，并运行它。
在 C# 中：
- myOracleCommand.CommandText =
- "INSERT INTO products (" +
- " product_id, product_type_id, name, description, price" +
- ") VALUES (" +
- " 5, 3, 'Oracle Magazine', 'Magazine about Oracle', 4.99" +
- ")";
- myOracleCommand.ExecuteNonQuery();
在 VB.NET 中：
- myOracleCommand.CommandText = _
- "INSERT INTO products (" & _
- " product_id, product_type_id, name, description, price" & _
- ") VALUES (" & _
- " 5, 3, 'Oracle Magazine', 'Magazine about Oracle', 4.99" & _
- ")"
- myOracleCommand.ExecuteNonQuery()
VB.NET使用ORACLR第 8 步
使用 OracleTransaction 对象的 Commit() 方法提交数据库中的事务。
在 C# 中：
- myOracleTransaction.Commit();
在 VB.NET 中：
- myOracleTransaction.Commit()
在完成 Commit() 方法之后，由 INSERT 语句添加的两行将在数据库中永久记录。
VB.NET使用ORACLR第 9 步
使用 Close() 方法关闭 OracleConnection 对象。
在 C# 中：
- myOracleConnection.Close();
在 VB.NET 中：
- myOracleConnection.Close()
编译并运行示例程序
要编译 C# 示例程序，您可以使用 csc 命令运行 C# 编译器。因为程序使用 Oracle Data Access DLL，所以您应使用 /r 选项指定该 DLL 的完整路径，例如：
注意：您需要用您计算机上的相应路径来替换该 DLL 的路径。此外，如果您的计算机找不到 csc 编译器，那么您可能需要运行 Microsoft sdkvars.bat 脚本来首先设置 .NET SDK 的环境变量；您可以在安装 .NET SDK 的 bin 目录中找到该脚本。
如果您遇到以下错误：
- Example1.cs(10,7):error CS0246:The type or namespace name 'Oracle'
- could not be found (are you missing a using
- directive or an assembly reference?)
这说明您没有在编译命令中正确指定 Oracle Data Access DLL。（有关设置的信息，请参阅 John Paul Cook 的技术文章“在 Oracle 数据库上构建 .NET 应用程序”。）
下面是用于编译 VB.NET 程序的等价命令：
- vbc TransExample1.vb /r:C:\oracle\product\10.1.0\
- Client_1\bin\Oracle.DataAccess.dll /r:system.dll /r:system.data.dll
接下来，输入以下命令，运行示例：
- An exception was thrown
- Message = ORA-12514:TNS:listener does not currently know
- of service requested in connect descriptor
您将看到程序的输出。不过，如果您遇到类似以下的异常
这说明 OracleConnection 对象的连接字符串中的 Data Source 的设置不正确。您应当咨询您的 DBA 或查阅 Oracle Net 文档以获得更多详细信息。
如果您使用的是 VS .NET，那么您可以遵循以下指示来编译和运行 C# 程序 TransExample1.cs：
创建一个新的 C# 控制台应用程序。File>New Project，然后选择 Visual C# Projects，Console Application。
将项目命名为 TransExample1。用 TransExample1.cs 中的代码替换 VS .NET 生成的所有代码。选择 Project>Add Reference 添加对 Oracle.DataAccess.dll 的引用，然后浏览至您安装 ODP.NET 的目录（在我的计算机上，它是 C:\oracle\product\10.1.0\Client_1\bin\Oracle.DataAccess.dll），然后双击 Oracle.DataAccess.dll。
选择 Debug>Start without Debugging 运行该程序。要编译和运行 TransExample1.vb，您可以执行类似的一系列步骤，但第 1 步应选择一个 Visual Basic 控制台应用程序，并在第 3 步用 TransExample1.vb 中的代码替换生成的代码。
查看程序的运行结果
当您运行完 C# 或 VB .NET 程序时，您可以在 SQL*Plus 中使用以下 SELECT 语句查看事务的结果：
- SELECT p.product_id, p.product_type_id, pt. name, p.name, p.description, p.price
- FROM products p, product_types pt
- WHERE p.product_type_id = pt.product_type_id
- AND p.product_id = 5;
- 您将看到以下结果： PRODUCT_ID PRODUCT_TYPE_ID NAME NAME
- ---------- --------------- ---------- -----------------------
- DESCRIPTION PRICE
- -------------------------------------------------- ----------
- 5 3 Magazine Oracle Magazine
- Magazine about Oracle 4.99
【编辑推荐】
