VB.NET通过OleDbConnection连接oracle查询数据示例

当前位置:

首页 > VB.net教程 >

VB.NET通过OleDbConnection连接oracle查询数据示例

一、前言

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)”

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

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

栏目列表