Skip to content

Instantly share code, notes, and snippets.

@mastoj
Created February 3, 2017 08:04
Show Gist options
  • Save mastoj/5abb45616e8f6f6c757b8e22e68d141b to your computer and use it in GitHub Desktop.
Save mastoj/5abb45616e8f6f6c757b8e22e68d141b to your computer and use it in GitHub Desktop.
VS Code/ionide error
source https://nuget.org/api/v2
nuget FSharp.Data framework: net45
nuget MySql.Data framework: net45
#r "packages/FSharp.Data/lib/net40/FSharp.Data.dll"
#r "packages/MySql.Data/lib/net45/MySql.Data.dll"
open MySql.Data
open System
open System.Data
open System.Configuration
open MySql.Data.MySqlClient
//open MySqlClient
let connect() =
let connStr = "adasdsa";
let conn = new MySqlConnection(connStr)
try
printfn "Connecting to MySQL..."
conn.Open()
let sql = "SELECT * FROM feed"
let cmd = new MySqlCommand(sql, conn)
let rdr : MySqlDataReader = cmd.ExecuteReader()
let rec readStuff (rdr: MySqlDataReader) =
match rdr.Read() with
| true ->
printfn "%A, %A, %A, %A, %A" rdr.[0] rdr.[1] rdr.[2] rdr.[3] rdr.[4]
readStuff rdr
| false ->
rdr.Close()
readStuff rdr
with
| x -> printfn "Error: %A" (x.ToString())
conn.Close();
printfn "Done."
connect()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment