Hi all

Please any body tell how to duplicate an database within the same
server from vb program?

Use ADO or ADI.NET to send the SQL Server BACKUP and RESTORE commands.

Show quoteHide quote

Thanks for the Reply

But when I restoring the database with another name there was Error
says that you cannot overwrite the file...

Just read about the RESTORE command in Books Online, and pay special attention to the MOVE option.

Show quoteHide quote

Yes
I got the Solution

conn.Execute "backup database DB_DATA to disk = '" & App.Path &
"\db.bak'"
    rs.Open "RESTORE FILELISTONLY FROM DISK = '" & App.Path &
"\db.bak'", conn, adOpenDynamic, adLockPessimistic
    Dim Dname As String, Lname As String
    Dim DFname As String, LFname As String
    Dname = rs("LogicalName")
    DFname = Left(rs("PhysicalName"), InStrRev(rs("PhysicalName"),
"\")) & DBname & "_Data.mdf"
    rs.MoveNext
    Lname = rs("LogicalName")
    LFname = Left(rs("PhysicalName"), InStrRev(rs("PhysicalName"),
"\")) & DBname & "_Log.ldf"
    conn.Execute "restore database " & DBname & " from disk = '" &
App.Path & "\db.bak' WITH " & _
                 "MOVE '" & Dname & "' TO '" & DFname & "', " & _
                 "MOVE '" & Lname & "' TO '" & LFname & "'"
Thanks

GetDate() in UDF
Popuate field with value from last row
Why query optimizer does not select the index?
Fiscal Month Date Range: 22 thru 21
How to insert data into table varialable in a sp from dynamic table