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;"
        
        Using conn As New OracleConnection(connectionString)
            conn.Open()
            
            Dim cmd As New OracleCommand("SELECT * FROM your_table", conn)
            Dim reader As OracleDataReader = cmd.ExecuteReader()
            
            While reader.Read()
                Console.WriteLine(reader("column_name"))
            End While
            
            reader.Close()
        End Using
    End Sub
End Module