Tolong pilih kategori sesuai, jenis posting (diskusi atau bukan) dan sertakan tag/topik yang sesuai seperti komputer, java, php, mysql, dll. Promosi atau posting tidak pada tempatnya akan kami hapus!
- Bagi Anda yang ingin mendaftar, baca link berikut:
http://diskusiweb.com/discussion/50491/how-to-registrasi-diskusiweb-com-baca-ini-terlebih-dahulu
- Cara menyisipkan kode program supaya tampil rapi dan terformat dengan baik di diskusiweb.com: http://www.diskusiweb.com/discussion/50415/cara-menyisipkan-kode-program-di-diskusiweb-com
- Cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

program backup Database Access di VB ?

ada yang punya program atao link program untuk bikin program backup database access dari VB?

thx

Comments

  • coba gunakan aja fungsi compact dari dao ...
    compact app.path(sumber),app.path(tujuan)
    jadi data sebelum di backup telah ter compact
  • Pakai saja FileCopy('nama_file_mdb_nya')
  • pake code scripting aja.... kaya yg suka dipake ama code virus2 itu lohhh
    supaya peng-copy file bisa dilakukan walaupun file sdang di gunakna....:D
  • coba ini.......

    On Error GoTo Compact_error
    CN.Close

    ' pilih database yang dibackup
    With CommonDialog1
    .CancelError = True
    .DialogTitle = "Backup to..."
    .InitDir = App.Path & "\BackUp"
    .Filter = "Backup Files|*.md_"
    .FilterIndex = 0
    .FileName = "NamaFile" & Format(Now, "ddmmyy")
    .ShowSave
    End With

    If CommonDialog1.FileName <> "" Then
    DBEngine.CompactDatabase App.Path & "\nmfile.mdb", CommonDialog1.FileName, , , ";pwd=password_anda"
    Else
    GoTo Compact_error
    End If

    MsgBox "Proses Backup Sukses !" & Chr(13) & _
    "Program Harus di-restart !", vbOKOnly + vbInformation, "Backup Database..."
    Unload FrmLogin
    FrmSplash.Show
    On Error GoTo 0
    Exit Sub

    Compact_error:
    If Err.Number = 3204 Then
    MsgBox "Cannot replace an existing backup file !", vbCritical, "Error"
    Else
    MsgBox Err.Description
    End If
    MsgBox "Program harus di-restart !", vbOKOnly + vbCritical, "Error"
  • Kenapa ga pake database mysql aja bang ? bisa lebih mudah di maintain. Memang aga ribet setting pertamanya..
Sign In or Register to comment.