vb连接oracle数据库代码

Imports System.Data.OracleClient

Module Module1
    Sub Main()
        Dim connectionString As String = "Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=your_host)(PORT=your_port))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=your_service_name)));User Id=your_username;Password=your_password;"
        
        Try
            Using connection As New OracleConnection(connectionString)
                connection.Open()
                Console.WriteLine("Connected to Oracle Database")
                
                ' 创建并执行SQL查询
                Dim command As New OracleCommand("SELECT * FROM your_table", connection)
                Dim reader As OracleDataReader = command.ExecuteReader()
                
                While reader.Read()
                    Console.WriteLine(reader("your_column"))
                End While
                
                reader.Close()
            Catch ex As Exception
                Console.WriteLine("Error: " & ex.Message)
            End Try
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        End Try
    End Sub
End Module