一、前言

1.目的

本文实现了VB.Net通过OleDbConnection连接oracle查询数据，并展示数据到TextBox1。

 

2.数据库版本

select * from v$version; 

 

    BANNER

1 Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - 64bit Production

2 PL/SQL Release 11.2.0.1.0 - Production

3 CORE 11.2.0.1.0 Production

4 TNS for 64-bit Windows: Version 11.2.0.1.0 - Production

5 NLSRTL Version 11.2.0.1.0 - Production

3.IDE版本

 

Microsoft Visual C++ 2019

 

二、源码

1.页面设计

 

2.点击事件查询数据库

Imports System.Data.OleDb

 

Public Class oracleDemo

 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        '创建数据库连接

        Dim oleDbCon As New OleDbConnection

        '连接字符串192.168.31.55

        Dim conStr = "(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=localhost)(PORT=1521)))

(CONNECT_DATA=(SERVICE_NAME=orcl)))"

        oleDbCon.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=" + conStr +

         ";user id=scott;password=root"

        'Command 对象提供执行 SQL命令的功能

        Dim oleDbCmd As New OleDbCommand()

        '打开连接

        oleDbCon.Open()

        '设置 Command 对象的连接属性

        oleDbCmd.Connection = oleDbCon

        '定义sql

        Dim sql = "select 'aa' from dual"

        '查询真正的数据库

        sql = "SELECT * FROM EMP --where empno = '7369'"

        oleDbCmd.CommandType = CommandType.Text

        '设置查询语句

        oleDbCmd.CommandText = sql

        'DataReader 对象提供只读方式的数据对象

        Dim dataRd As OleDbDataReader

        '查询数据

        dataRd = oleDbCmd.ExecuteReader()

        Dim a = "返回结果："

 

        '这样只能查询出第一条结果 

        'If dataRd.Read() Then

        '    a += CStr(dataRd.GetValue(0))

        'Else

        '    MsgBox("错误")

        'End If

 

        '这样能查询出全部数据

        While dataRd.Read = True

            a += CStr(dataRd.GetValue(0))

            'TextBox1.Text.Append(str)

            a += ","

        End While

 

        '在TextBox1中显示显示查询结果

        TextBox1.Text = a

        dataRd.Close()

        oleDbCon.Close()

    End Sub

 

End Class

 

三、测试

 

四、注意事项

1.异常：未在本地计算机上注册“OraOLEDB.Oracle”提供程序

提示这个异常做如下处理

 

点击：项目->属性->编译，取消勾选“首选32位(P)”

 

————————————————

版权声明：本文为CSDN博主「阿瑟与非」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/cs373616511/article/details/114498857