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 <[email protected]> wrote:
From: Gege Nugroho <[email protected]>
Subject: Re: [Programmer-VB] Help : Filecopy error: Permission denied
To: [email protected]
Date: Monday, August 3, 2009, 3:13 PM
Koding lengkapnya gimana???
Biasanya yang koneksi dbnya di akses mesti ada passwordSebagai 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
