Domino adalah sebuah sistem yang digunakan untuk membuat aplikasi berbasis database. Salah satu fitur utama dari Domino adalah kemampuan membuat dan mengelola database. Dalam artikel ini, kita akan membahas cara membuat database Domino dan beberapa contoh penggunaan fungsi NotesDatabase dalam membuat dan mengelola database.

Contoh 1: Membuat Database Lokal

Contoh pertama adalah membuat sebuah database lokal bernama SALES2.NSF. Database ini tidak diinisialisasi, sehingga tidak dapat digunakan melalui antarmuka pengguna Notes. Fungsi NotesDatabase digunakan untuk membuat database baru dan memeriksa apakah database tersebut sudah terbuka atau belum.

Dim db As New NotesDatabase("", "")
If db.IsOpen Then Messagebox "Is Open" Else Messagebox "Not open"
Call db.Create("", "sales2.nsf", True)
If db.IsOpen Then Messagebox "Is Open" Else Messagebox "Not open"
End Sub

Contoh 2: Membuat Database dari Template

Contoh kedua adalah membuat sebuah database lokal bernama saledisc.nsf berdasarkan template discuss4.ntf. Fungsi CreateFromTemplate digunakan untuk membuat sebuah database baru yang diinisialisasi dengan desain template tersebut. Kita juga dapat mengubah judul database menggunakan properti Title.

Dim discuss As New NotesDatabase("", "DISCUSS4.NTF")
Dim db As NotesDatabase 
Set db = discuss.CreateFromTemplate _
("", "SALEDISC", True) 
db.Title = "Sales Discussion Database"
End Sub

Contoh 3: Membuat Replica dari Database Server

Contoh ketiga adalah membuat sebuah replica lokal dari sebuah database yang terletak pada server. Fungsi CreateReplica digunakan untuk membuat sebuah replica baru, dan fungsi Replicate digunakan untuk memperbarui replica tersebut.

Dim names As New NotesDatabase("MARKET", "SALEDISC")
Dim db As NotesDatabase 
Set db = names.CreateReplica("", "SALEDISC")
Messagebox db.Title
If db.Replicate("MARKET") Then
 Messagebox "Replication successful"
Else
 Messagebox "Replication not successful"
End If
End Sub

Contoh 4: Membuat Copy dari Database

Contoh terakhir adalah membuat sebuah copy lokal dari sebuah database yang terletak pada server. Fungsi CreateCopy digunakan untuk membuat sebuah copy baru.

Dim names As New NotesDatabase("", "NAMES")
Dim db As NotesDatabase
Set db = names.CreateCopy("", "NAMESCPY")
End Sub

Dalam artikel ini, kita telah membahas beberapa contoh cara membuat database Domino dan mengelola database menggunakan fungsi NotesDatabase. Dengan demikian, kita dapat memahami cara membuat sebuah aplikasi berbasis database yang efektif dan efisien.