• Pastikan bahwa engine SQL Server dan SQL Server Agent dalam kondisi aktif.
• Jalankan SQL Server Enterprise Manager untuk memudahkan Anda dalam mengoperasikan fasilitas database yang ada.
• Sediakan minimal 2 database. Dalam percobaan ini, digunakan database dengan nama ‘dbFakultas’ sebagai publisher/master, dan ‘dbLab’ sebagaisubscriber/slave.
• Database publisher memiliki tabel-tabel yang akan direplikasi. Dalam percobaan ini, dbFakultas hanya menggunakan satu tabel saja (tblMhs) untuk direplikasi ke database dbLab sebagai slave.

1. Menentukan server sebagai distributor.
2. Menentukan dan mengkonfigurasi database yang akan menjadi publisher.
3. Menentukan dan mengkonfigurasi database subscription atau penerima.
4. Mem-push/mereplikasi data dari publisher ke subscriber.

• Pilih menu Tool –> Replication –> Configure Publishing, Subscribers, and Distribution…
• Akan muncul jendela Configure Publishing and Distribution Wizard seperti ini, lalu klik Next.

• Pada jendela selanjutnya menentukan server sebagai distributor, klik Next.

• Pada jendela selanjutnya, kita dapat menentukan SQL Server Agent dapat aktif ada saat komputer dinyalakan. Pilih Yes, configure the SQL Server Agent service to start automatically, lalu klik Next.

• Jendela selanjutnya adalah meletakkan direktori Snapshot Folder, klik Next.
• Pada jendela selanjutnya, Anda dapat melakuan konfigurasi pada distributor dan publisher. Pilih No, use the following default settings, lalu klik Next.
• Pada jendela selanjutnya akan tampak bahwa konfigurasi server sebagai distributor selesai. Sepeti gambar di bawah ini.

• Masih di jendela SQL Server Enterprise Manager. Pilih menu Tool –> Replication –> Create and Manage Publications.
• Akan muncul dialog box Create and Manage Publication seperti dibawah ini. Pilih dbFakultas (yang sudah dibuat sebelumnya) dan klik tombol Create Publication.

• Klik Next lagi.
• Pilih database dbFakultas seperti tampak pada gambar dibawah ini. Lalu klik Next.

• Pada jendela selanjutnya, pilih Snapshot publication. Lalu klik Next.
• Pada jendela selanjutnya, beri tanda contreng untuk server yang akan menerima dari publisher. Beri centang pada Server running SQL Server 2000 dan SQL Server version 7.0. lalu klik Next.
• Pada jendela selanjutnya, pilih tabel yang ingin direplikasi. Pada percobaan ini, pilih tblMhs. Lalu klik Next.

• Pada jendela selanjutnya, berilah nama publication-nya (dalam percobaan ini diberi nama ‘publication1’). Lalu klik Next.
• Pada jendela selanjutnya, kita dapat melakukan penyaringan data, tapi pada percobaan kali ini hal tersebut belum diperlukan, pilih No, create the publication as specified, lalu klik next.
• Pada jendela selanjunya, akan tampak bahwa konfigurasi terhadap database sebagai publisher telah selesai seperti tampak pada gambar dibawah ini. Lalu klik Close.

• Hasil konfigurasi publication akan tampak pada jendela Create and Manage Publication seperti gambar dibawah ini (publication1 tercipta).

• Masih di jendela Create and Manage Publication. Pilih publication yang sudah tercipta sebelumnya, lalu klik Push New Subscribtion…Lalu klik Next lagi.
• Pilih server yang akan menjadi subscriber/penerima. Karena pada percobaan ini adalah replikasi lokal, maka dipilih nama server yang sama, seperti tampak pada gambar dibawah ini. Lalu klik Next.

• Pada jendela selanjutnya, pilih database penerima/subscriber. Dalam percobaan ini database penerima/slave-nya adalah dbLab. Lalu klik Next.
• Pada jendela selanjutnya, kita dapat mengatur jadwal Distributor Agent saat mengirim data replikasi ke database penerimanya. Untuk sementara, konfigurasi ini dapat dilakukan nanti. Klik Next.
• Pada jendela selanjutnya, jangan lupa untuk memberi contreng pada Start the Snapshot Agent to begin the initialization process immediately untuk langsung memulai proses Snapshot Replication. Klik Next.
• Pada jendela selanjutnya, akan ditampilkan status SQL Server Agent. Untuk proses replikasi, pastikan SQL Server Agent dalam status running. Anda dapat menghidupkan SQL Server Agent pada Tool SQL Server Service Manager. Klik Next.
• Akan tampak jendela Finishing Subscribtion Wizard. Klik Finish.
• Proses subscribtion selesai seperti tampak pada gambar dibawah ini. Lalu klik Close.

• Pada Jendela SQL Server Enterprise Manager, masuk ke direktori Replication Monitor –> Publisher –> nama_server_publisher –> nama_publisher, seperti tampak pada gambar dibawah ini.

• Pada direktori yang telah dituju, terdapat 2 buah item Publication Agent, yaitu Snapshot dan Nama Server yang terhubung ke subscriber/penerima (bisa disebut sebagai Push to Subscriber). Snapshot berfungsi untuk meng-capture dan menyimpan data-data sementara dari database publisher. Sedangkan item Push to Subscriber berfungsi untuk mem-push/mengirim data dari publisher ke subscriber.

• Untuk mereplikasi data, klik kanan pada Snapshot à pilih Start Agent (ini digunakan saat up-date data nantinya dan seterusnya. Untuk publishing pertama kali, sistem sudah menyimpan data replikasi saat konfigurasi subscriber, jadi hal ini boleh tidak dilakukan).
• Lalu mem-push data replikasi ke subscriber dengan cara klik kanan pada item Push à pilih Start Synchronizing.
• Periksalah daftar tabel pada database penerima/subscriber.

• Untuk melakukan perubahan data/up-date data, maka perubahan data terjadi pada database publisher. Dalam percobaan ini subscriber hanya menerima data-data yang berubah dari publisher.
• Untuk melihat perubahan data-datanya, klik kanan pada Snapshot –> pilih Start Agent. Lalu klik kanan pada item Push –> pilih Start Synchronizing.

• Pengaturan jadwal replikasi dapat ditentukan pada item Snapshot dan item Push.
• Untuk Snapshot, klik kanan pada Snapshot à pilih Agent Properties…Selanjutnya pilih tab Schedules –> klik Edit –> pilih Schedule type On time. Lalu atur jadwal sesuai yang diinginkan. Pengaturan jadwal untuk Snapshot ini berguna untuk menentukan kapan data-data dari databse publisher ditangkap oleh distributor untuk disimpan sementara, tapi belum di kirim ke subscriber.

• Jika dilihat dari sudut pandang tampilan perangkat lunaknya, SQL Server 2000 memiliki GUI (Graphical User Interface) yang relatif lebih familiardan mudah dalam mengoperasikan fitur-fitur databasenya, khususya tahap-tahap dalam proses replikasi database.
• SQL Server 2000 memiliki beberapa fitur metode replikasi seperti Snapshot Replication, Transactional Replication, dan Merge Replication yang sesuai dengan kebutuhan pengguna dan arsitektur topologi jaringan dalam pendistribusian database yang lebih baik dan efisien.
• Komponen replikasi terdiri dari Publisher sebagai Master database/penyedia data, Subscriber sebagai Slave/penerima data, dan database Distributor sebagai penghubung Publisher dengan Subscriber.
• Distributor merupakan bagian dari Server database Publisher, yang berfungsi untuk menampung data-data sementara dari database Publisher.
• Adanya SQL Server Agent Service, membuat proses replikasi dapat berjalan sebagaimana mestinya
• SQL Server 2000 dapat mendukung replikasi database secara parsial.
• SQL Server 2000 juga mendukung mengotomatisasian replikasi database

• Paul, Sujoy P. (2006). Pro SQL Server 2005 Replication. USA: Apress. ISBN-13: 978-1-59059-650-0.
• Knightet, Brian et al. (2007). Professional SQL Server 2005 Administration. Indianapolis: Wrox Press. ISBN: 9780470055205.
• Bagui, Sikha Saha & Richard Walsh Earp. (2006). Learning SQL on SQL Server 2005. Sebastopol: O’Reilly. 0-596-10215-1.

Kebutuhan Sistem:

• Dual Core, mem 3GB, Win7 Professional
• UnInstall MSSQL2008 / MSSQL2005
• Master SQL Server 2000

Instalasi SQL Server 2000

Hasil Instalasi

Studi Kasus OLTP

Desain Dimensi dan Fact Tables

Desain PDM Database Datawarehouse

Proses ETL menggunakan SQL Server 2000 DTS (Data Transformation Service)

1. Dari Connection Proyek X, transfer tabel proyek ke DW
2. Dari Connection CabangY, transfer tabel proyek ke DW
3. Dari Connection Proyek X, transfer tabel jns_tagihan ke DW
4. Dari Connection Cabang Y, transfer tabel jns_tagihan ke DW
5. Dari Connection Proyek X, transfer tabel Vendor ke DW
6. Dari Connection Proyek Y, transfer tabel Vendor ke DW
7. Dari Connection Proyek X, transfer tabel phbaru ke DW
8. Dari Connection Cabang Y, transfer tabel Phbaru ke DW
9. Dari Connection Cabang Y, transfer tabel chbaru ke DW

OLAP Service / Analysis Services

Kita lakukan instalasi ulang sesuai dengan gambar :

Syalom.. selamat pagi teman teman.. gimana kabarnya.. Semoga selalu dengan semangat yang tak pernah menyerah untuk belajar.. apalagi tentang pemrograman.. :D

Pagi ini saya ingin bagikan cript tentang game android yang saya dapat dari halaman pembelajaran asal benua seberang yang saya buat ulang pake versi indo.. heehee..:D

Gamenya adalah game Tic Tac Toe.. pasti teman teman tau kan gimana itu game tictac toe. dan kali ini di kemas dengan pemrograman android

Gak pakai lama lama dahh.. ini langsung saja saya tampilkan screenshotnya..

Syalom.. Pagi teman teman selamat beraktifitas semua.. gimana belajarnya..??  makin semangat belajar programnya..?? pastinya ya.. hheehee.. langsung aja teman teman ya. karna emang pada dasarnya saya gak pintar basa basi. langsung aja ya kita lanjut belajar pemrogramanya.

Imports System.Data.SqlClient
Imports System.Data

Module Koneksi
    Public strConnection As String = "Data Source=EL_RE-PC\SQLEXPRESS;initial catalog=RekamMedis;Integrated Security=True;"

    Public conn As New SqlConnection
    Public Sub hubungkan()
        conn = New SqlConnection(strConnection)
        If conn.State <> ConnectionState.Open Then
            conn.Open()
        End If
    End Sub

    Public Sub tutupkoneksi()
        If conn.State = ConnectionState.Open Then
            Try
                conn.Close()
            Catch ex As Exception
                MsgBox("Gagal Menutup Koneksi" & ex.ToString)
            End Try
        End If
    End Sub
End Module

Imports System.Data.SqlClient
Imports System.Data


Dim ds As DataSet
Public Class FormObat

Dim dt As New DataTable
Dim myadp As SqlDataAdapter

Dim DREADER As SqlDataReader
Dim query As String
    Dim CMD As SqlCommand

Public comSQL As New SqlClient.SqlCommand
Dim sql As String

    Sub refreshtampil()
        hubungkan()

myadp = New SqlDataAdapter(query, conn)
query = ("SELECT * FROM Tbl_Obat")
        dt.Clear()
        myadp.Fill(dt)

TextBox3.Enabled = False
DataGridView1.DataSource = dt
    End Sub

    Private Sub NoNable()
        TextBox2.Enabled = False

Button3.Enabled = False
TextBox4.Enabled = False
        ComboBox2.Enabled = False
        ComboBox1.Enabled = False
        Button4.Enabled = False

TextBox4.Enabled = True
Button5.Enabled = False
    End Sub

    Private Sub Enable()
        TextBox2.Enabled = True
        TextBox3.Enabled = True

TextBox1.Text = ""
ComboBox2.Enabled = True
        ComboBox1.Enabled = True
    End Sub

    Private Sub clear()
        Button2.Enabled = True
        NoNable()

Private Sub kodeotomatis()
TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        ComboBox2.Text = ""
        ComboBox1.Text = ""
    End Sub

        hubungkan()

If dr.Read = False Then
sql = "select max(kodeobat) as no from Tbl_Obat"
        comSQL = New SqlCommand(sql, conn)
        Dim dr As SqlDataReader = comSQL.ExecuteReader()

            TextBox1.Text = "OB-0001"
        Else

TextBox1.Text = "OB-000" & (Val(TextBox1.Text) + 1)
TextBox1.Text = dr("no").ToString
            TextBox1.Text = Microsoft.VisualBasic.Right(TextBox1.Text, 4)
            If Val(TextBox1.Text) < 10 Then
            ElseIf Val(TextBox1.Text) >= 10 And Val(TextBox1.Text) < 100 Then

TextBox1.Text = "OB-" & (Val(TextBox1.Text) + 1)
TextBox1.Text = "OB-00" & (Val(TextBox1.Text) + 1)
            ElseIf TextBox1.Text > 99 Then
                TextBox1.Text = "OB-0" & (Val(TextBox1.Text) + 1)
            ElseIf TextBox1.Text > 999 Then
            End If
        End If
        tutupkoneksi()
    End Sub


Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        Dispose()
    End Sub

    Private Sub FormObat_Load(sender As Object, e As EventArgs) Handles Me.Load
        refreshtampil()
        NoNable()
        kodeotomatis()
        TextBox1.Enabled = False
    End Sub

        Enable()
        Button2.Enabled = False

CMD = New SqlCommand("SELECT * FROM Tbl_Obat WHERE kodeobat= '" & TextBox1.Text & "'", conn)
Button3.Enabled = True
        TextBox2.Focus()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        clear()
        kodeotomatis()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        hubungkan()
        DREADER = CMD.ExecuteReader
        If DREADER.Read Then

Dim tambah As String = "INSERT INTO Tbl_Obat VALUES ('" & UCase(TextBox1.Text) & "','" & UCase(TextBox2.Text) & "','" & ComboBox1.SelectedItem & "','" & ComboBox2.SelectedItem & "','" & UCase(TextBox3.Text) & "','" & UCase(TextBox4.Text) & "')"
MsgBox("Data Sudah Ada..!!")
            clear()
            TextBox1.Focus()
        ElseIf TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
            MsgBox("Lengkapi Data Anda..!!")
            TextBox1.Focus()
        Else
            DREADER.Close()
            Dim cmd As New SqlCommand

If TextBox1.Text = "" Or TextBox2.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
cmd.Connection = conn
            cmd.CommandText = tambah
            cmd.ExecuteNonQuery()
            refreshtampil()
            DataGridView1.Refresh()
            clear()
            NoNable()
            conn.Close()
            kodeotomatis()
        End If
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
            MsgBox("Lengkapi Data Anda..!!")

cmd.Connection = conn
TextBox1.Focus()
        Else
            hubungkan()
            Dim tambah As String = "UPDATE Tbl_Obat SET namaobat ='" & UCase(TextBox2.Text) & "',jenis='" & ComboBox1.SelectedItem & "',kategori='" & ComboBox2.SelectedItem & "', harga='" & UCase(TextBox3.Text) & "', jumlah='" & UCase(TextBox4.Text) & "' WHERE kodeobat = '" & TextBox1.Text & "'"
            Dim cmd As New SqlCommand
            cmd.CommandText = tambah

Dim cmd As New SqlCommand
cmd.ExecuteNonQuery()
            refreshtampil()
            DataGridView1.Refresh()
            clear()
            NoNable()
            kodeotomatis()
            conn.Close()
        End If
    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        hubungkan()
        Dim tambah As String = "DELETE FROM Tbl_Obat WHERE kodeobat = '" & TextBox1.Text & "'"
        cmd.Connection = conn

CMD = New SqlCommand("SELECT * FROM Tbl_Obat WHERE kodeobat= '" & a & "'", conn)
cmd.CommandText = tambah
        cmd.ExecuteNonQuery()
        refreshtampil()
        DataGridView1.Refresh()
        clear()
        NoNable()
        conn.Close()
        kodeotomatis()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        hubungkan()
        Dim a As String
        a = InputBox("Please Insert Kode Pasien..!! : ", "PENCARIAN")
        DREADER = CMD.ExecuteReader
        If DREADER.Read Then

MsgBox("Dala Tidak Ditemukan")
Enable()
            Button2.Enabled = False
            Button4.Enabled = True
            Button5.Enabled = True
            TextBox1.Text = DREADER.Item("kodeobat")
            TextBox2.Text = DREADER.Item("namaobat")
            ComboBox1.Text = DREADER.Item("jenis")
            ComboBox2.Text = DREADER.Item("kategori")
            TextBox3.Text = DREADER.Item("harga")
            TextBox4.Text = DREADER.Item("jumlah")
        Else
            NoNable()
        End If

End Class
DREADER.Close()

End Sub