backup گيري از اكسس در برنامه

[bastakboys]

دوست عزیز من از روش زیر استفاده کردم

SFD.Filter = "پایگاه داده|*.CigNet"

SFD.ShowDialog()

File.Copy(My.Application.Info.DirectoryPath.ToString & "\data\CigNetArchivedb.mdb", SFD.FileName.ToString & ".CigNet")

و برای بازیابی

OFD.Filter = "پایگاه داده|*.CigNet"

OFD.ShowDialog()

 

If OFD.FileName.ToString <> ""Then

Try

File.Delete(My.Application.Info.DirectoryPath.ToString & "\data\CigNetArchivedb.mdb")

Catch ex As Exception

MsgBox(ex.ToString)

EndTry

File.Copy(OFD.FileName, My.Application.Info.DirectoryPath.ToString & "\data\CigNetArchivedb.mdb")

EndIf

در ضمنodf =openfiledialog و sdf =savefiledialog

جالب اینجاست که فایل پشتیبان را با هر پسوندی که خودت می خواهی میتونی سیو کنی (.CigNet)