The Demo Site

SQL SERVER RESTORE

Guys,this is procedure for backup and restore database SQL Server from VFP application (I'm Developing from VB.net book ,sorry I forgot title this book), hopefully usefulness..

*?* mzTolo 2000
LOCAL ZHasil,tiga,lcKonek,cSambung
LOCAL ZZZ,per_tgl,tolpath
LOCAL cData,cPath,cObj
LOCAL Xtol,Ytol,cDevice,cBack,cRest
LOCAL lcTB

per_tgl =Dtos(date())

cData =�€™Inventory�€™ && contoh nama databasenya
cObj =�€™bckINV�€™ && contoh nama object device backup/restorenya
cPath =�€™c:\aplikasi\backup\�€™ && atau �€˜\\server\backup\�€™


tolpath =cPath+ALLTRIM(cData)+per_tgl

ZZZ=Sqlstringconnect('driver=sql server;server=server;database=inventory;')

If ZZZ<>-1
Xtol=SQLEXEC(ZZZ,'use master')
If Xtol<>-1
=SQLEXEC(ZZZ,"exec sp_dropdevice '&cObj'")
Ytol =SQLEXEC(ZZZ,"exec sp_addumpdevice 'disk','&cObj','&tolpath'")
IF Ytol=-1
Messagebox('Create Object Backup Gagal !',64,'Info...')
Thisform.Release
ELSE
WAIT WINDOW "Backup/restore database &cData to &cObj " NOWAIT 

*--backup/restore process ----------------------------------------
IF Thisform.Command1.Caption='Proses Backup' ZHasil=SQLEXEC(ZZZ,"backup database &cData to &cObj ")
IF ZHasil<>-1
MESSAGEBOX('Backup Succes!',64,'Info...')
ELSE
MESSAGEBOX('Backup Failed!',64,'Info...')
ENDIF
ELSE
IF MESSAGEBOX("Are You Sure ?",36,"Question..")=6
ZHasil=SQLEXEC(ZZZ,"restore database &cData from &cObj ")
IF ZHasil<>-1
MESSAGEBOX('Restore Sukses !',64,'Info...')
ELSE
MESSAGEBOX('Restore GAGAL !',64,'Info...')
ENDIF
ELSE 
WAIT WINDOW NOWAIT "Proses Restore di batalkan..."
ENDIF 
ENDIF

** 
ENDIF 
ELSE 
Messagebox('Konek ke File Master Gagal !',64,'Info...')
Thisform.Release
Endif
Else
Messagebox('Connection Database Fail !',64,'Info...')
Thisform.Release
Endif


NB :
Pastikan check �€˜db_backupoperator�€™ di permissions users database �€˜inventory�€™
Pastikan directory targetnya sudah tercipta, contoh diatas �€˜c:\aplikasi\backup\�€™
Jika target ke server misal : �€˜\\server\backup\�€™ (asumsi nama server adalah �€˜server�€™) pastikan directory �€˜backup�€™ di share dan user di berikan akses ke sana.
Pastikan account user anda di server minimal sbg member of :
- Administrators
- DnsAdmins
- Domain Admins
- Domain Computers
- Domain Controller
- Domain User
- RAS and IAS Service
Bagi rekan2 yg ahli di SQL Server dan Administrator Server mungkin bisa menambahkan atau mengkoreksi demi kemajuan bersama.

Saran dan kritik kami tunggu.

http://fox-id.org/smf/index.php?page=32
SQL SERVER RESTORE