FSharp 調用 Oracle.ManagedDataAccess.dll

標籤：style   color   io   ar   cti   new   ad   sp   

Oracle.ManagedDataAccess.dll

即使是 64 位元系統，也要註冊 32 位版本。

#if INTERACTIVE

#[email protected]"C:\oracle\odp.net\managed\common\Oracle.ManagedDataAccess.dll"

#endif

 

openOracle.ManagedDataAccess.Client

openOracle.ManagedDataAccess.Types

open System.Data

 

let connStr ="userid=hr;password=hr;data source=xe"

let conn =newOracle.ManagedDataAccess.Client.OracleConnection(connStr)

conn.Open()

printfn"%s" conn.ServerVersion

 

let cmd =conn.CreateCommand()

cmd.CommandType<- CommandType.Text

cmd.CommandText<- "select* from jobs"

 

let da =newOracle.ManagedDataAccess.Client.OracleDataAdapter( cmd )

 

let table =new System.Data.DataTable()

let cnt =da.Fill(table)

 

table.Columns.[0]

table.Rows.[0]

table.Rows.[0].[0]