PDA

View Full Version : چگونگی بک آپ گیری در ویژوال بیسیک



vista_383
پنج شنبه 11 آبان 1385, 11:47 صبح
سلام دوستان
من در حال نوشتن یک برنامه حسابداری هستم که بانک های اطلاعاتی من را پسوند mdb تشکیل می دهد.
می خواهم بدونم که چطوری میشه از بانک اطلاعاتی وارد شده مثل دیگر برنامه های حسابداری که نسخه پشتیبان می گیرند،برنامه من هم پشتیبان یا بک آپ بگیره
لطفا کمکم کنید

mortez maya
جمعه 12 آبان 1385, 01:55 صبح
این کد کمکتون می کنه:

Set fs = CreateObject("Scripting.FileSystemObject")
If cd.FileName <> "" Then
fs.copyfile "C:\Sample", cd.FileName
End If

pi_plusplus
شنبه 13 آبان 1385, 09:56 صبح
سلام.
من از این کد جواب گرفتم. ببین به دردت می خوره یا نه؟



Query = "SELECT filename FROM sysdatabases WHERE name = 'Anbar'; "
Query = Query + "EXEC master..xp_cmdshell [md " + BrowseF.FileName + "];"
Query = Query + "BACKUP DATABASE [Anbar] TO DISK = '" + PathFull + ".bak' WITH INIT, NAME = N'Anbar_Bak', STATS = 10;"
On Error GoTo UpdateFailed
Me.MousePointer = 11
MConn.Execute Query
Me.MousePointer = 0