Pada kesempatan lalu, kita sudah membahas bagaimana membuat fungsi Backup database MySQL menggunakan Visual Basic dan menggunakan koneksi VB MySQL Direct. Selanjutnya pada kesempatan kali ini kita akan membahas bagaimana membuat fungsi Restore database MySQL
menggunakan Visual Basic dan tentunya menggunakan koneksi VB MySQL Direct juga.
Apabila sahabat-sahabat SB menghendaki cara koneksi yang lain, sahabat bisa menggantinya. Apabila sahabat belum mengetahui cara koneksi lain, namun tetap ingin mengubah cara koneksi, sahabat bisa membaca ulasan tentang "".
Jika fungsi backup berfungsi untuk mengamankan data, maka tentunya fungsi restore juga demikian. Backup dan Restore memiliki kesamaan fungsi untuk mengamankan data khususnya database. Perbedaannya, fungsi Backup mengamankan data dengan menduplikasi/memindah data sedangkan fungsi Restore mengembalikan/ menimpa data yang ada yang dianggap kurang valid, ada kesalahan, ataupun alasan lain dengan data hasil backup yang telah dilakukan sebelumnya. Untuk lebih jelasnya, silakan sahabat membaca atau mencari referensi mengenai backup dan restore.
Bagaimana cara melakukan restore data? Berikut langkah-langkahnya.
Pertama-tama buatlah project baru. Mengapa project baru? karena dalam ulasan ini disertakan contoh project sederhana fungsi backup yang digunakan untuk contoh ulasan ini. Selanjutnya, tambahkan 1 (satu) Form.
Tambahkan komponen Microsoft Rich Textbox Control 6.0 (SP6) dan Microsoft Windows Common Controls 6.0 (SP6) melalui menu Project -> Components atau tekan CTRL+T pada keyboard.
Selanjutnya, tambahkan komponen berikut ke dalam Form:
1 CommonDialog ganti Name menjadi "CD"
1 Label ganti Caption menjadi "File Backup"
1 TextBox ganti Name menjadi "TxtFile"
1 TextBox ganti Name menjadi "TxtLokasi"
1 RichTextBox ganti Name menjadi "TxtHasil"
1 CommandButton ganti Name menjadi "cmdCari" dan Caption menjadi "..."
1 CommandButton ganti Name menjadi "cmdRestore" dan Caption menjadi "&Restore"
1 CommandButton ganti Name menjadi "cmdKeluar" dan Caption menjadi "&Keluar"
Aturlah komponen tersebut dalam form sehingga terlihat rapi.
Selanjutnya, tambahkan kode berikut pada halaman kode Form paling atas:
Public Koneksi As New MYSQL_CONNECTION
Public RC As New MYSQL_RS
Public SQL As String, NmServer As String, NmDB As String, NmUsr As String, NmPwd As String, NmPort As String
Private Sub Buka()
Set RC = New MYSQL_RS
RC.OpenRs SQL, Koneksi, adOpenDynamic, adLockBatchOptimistic
End Sub
Function Tutup() As Boolean
If Tutup = True Then
RC.CloseRecordset
Koneksi.CloseConnection
Koneksi = Nothing
End If
End Function
Selanjutnya, tambahkan kode berikut pada Form_Load:
NmServer = "localhost" 'IP Mysql
NmDB = "latihan" 'Nama Database
NmUsr = "root" 'Login Mysql
NmPwd = "admin" 'Password Mysql
NmPort = "3306" 'Port Mysql
Set Koneksi = New MYSQL_CONNECTION
Koneksi.OpenConnection NmServer, NmUsr, NmPwd, NmDB, NmPort
Koneksi.CursorLocation = adUseClient
If Koneksi.State = MY_CONN_CLOSED Then
MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan!", vbExclamation, "Fatal error"
End If
Selanjutnya, tambahkan kode berikut pada cmdCari_Click:
CD.ShowOpen
If CD.FileName <> "" Then
Dim xFile() As String
txtLokasi = CD.FileName
xFile = Split(txtLokasi, "\", , vbTextCompare)
txtFile = xFile(UBound(xFile))
End If
Selanjutnya, tambahkan kode berikut pada cmdRestore_Click:
On Error GoTo Salah
Dim xIsi() As String, isi As String
If txtLokasi = "" Then MsgBox "File backup belum dipilih!": Exit Sub
If txtLokasi <> "" Then
If MsgBox("Seluruh data dalam database akan diganti. Jika dilanjutkan, proses tidak dapat dibatalkan. Lanjutkan?", vbQuestion + vbYesNoCancel, "Konfirmasi") = vbYes Then
txtHasil.LoadFile txtLokasi
xIsi = Split(txtHasil.Text, "; ", , vbTextCompare)
For i = 0 To (UBound(xIsi) - 1)
isi = Trim(xIsi(i))
If isi <> "" Then
SQL = isi
Buka
Tutup
End If
Next
MsgBox "Restore database berhasil!", vbInformation, "Restore Sukses"
txtHasil.Text = "": txtLokasi = "": txtFile = ""
End If
End If
Exit Sub
Salah:
MsgBox "Restore database gagal!" & vbCrLf & vbCrLf & "Kode Error: " & Err.Number & vbCrLf & "Keterangan: " & Err.Description, vbCritical, "Restore Gagal"
Terakhir, tambahkan kode berikut pada CmdKeluar_Click:
END
Jika sudah, jalankan project dan coba lakukan restore database dari hasil backup.
Perlu diketahui, bahwa hasil backup yang bisa direstore dari sini adalah hasil backup dari fungsi backup yang telah dibahas sebelumnya. Namun, apabila menggunakan fungsi backup yang lain, tetapi struktur hasil backup sama, maka hal tersebut tidak menjadi kendala. Silakan dicoba dan selamat berkreasi.
Jika sahabat memiliki cara ataupun contoh project Backup dan Restore yang berbeda, bisa sahabat share-kan melalui komentar di bawah.
Sahabat dapat mendownload contoh project melalui link di tengah ulasan ini. Terima kasih.
Password: suruhbelajar.blogspot.com
0 komentar:
Post a Comment
Kritik dan saran yang membangun kami harapkan!