VB直接连接 ORACLE 19C

需要安装Oracle Data Provider for .NET (ODP.NET)和Oracle Client。

1. 下载和安装Oracle Data Provider for .NET (ODP.NET)
下载并安装ODP.NET，可以从Oracle官方网站上下载。

2. 下载和安装Oracle Client
下载并安装Oracle Client，可以从Oracle官方网站上下载。

3. 设置环境变量
在系统环境变量中添加以下变量：

(1) TNS_ADMIN：Oracle客户端的tnsnames.ora文件所在路径
例如：C:\oracle\product\19.0.0\client_1\network\admin

(2) PATH：Oracle客户端的安装目录下的bin目录
例如：C:\oracle\product\19.0.0\client_1\bin

4. 创建连接对象
在VB中使用ODP.NET连接Oracle数据库：

Dim conn As OracleConnection
Dim cmd As OracleCommand
Dim dr As OracleDataReader
Dim connStr As String = "Data Source=ORCL;User ID=hr;Password=hr;"
conn = New OracleConnection(connStr)
conn.Open()

其中，Data Source指定ORACLE数据库的主机名和实例名，User ID和Password指定连接用户名和密码。

5. 执行SQL语句
使用OracleCommand对象执行SQL语句：

cmd = New OracleCommand("SELECT * FROM employees", conn)
dr = cmd.ExecuteReader()

其中，"SELECT * FROM employees"为要执行的SQL语句。

6. 关闭连接
使用完毕后，需要关闭连接：

dr.Close()
cmd.Dispose()
conn.Close()

完整的代码示例：

Dim conn As OracleConnection
Dim cmd As OracleCommand
Dim dr As OracleDataReader
Dim connStr As String = "Data Source=ORCL;User ID=hr;Password=hr;"
conn = New OracleConnection(connStr)
conn.Open()
cmd = New OracleCommand("SELECT * FROM employees", conn)
dr = cmd.ExecuteReader()
While dr.Read()
Console.WriteLine(dr("employee_id") & "," & dr("first_name") & "," & dr("last_name"))
End While
dr.Close()
cmd.Dispose()
conn.Close()