How To Access an Oracle Database by Using the OleDbDataReader and Visual Basic .NET (308071)

SUMMARY

Requirements

• Microsoft Windows 2000 Professional, Windows 2000 Server, Windows 2000 Advanced Server, or Windows NT 4.0 Server
• Microsoft Data Access Components (MDAC) version 2.6 or later
• Oracle Client tools (installed on the computer)
• Microsoft Visual Studio .NET

• Visual Studio .NET
• ADO.NET fundamentals and syntax
• Oracle connectivity

Steps to Retrieve Data from an Oracle Database

1. In Oracle SQL*Plus or any Oracle Client tool that allows you to run data definition language (DDL) statements, follow these steps:
   1. Create a table named TestTable as follows:

      Create Table TestTable (c1 char(5));
      						

   2. Insert data into TestTable as follows:

      Insert into TestTable c1 values('Test1');
      Insert into TestTable c1 values('Test2');
      Insert into TestTable c1 values('Test3');
      						

2. Start Visual Studio .NET.
3. Create a new Windows Application in Visual Basic .NET. Form1 is created by default.
4. Make sure that your project contains a reference to the System.Data namespace, and add a reference to it if it does not.
5. Drag a Button control to Form1, and change its Name property to btnTest.
6. Use the Imports statement on the System, System.Data, and System.Data.OleDb namespaces so that you are not required to qualify declarations in those namespaces later in your code.

   Imports System
   Imports System.Data
   Imports System.Data.OleDb
   					

7. Copy and paste the following code in the code window after the "Windows Form Designer generated code" section:

   Private Sub btnTest_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles btnTest.Click
       Dim sConnectionString As String _
           = "Provider=MSDAORA.1;User ID=scott;password=tiger;"_
             "Data Source=myOracleServer;Persist Security Info=False"
       Dim mySelectQuery As String _
           = "SELECT * FROM TestTable where c1 LIKE ?"
       Dim myConnection As New OleDbConnection(sConnectionString)
       Dim myCommand As New OleDbCommand(mySelectQuery, myConnection)
      
       'Set the parameter value.
       myCommand.Parameters.Add("@p1", OleDbType.Char, 5).Value = "Test%"
       
       'Open connection to Oracle database.
       myConnection.Open()
       
       'Populate the DataReader.
       Dim myReader As OleDbDataReader = myCommand.ExecuteReader()
       Dim RecordCount as Integer
       Try
           While myReader.Read()
               RecordCount = RecordCount + 1
               MessageBox.Show(myReader.GetString(0).ToString())
           End While
           If RecordCount = 0 then
               MessageBox.Show("No data returned")
           Else
               MessageBox.Show("Number of records returned: " & RecordCount)
           End If
       Catch ex As Exception
           MessageBox.Show(ex.ToString())
       Finally
           
          'Close all objects.
           myReader.Close()
           myConnection.Close()
       End Try
   End Sub
   					

8. Save your project.
9. On the Debug menu, click Start to run your project.
10. Click the button to display the data.