F＃オンラインMySQL DBに接続してクエリを実行

Question

私はF＃プロジェクトを作成しており、オンラインのmysqlデータベースにいくつかのデータベースクエリを実行する必要があります。誰でも助けてくれますか？私はこのようなものが必要です

Answer 1

MySQL用の.NETドライバをインストールする必要があります。次にSQLproviderをインストールします。ドキュメントにはMySQL用のサンプルがあります。あなたは、DBに接続し、このようにそれを照会します：

type sql = SqlDataProvider< 
       dbVendor, 
       connString, 
       ResolutionPath = resPath, 
       IndividualsAmount = indivAmount, 
       UseOptionTypes = useOptTypes, 
       Owner = "HR" 
      > 
let ctx = sql.GetDataContext() 

let employees = 
    ctx.Hr.Employees 
    |> Seq.map (fun e -> e.ColumnValues |> Seq.toList) 
    |> Seq.toList 

connstringはこのようなものになります。

[<Literal>] 
let connString = "Server=localhost;Database=HR;User=root;Password=password" 

ます。またhttps://msdn.microsoft.com/visualfsharpdocs/conceptual/walkthrough-accessing-a-sql-database-by-using-type-providers-%5bfsharp%5d

Answer 2

をお読みください私もSQLProviderが道だと思いますそうすれば、データベースに対する論理の検証が行われ、データベースが変更されたことに気づくでしょう。

しかし、あなたがしたい場合は、手動で接続することができます

// Reference Nuget package MySql.Data 
//#r @"./../packages/MySql.Data/lib/net40/MySql.Data.dll" 

open System 
open MySql.Data.MySqlClient 

let cstr = "server = localhost; database = myDatabase; uid = username;pwd = password" 

let ExecuteSqlAsync (query : string) parameters = 
    use rawSqlConnection = new MySqlConnection(cstr) 
    async { 
    do! rawSqlConnection.OpenAsync() |> Async.AwaitIAsyncResult |> Async.Ignore 
    use command = new MySqlCommand(query, rawSqlConnection) 
    parameters |> List.iter(fun (par:string*string) -> command.Parameters.AddWithValue(par) |> ignore) 
    let! affectedRows = command.ExecuteNonQueryAsync() |> Async.AwaitTask 
    match affectedRows with 
    | 0 -> "ExecuteSql 0 rows affected: " + query |> Console.WriteLine 
      () 
    | x ->() 
    } 

let ExecuteSql (query : string) parameters = 
    use rawSqlConnection = new MySqlConnection(cstr) 
    rawSqlConnection.Open() 
    use command = new MySqlCommand(query, rawSqlConnection) 
    parameters |> List.iter(fun (par:string*string) -> command.Parameters.AddWithValue(par) |> ignore) 
    let affectedRows = command.ExecuteNonQuery() 
    match affectedRows with 
    | 0 -> "ExecuteSql 0 rows affected: " + query |> Console.WriteLine 
      () 
    | x ->()