Imports Couchbase.Lite
Imports Couchbase.Lite.Database
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Couchbase Section
'Setup a Manager to manage the connection as a Shared Instance
Dim manager As New Couchbase.Lite.Manager
Dim options As New Couchbase.Lite.ManagerOptions
manager = Manager.SharedInstance
TextBox1.Text = "Manager Created"
'Create the database -- the database name MUST be lower case
Dim dbName = "fhello"
manager.GetDatabase(dbName)
TextBox1.Text = "Database Created"
Dim mbSubject As New mbClass
With mbSubject
.SSN = "123-45-6789"
.First = "John"
.Last = "Smith"
End With
'Setup the Database
Dim properties As New Dictionary(Of String, Object)() From {
{"title", "Little, Big"},
{"author", "John Crowley"},
{"published", 1982}
}
Dim document = GetDocument(“978-0061120053”)
'Debug.Assert(document IsNot Nothing)
Dim rev = document.PutProperties(properties)
Debug.Assert(rev IsNot Nothing)
End Sub
End Class