Visual Basic

Imports System<br />
Imports System.Data<br />
Imports Oracle.DataAccess.Client<br />
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
<br />
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
        ' Create the connection object<br />
        Dim con As OracleConnection = New OracleConnection<br />
<br />
        ' Specify the connect string<br />
        ' NOTE: Modify User Id, Password, Data Source as per your database set up<br />
<br />
<br />
        con.ConnectionString = "User Id=user_id;Password=user_pword;Data Source=ora9idb;"<br />
<br />
<br />
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
        Try<br />
            ' Open the connection through ODP.Net<br />
            con.Open()<br />
            Console.WriteLine("Connection to Oracle database established successfully !")<br />
            Console.WriteLine(" ")<br />
<br />
<br />
        Catch ex As Exception<br />
<br />
            Console.WriteLine(ex.Message)<br />
            'txtStatus.Text &= ex.ToString<br />
        End Try<br />
        ''''''''''''''''''''''''''''''''''''''''''''''''<br />
        'Create command object to perform a query against the database<br />
        Dim cmdQuery As String = "SELECT empno, ename FROM emptab"<br />
<br />
        ' Create the OracleCommand object<br />
        Dim cmd As OracleCommand = New OracleCommand(cmdQuery)<br />
        cmd.Connection = con<br />
        cmd.CommandType = CommandType.Text<br />
<br />
<br />
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
        'Fetch data into an OracleDataReader object and <br />
        'display the data on the console. Then, close the connection object<br />
<br />
        Try<br />
<br />
<br />
<br />
            ' Execute command, create OracleDataReader object<br />
            Dim reader As OracleDataReader = cmd.ExecuteReader()<br />
            While (reader.Read())<br />
<br />
                ' Output Employee Name and Number<br />
                Console.WriteLine("Employee Number : " & _<br />
                                  reader.GetDecimal(0) & _<br />
                                                 " , " & _<br />
                                    "Employee Name : " & _<br />
                reader.GetString(1))<br />
<br />
            End While<br />
        Catch ex As Exception<br />
<br />
            Console.WriteLine(ex.Message)<br />
<br />
        Finally<br />
<br />
            ' Dispose OracleCommand object<br />
            cmd.Dispose()<br />
<br />
            ' Close and Dispose OracleConnection object<br />
            con.Close()<br />
            con.Dispose()<br />
<br />
        End Try<br />
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''<br />
<br />
    End Sub