[es] - Back up Access-ove baze podataka iz aplikacije

rainman1977
zemlja dembelija

Član broj: 7771
Poruke: 84
*.teol.net

ICQ: 200221484

Profil

Back up Access-ove baze podataka iz aplikacije

^{10.01.2004. u 13:42}

pozdrav,
Pokusavam da napravim back up baze podataka iz aplikacije sa opcijom FileCopy ali javlja mi gresku tj. ne mogu kopirati bazu ako je vec neko koristi(File copy radi ako je aplikacija zatvorena).Da li postoji vec neka kontrola ili opcija za kopiranje baze i da li mi moze pomoci kontrola CommonDialog il vec imate nesto slicno na umu?

i don't like money oh yea,i love it

^{10.01.2004. u 13:42}

BlueSoniq
zaposlen / C#, ASP.NET senior
Beograd

Član broj: 11116
Poruke: 159
*.yubc.net

Profil

Re: Back up Access-ove baze podataka iz aplikacije

^{14.01.2004. u 11:11}

Probaj ovako:

Code:

Public Declare Function apiCopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Public Sub CopyFile(SourceFile As String, DestFile As String)
      '---------------------------------------------------------------
      ' PURPOSE: Copy a file on disk from one location to another.
      ' ACCEPTS: The name of the source file and destination file.
      ' RETURNS: Nothing
      '---------------------------------------------------------------
Dim Result As Long
         If Dir(SourceFile) = "" Then
            MsgBox Chr(34) & SourceFile & Chr(34) & _
               " NE POSTOJI ! "
         Else
            Result = apiCopyFile(SourceFile, DestFile, False)
         End If
End Sub

^{14.01.2004. u 11:11}

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI, USA / Softwa..
Ann Arbor, MI, USA

Moderator
Član broj: 6598
Poruke: 2064
*.yubc.net

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Back up Access-ove baze podataka iz aplikacije

^{20.01.2004. u 10:24}

Code:

Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject
FSO.CopyFile SrcFile, DestFile, Overwrite

Blue Man Group

^{20.01.2004. u 10:24}

rainman1977
zemlja dembelija

Član broj: 7771
Poruke: 84
*.bn.pttrs.net

ICQ: 200221484

Profil

Re: Back up Access-ove baze podataka iz aplikacije

^{21.01.2004. u 00:37}

Citat:

mladenovicz:

Code:

Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject
FSO.CopyFile SrcFile, DestFile, Overwrite

Jos samo mi reci koje reference da koristim posto nemam u libery-ju "Scripting.FileSystemObject".

i don't like money oh yea,i love it

^{21.01.2004. u 00:37}

Re: Back up Access-ove baze podataka iz aplikacije

^{21.01.2004. u 10:24}

Da bi se koristio FileSystemObject potrebno je u References ukljuciti Microsoft Scripting Runtime (scrrun.dll).

Blue Man Group

^{21.01.2004. u 10:24}