ini mah yang salah gunakan perintah FILECOPY nya,
FileCopy dirawal, dirakhir
dimana :
dirakhir = Trim(lbl_Lokasi2. Caption)
disini yang salah, coba cek lbl_Lokasi2. Caption isinya apa?? sy rasa
direktori yg sama dengan databsenya
karena sewaktu km memilih direktori tujuan backup dengan tombol1
yang terisi :
lbl_Lokasi1. Caption = ComDialog.FileName
tetapi kamu simpan di dirawal, jadi perintah FILECOPY nya bingung deh....
Semoga membantu: =(oVo)=
====================
BaceInside Publisher
Copyright @2009
Not for reproduced, republished.
Thank You
====================
________________________________
From: lidwina oktavianty <lidwina_o...@yahoo.com.hk>
To: Programmer-VB@yahoogroups.com
Sent: Monday, August 3, 2009 2:28:33 PM
Subject: Re: [Programmer-VB] Help : Filecopy error: Permission denied
unt connection nya, aku simpan di module:
CN.Open "Provider=Microsoft .Jet.OLEDB. 4.0;Data Source=" & DBPath & ";Persist
Security Info=False;Jet OLEDB:Database Password=123"
coding lengkapnya spt ini:
Private Sub cmdLokasi_Click( )
With ComDialog
.InitDir = App.Path & "\"
.Filter = "Database Access(*.mdb) |*.mdb"
.DialogTitle = "Cari Database"
.ShowOpen
End With
lbl_FileLama. Caption = ComDialog.FileTitle
lbl_Lokasi1. Caption = ComDialog.FileName
End Sub
Private Sub cmdProses_Click( )
Dim jawab As Integer
Dim dirawal, dirakhir
jawab = MsgBox("Anda yakin akan melakukan proses backup ?", vbYesNo +
vbQuestion, "Confirm")
If jawab = vbYes Then
dirawal = Trim(lbl_Lokasi1. Caption)
dirakhir = Trim(lbl_Lokasi2. Caption)
On Error GoTo perbaikan
FileCopy dirawal, dirakhir
MsgBox "Data berhasil dibackup", vbOKOnly + vbInformation, "Biro"
On Error GoTo 0
Exit Sub
perbaikan:
MsgBox "Ada kesalahan [" & err.Description & "] backup tidak dilanjutkan.
", vbOKOnly + vbExclamation, "Error"
Else
cmdProses.SetFocus
End If
End Sub
Private Sub cmdTujuan_Click( )
With ComDialog
.InitDir = App.Path & "\"
.FileName = ""
.Filter = "Database Access(*.mdb) |*.mdb"
.DialogTitle = "Simpan dengan nama"
.ShowSave
End With
lbl_FileBaru. Caption = ComDialog.FileTitle
lbl_Lokasi2. Caption = ComDialog.FileName
cmdProses.SetFocus
End Sub
--- On Mon, 8/3/09, Gege Nugroho <gegenugroho@ yahoo.com> wrote:
>From: Gege Nugroho <gegenugroho@ yahoo.com>
>Subject: Re: [Programmer- VB] Help : Filecopy error: Permission denied
>To: Programmer-VB@ yahoogroups. com
>Date: Monday, August 3, 2009, 3:13 PM
>
>
>
>Koding lengkapnya gimana???
>
>Biasanya yang koneksi dbnya di akses mesti ada password
>Sebagai contoh gwe punya begini :
>
>Private Sub Database()
> PathTemp = "C:\HRD\TempTransSQ L.mdb"
> PathMaster = "C:\HRD\TempMasterS QL.mdb"
>
>''Konek Lokalan
> FileCopy "D:\HRD\Database\ TempTransSQL. mdb", PathTemp
> FileCopy "D:\HRD\Database\ TempMasterSQL. mdb", PathMaster
>
> vCnTrans = "Driver={MySQL ODBC 3.51 Driver};Server= 192.168.2. 6;" & _
> "Port=3306;Database =namadatabase; User=namauser; Password= password;
>Option=3; "
> vCnTemp = "Provider=Microsoft .Jet.OLEDB. 4.0;" & _
> "Data Source='" & PathTemp & "';" & _
> "Persist Security Info=False"
> vCnMaster = "Provider=Microsoft .Jet.OLEDB. 4.0;" & _
> "Data Source='" & PathMaster & "';" & _
> "Persist Security Info=False"
>end sub
>
>Regards
>Gege Nugroho
>
>--- On Mon, 8/3/09, lidwina oktavianty <lidwina_okta@ yahoo.com. hk> wrote:
>
>
>>From: lidwina oktavianty <lidwina_okta@ yahoo.com. hk>
>>Subject: [Programmer- VB] Help : Filecopy error: Permission denied
>>To: "VB" <programmer-vb@ yahoogroups. com>
>>Date: Monday, August 3, 2009, 2:02 PM
>>
>>
>>
>>Teman2, mohon bantuannya.
>>
>>Aku ingin backup database di vb. Aku pake database access 2003 dengan ada
>>password di database nya.
>>
>>Codingnya spt ini:
>>
>>dirawal = "D:\Data\Toko. mdb"
>>dirakhir = "D:\Data\Backup\ TokoBackup. mdb"
>>
>>FileCopy dirawal, dirakhir ==> error : Permission denied
>>
>>
>>Dimana ya salah nya?
>>
>>
>>Thx,
>>Okta.
>>
>>
>>Send instant messages to your online friends http://uk.messenger .yahoo.com
>
Send instant messages to your online friends http://uk.messenger .yahoo.com
