Dear All:
I want to backup SQL Server 2008 R2 database using the SMO code from C#, and change it to use in F#.
I have create a local database called "LocalDB",
CREATE DATABASE [LocalDB] ON PRIMARY
( NAME = N'LocalDB', FILENAME = N'C:\LocalDB.mdf' , SIZE = 1024MB , FILEGROWTH = 10%)
LOG ON
( NAME = N'LocalDB_log', FILENAME = N'C:\LocalDB.ldf' , SIZE = 512MB , FILEGROWTH = 10%)
GO
I can run backup from Microsoft SQL Server Management Studio, the backup works fine.
The following is the backup script:
BACKUP DATABASE [LocalDB] TO DISK = N'C:\LocalDB.bak' WITH NOFORMAT, NOINIT, NAME = N'LocalDB-Full Database Backup',SKIP,NOREWIND,NOUNLOAD,STATS = 10
GO

I added the necessary reference, the following is my code to do the same job:

#light
open Microsoft.SqlServer.Management.Smo
open Microsoft.SqlServer.Management.Common
open System
open System.Data
open System.Data.SqlClient
open System.Data.SqlTypes
open System.IO
open System.Linq
open System.Text
#if DEBUG
System.Linq.Enumerable.Count([]) |> ignore
#endif

let dbConn= new SqlConnection("server=(local); Integrated Security=True; Database=LocalDB")
let serverConnection = new ServerConnection(dbConn)
let sqlServer = new Server(serverConnection)
let db: Database = sqlServer.Databases.Item("LocalDB")

let sqlBackup: Backup = new Backup()
sqlBackup.Action = BackupActionType.Database |> ignore
sqlBackup.BackupSetDescription = "ArchiveDataBase:" +
DateTime.Now.ToShortDateString() |> ignore
sqlBackup.BackupSetName = "Archive" |> ignore
sqlBackup.Database = "LocalDB" |> ignore

sqlBackup.Checksum = true |> ignore
sqlBackup.ContinueAfterError = true |> ignore
sqlBackup.ExpirationDate = DateTime.Now.AddDays(7.0) |> ignore
sqlBackup.FormatMedia = false |> ignore
sqlBackup.Incremental = false |> ignore
sqlBackup.Initialize = true |> ignore
sqlBackup.LogTruncation = BackupTruncateLogType.Truncate |> ignore

let deviceItem = new BackupDeviceItem(@"C:\LocalDB.bak", DeviceType.File)
sqlBackup.Devices.Add(deviceItem) |> ignore
sqlBackup.SqlBackup(sqlServer)

sqlBackup.Devices.Remove(deviceItem) |> ignore

printfn "Done"

The code get compiled, however, when I debug the code, I can see that all the settings I give to sqlBackup is useless, all the properties for sqlBackup have their own default settings, and they are "read only".
When I run my code, I got error message:
Microsoft.SqlServer.Management.Smo.FailedOperationException was unhandled
HelpLink=[link:go.microsoft.com]
Message=Backup failed for Server 'STOCKHOST'.
Source=Microsoft.SqlServer.SmoExtended
Operation=Backup
StackTrace:
at Microsoft.SqlServer.Management.Smo.Backup.SqlBackup(Server srv)
at <StartupCode$DBBackup1>.$Program.main@() in C:\Temp\Program.fs:line 36
InnerException: Microsoft.SqlServer.Management.Smo.PropertyNotSetException
HelpLink=
[link:go.microsoft.com]
Message=To accomplish this action, set property Database.
Source=Microsoft.SqlServer.SmoExtended
PropertyName=Database
StackTrace:
at Microsoft.SqlServer.Management.Smo.Backup.Script(Server targetServer)
at Microsoft.SqlServer.Management.Smo.Backup.SqlBackup(Server srv)

Anyone has the successful experience for backing up SQL Server 2008 R2 database using F#, please advice how I can change the sqlBackup
to be able to change some properties.
Thanks,

PS: OS: Windows 2008 R2 (Enterprise), Development Environment: VS 2010 Ultimate. DB: SQL Server 2008 R2