| Author: satyavani.namburu 21 Oct 2008 | Member Level: Bronze | Rating: Points: -20 |
Dim svr As Server = New Server("SERVER1")
Dim res As Restore = New Restore()
res.Devices.AddDevice(DevicePath, DeviceType.File)
Dim DataFile As New RelocateFile
Dim MDF As String = res.ReadFileList(svr).Rows(0)(1)
DataFile.LogicalFileName = res.ReadFileList(svr).Rows(0)(0)
DataFile.PhysicalFileName = Path.Combine(Path.GetDirectoryName(MDF),
DatabaseName & Path.GetExtension(MDF))
Dim LogFile As New RelocateFile
Dim LDF As String = res.ReadFileList(svr).Rows(1)(1)
LogFile.LogicalFileName = res.ReadFileList(svr).Rows(1)(0)
LogFile.PhysicalFileName = Path.Combine(Path.GetDirectoryName(LDF),
DatabaseName & Path.GetExtension(LDF))
res.RelocateFiles.Add(DataFile)
res.RelocateFiles.Add(LogFile)
res.Database = DatabaseName
res.NoRecovery = NoRecovery
res.ReplaceDatabase = True
res.SqlRestore(Server)
|
| Author: madhavi 24 Oct 2008 | Member Level: Gold | Rating:  Points: 4 |
try this to change name means to alter database name
syntax
alter database databasename
add file
(name=filename,
filename='c:\enter ur path'
size=declare some memory example 5mb
maxsize=declare some memory example 50kb
filegrowth=declare some memory example 5mb
)
|