Restore Database Ms Access Menggunakan VB

Restore Database Ms Access Menggunakan VB

Restore Database Ms Access Menggunakan VB.    Pada postingan sebelumnya telah membahas tentang cara memback up database menggunakan VB, pada kesempatan kali ini saya akan memposting cara Restore Database Ms Access Menggunakan VB.

Restore database adalah mengembalikan data yang telah di backup, karena suatu hal kita perlu merestorenya. Misalnya komputernya rusak dan databasenya hilang, jika sudah pernah di backup dan disimpan di tempat yang aman kita bisa merestorenya kembali data yang telah kita backup tersebut.

Restore database ini sangat penting untuk antisipasi sesuatu yang tidak diinginkan terhadap database yang kita miliki. Bagaimanakah membuat restore database menggunakan vb6?  Ikutilah langkah-langkah berikut ini :

1. Buka VisualBasic 6 dan buatlah/desainlah sebuah form seperti gambar berikut ini
   
   
   Tampilkan Gambar

   
   

   

   
   
   
   
2. Jika sudah selesai kita lanjutkan ke koding, tulislah koding berikut ini. Sebagai contoh di sini saya memakai nama database DB_MHS.mdb. Tulislah kode berikut ini dengan benar :
   
   

   Private Sub CmdPilih_Click()
       CommonDialog1.DialogTitle = "Pilih Database Backupannya"
       CommonDialog1.InitDir = "C:\"
       CommonDialog1.Filter = "SQL Files (*.mdb)|*.mdb"
       CommonDialog1.ShowOpen
   
       Label1.Caption = CommonDialog1.FileName
   End Sub
   
   Private Sub CmdKeluar_Click()
       Unload Me
   End Sub
   
   Private Sub CmdRestore_Click()
   If Label1.Caption = "" Then
       MsgBox "Klik Tombol 'Pilih File Backup' Dulu...!," & vbCrLf & "" _
            & "Untuk Memilih Lokasi Penyimpanan", vbCritical, " .:: Peringatan ::. "
       Exit Sub
   End If
   '------------------------
   On Error Resume Next
   Dim asal As String
   Dim Tuju As String
   Dim i As Integer
   Dim j As Integer
   Label2.Width = 0
   
       Tuju = App.Path
       asal = Label1.Caption
       Tuju = Tuju + "\DB_MHS.mdb"
       '------------------------
       CmdPilih.Enabled = False
       CmdRestore.Enabled = False
       CmdKeluar.Enabled = False
       Label2.Visible = True
       For i = 0 To 4800
           Label2.Width = i
           For j = 1 To 50: DoEvents: Next j
       Next i
       '------------------------
       FileCopy asal, Tuju
       DoEvents
       MsgBox "Restore Database Sukses....!", vbInformation, "Restore Data"
       '------------------------
       CmdPilih.Enabled = False
       CmdRestore.Enabled = False
       CmdKeluar.Enabled = True
       Label2.Visible = False
   End Sub
   

   
   
3. Jika sudah simpanlah kemudian jalankan. Jika berhasil nampak seperti gambar berikut ini.
   
   
   Tampilkan Gambar

   
   

   

   
   

   

   
   
   
   
4. Selesai. Cukup mudah bukan...? Jika anda menginginkan source codenya dan tidak ingin ribet nulis kodenya silahkan download di link di bawah ini. Tutorial ini berkaitan dengan tutorial sebelumnnya cara membuat backup database.

DOWNLOAD SOURCE CODE

Tags:

Cara Restore Database dengan vb,restore database ms access dengan vb,restore database,tutorial cara restore database dengan vb6

Backup Database Ms Access Menggunakan VB

Backup Database Ms Access Menggunakan VB

Backup Database Ms Access Menggunakan VB. Untuk menghindari kehilangan data karena sesuau hal yang tidak diinginkan misalnya windows rusak,database rusak dan lain sebagainnya lakukanlah secara rutin melakukan backup data. Jika kita kehilangan data setidaknya kita masih memiliki cadangan data yang nantinya bisa kita restore, sehingga tidak terlalu pusing karena karena masih punya cadangan data. Lakukanlah back up data minimal seminggu sekali jika mau silahkan setiap hari melakukan back up.

 Pada postingan sebelumnya cara membuat tool tip yang bisa berjalan untuk postingan ini akan membahas tentang cara membuat Backup Database Ms Access Menggunakan VB. Kita akan menggunakan fungsi Copy File untuk melakukan backup database ms access. Bagaimanakah caranya...? Ikutilah langkah-langkahnya sebagai berikut ini

1.  Buka visual basic 6 kemudian desainlah sebuah form seperti gambar berikut ini :
   
   
   Tampilkan Gambar

   
   

   

   
   
   
   
2. Jika sudah selesai mendesainnya selanjutnya tinggal nulis kodenya. Di sini saya memakai database dengan nama "DB_MHS.mdb". Tulislah koding berikut ini dengan benar :
   
   

   Option Explicit
   '----Fungsi API untuk browse folder
   Private Declare Function SHBrowseForFolder Lib _
       "shell32.dll" (bBrowse As BrowseInfo) As Long
   Private Declare Function SHGetPathFromIDList Lib _
       "shell32.dll" (ByVal lItem As Long, ByVal sDir As String) As Long
   '------------------------
   Private Type BrowseInfo
       hWndOwner As Long
       pidlRoot As Long
       sDisplayName As String
       sTitle As String
       ulFlags As Long
       lpfn As Long
       lParam As Long
       lImage As Long
   End Type
   
   Private Function BrowseFolder() As String
       Dim Info As BrowseInfo
       Dim lngItem As Long
       Dim strDir As String
       'mengembalikan nama folder
       Info.ulFlags = 1
       lngItem = SHBrowseForFolder(Info)
       If lngItem Then
           strDir = Space$(260)
           If SHGetPathFromIDList(lngItem, strDir) Then
               'mendapatkan nama folder
               BrowseFolder = Left$(strDir, InStr(strDir, ChrW$(0)) - 1)
           Else
               BrowseFolder = vbNullString
           End If
       End If
   End Function
   
   '----Kode Tombol Pilih Folder
   Private Sub CmdPilih_Click()
       Label1.Caption = BrowseFolder
   End Sub
   
   '---Tombol Keluar
   Private Sub CmdKeluar_Click()
       Unload Me
   End Sub
   
   '---koding Tombol Backup---
   Private Sub CmdBackup_Click()
       If Label1.Caption = "" Then
           MsgBox "Klik Tombol 'Pilih Folder' Dulu...!," & vbCrLf & "" _
                & "Untuk Memilih Lokasi Penyimpanan", vbCritical, " .:: Peringatan ::. "
           Exit Sub
       End If
       '------------------------
       On Error Resume Next
       Dim asal As String
       Dim Tuju As String
       Dim i As Integer
       Dim j As Integer
       Label2.Width = 0
       '-----------------------
       asal = App.Path + "\DB_MHS.mdb"
       Tuju = Label1.Caption
       'mengubah nama file databasenya menjadi format tgl sesuai dg tgl backup ex:DB_MHS_01-10-2014.mdb
       Tuju = Tuju + "\DB_MHS" & "_" & Format$(Date, "DD-MM-YYYY") & ".mdb"
       CmdPilih.Enabled = False
       CmdBackup.Enabled = False
       CmdKeluar.Enabled = False
       Label2.Visible = True
       For i = 0 To 4800
           Label2.Width = i
           For j = 1 To 50: DoEvents: Next j
       Next i
       '-Proses Copy File Database--------------
       FileCopy asal, Tuju
       DoEvents
       MsgBox "Backup database Sukses...", vbInformation, "Back Up Data"
       '------------------------
       CmdPilih.Enabled = False
       CmdBackup.Enabled = False
       CmdKeluar.Enabled = True
       Label2.Visible = False
   End Sub
   

   
   
3. Jika sudah selesai silahkan di simpan kemudian di run semoga berhasil. Jika berhasil tampilannya seperti gambar berikut ini
   
   
   Tampilkan Gambar

   
   

   

   
   

   

   
   
   
   
4. Selesai. Jika anda tidak ingin ribet nulis kode dan mendesain form nya silahkan download sourcode di link berikut ini semoga bermanfaat dan membantu. Pada postinga berikut nya saya akan membuat tutorial cara membuat Restore Database Ms Access dengan VB. Di tunggu y...

 

DOWNLOAD SOURCE CODE

Tags:
Backup Database Ms Access Menggunakan VB, Backup database, Cara Backup database dengan vb,cara backup dan restore database

Membuat Sebuah Tool Tips Bisa Berjalan

Membuat Sebuah Tool Tips Bisa Berjalan

Membuat Sebuah Tool Tips Bisa Berjalan.  Pernahkah anda melihat sebuah tool tip yang dapat berjalan pada sebuah aplikasi atau program.? Jika pernah bagimana Cara Membuat Sebuah Tool Tips Bisa Berjalan ?
Pada kesempatan kali ini saya akan berbagi tips dan trik membuat sebuah tool tip yang bisa berjalan, pada setingan defaultnya sebuah tool tip itu tidak bisa berjalan alias diam dengan sedikit trik sebuah tool tips dapat berjalan sehingga aplikasi yang kita buat tambah menarik dan tidak membosankan.

Sebernarnya caranya sangat mudah dan tidak begitu rumit kodingnya. Sebagai contoh kita akan membuat sebuah tool tip pada sebuah commandbutton. Siapkan sebuah form dan tambahkan sebuah commandbutton jika sudah klik commandbutton nya lalu cari di properties pada bagian bagian ToolTipText nya silahkan anda isi tool tipnya sesuai keinginan anda seperti gambar berikut ini.

Tampilkan Gambar

Jika sudah selanjutnya yaitu membuat koding. Buatlah sebuah Function Scrolling seperti berikut ini pada bagian general declarations

Public Function Scrolling(ByVal obj As Object)
    Dim strText As String
    strText = obj.ToolTipText
    If Len(Trim$(strText)) <> 0 Then
        strText = (Right$(strText, _
        Len(strText) - 1)) & _
        Left$(strText, 1)
        obj.ToolTipText = strText
    End If
End Function

kemudian double klik lah commandbutton nya lalu tulislah koding berikut ini pada event mouse_move seperti berikut ini

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Call Scrolling(Me.Command1)
End Sub

Untuk lebih jelasnya lihatlah gambar di bawah ini

Tampilkan Gambar

Jika sudah silahkan di running. jika berhasil maka jika kita menaruh cursor pada commandbutton maka muncul tool tipnya dan tool tipnya dapat berjalan atau bergerak dari kanan ke kiri. Seperti gambar berikut ini

Trik ini dapat di terapkan pada komponen lain tidak hanya commandbutton misalnya kita terapkan pada datagrid,textbox, listbox dan lain sebaginnya. Semoga tutorial ini bermanfaat.





Tags:
Cara Membuat Sebuah Tool Tips Bisa Berjalan,Trik Tool Tip,cara mempercantik form dengan tool tip,tool tip bisa bergerak