进销存中的多帐套处理

Question

请问是如何实现的?可否具体些.我想,就是做一个数据库的还原吧,于是我这样做:原数据库名:jxcmain自己写了以下语句:
'备份SQL数据库
Public Function BackupSQLDB(dbName As String, backupFullFileName As String) As Boolean
    Dim cn As New ADODB.Connection
    On Error GoTo err
    Set cn = GetConnection()
    cn.Execute "BACKUP DATABASE " & dbName & " TO DISK='" & backupFullFileName & "'"
    BackupSQLDB = True
    Exit Function
err:
    BackupSQLDB = False
End Function'恢复SQL数据库
Public Function RestoreSQLDB(backupFullFileName As String, restoreDBName As String) As Boolean
    Dim cn As New ADODB.Connection
    On Error GoTo err
    Set cn = GetConnection()
    cn.BeginTrans
    cn.Execute "USE MASTER"
    cn.Execute "RESTORE DATABASE " & restoreDBName & " FROM DISK='" & backupFullFileName & "' WITH REPLACE"
    cn.CommitTrans
    RestoreSQLDB = True
    Exit Function
err:
    cn.RollbackTrans
    RestoreSQLDB = False
End Function
用以上的两个函数备份还原没问题.
问题是:我想把数据库jxcmain还原成jxc001,就不行了,如何修改?

Answer 1

补充,我把jxcmain追加还原成jxc001,jxc002......,保留jxcmain数据库
如何来弄?

Answer 2

SQLSERVER联机帮助这样说的,但调试不过去.
BACKUP DATABASE Northwind 
   TO DISK = 'c:\Northwind.bak'
RESTORE FILELISTONLY 
   FROM DISK = 'c:\Northwind.bak'
RESTORE DATABASE TestDB 
   FROM DISK = 'c:\Northwind.bak'
   WITH MOVE 'Northwind' TO 'c:\test\testdb.mdf',
   MOVE 'Northwind_log' TO 'c:\test\testdb.ldf'
GO

Answer 3

E. 使用 BACKUP 和 RESTORE 创建数据库的复本
下例显示使用 BACKUP 和 RESTORE 语句创建 Northwind 数据库的复本。MOVE 语句使数据和日志文件还原到指定的位置。RESTORE FILELISTONLY 语句用于确定待还原数据库内的文件数及名称。该数据库的新复本称为 TestDB。有关更多信息，请参见 RESTORE FILELISTONLY。 BACKUP DATABASE Northwind 
   TO DISK = 'c:\Northwind.bak'
RESTORE FILELISTONLY 
   FROM DISK = 'c:\Northwind.bak'
RESTORE DATABASE TestDB 
   FROM DISK = 'c:\Northwind.bak'
   WITH MOVE 'Northwind' TO 'c:\test\testdb.mdf',
   MOVE 'Northwind_log' TO 'c:\test\testdb.ldf'
GO