Łatwe do naśladowania przykłady CRD (Create, Read, Delete) pojawiają się w MSDNtutaj

Jest miłolink na stronie do skryptu zrobić testową bazę danych, a ja to zrobiłem i łatwo uzyskać wszystkie przykłady działające na CRD.

Na stronie są nawet przydatne pod nagłówki CRD:

(Twórz wiersze)http://msdn.microsoft.com/en-us/library/hh361033.aspx#BKMK_UpdateDB

(Czytaj wiersze)http://msdn.microsoft.com/en-us/library/hh361033.aspx#BKMK_QueryData

(Usuń wiersze)http://msdn.microsoft.com/en-us/library/hh361033.aspx#BKMK_DeleteRows

Ten o nazwie BKMK_UpdateDB nie wykonuje U w CRUD. Jego nazwa brzmi Update, ale naprawdę robi C w CRUD.

Gdybym tęskniłgdzie na tej stronie pokazane jest U w CRUD, po prostu zastrzel mnie i przestań czytać ...

Czy może tu być jeden z guru, proszę o pomoc?

Aby rozjaśnić ładunek-śmieci dla guru: Poniżej znajduje się kod podobny do tego, na którym pojawia sięstrona internetowa MSDN.

Wystarczy uruchomić test-database-create .sqlskrypt, o którym mowa na stronie internetowej edytuj łańcuch SqlDataConnection w poniższym kodzie dla swojego serwera i nazwy bazy danych, powinien działać poprawnie.

Zauważ, że jedyną zmianą wprowadzoną w zapytaniu jest aktualizacja tylko jednego wiersza. Teraz zwracany jest dokładnie jeden wiersz. Wydaje się ważniejsze, aby zobaczyć prosty przypadek jednego wiersza zmieniony. Przynajmniej to przed pokazaniem wielu zmian na raz.

Czy guru może zmienić ostatnie 4 wiersze w zalecany sposób F # -Type-Provider, aby zmienić dane zwrócone przez zapytanie i zapisać ten zmieniony wiersz w bazie danych?

Na przykład zmień wiersz.TestData1 z 10 na 11 i zapisz go w db.

Podsumowując: TheStrona MSDN ułatwia nam początkującym F # -Type-Provider wykonywanie CRD w CRUD.

Czy guru może wypełnić nam nowicjuszy po prawej / łatwej stronie F # -Type-Provider, aby zrobić U w CRUD?

Wielkie dzięki!

#r "System.Data.dll"
#r "FSharp.Data.TypeProviders.dll"
#r "System.Data.Linq.dll"
open System
open System.Data
open System.Data.Linq
open Microsoft.FSharp.Data.TypeProviders
open Microsoft.FSharp.Linq

type dbSchema = SqlDataConnection<"Data Source= --yourServer\yourInstance--;Initial Catalog= --YourTestDatabaseFromTheScript--;Integrated Security=SSPI;">
let db = dbSchema.GetDataContext()
let table1 = db.Table1

query { for row in db.Table1 do
        where (row.TestData1 <= 10)
        select row } 
    |> Seq.iter (fun row -> printfn "%d %s" row.TestData1 row.Name)