Stored procedure til at kopiere en database?

Skal det være et en stored procedure? Med andre ord: Må det ikke være script?

Hvis det må være script er det nemt...

Det må godt være et script...

Jeg skal bare kunne kalde det fra ASP - og det må IKKE kun være et der kopier tabellerne..

Det skal være hele databasen med indhold og det hele - alle auto ID numre skal være de samme - osv. osv - som hvis jeg havde kopieret databasen...

Nedenfor er en lille procedure, der laver en totalkopi af en database. Den opretter ikke selv databasen - gør det med 'CREATE DATABASE dbName' som et almindeligt SQL-kald, det er det nemmeste.

Jeg har kun testet det på en W2K Server med SQL2K beta 2, men det burde virke med SQL7. Det tager laaaaang tid for en stor database, men det er du vel klar over!


Sub TransferObjs(strServer, strLogin, strPassword, strSource, strDestination)
    Set sqlServer = Server.CreateObject("SQLDMO.SQLServer")
   
    sqlServer.Connect strServer, strLogin, strPassword
    Set db = sqlServer.Databases(strSource)
   
    Set trn = Server.CreateObject("SQLDMO.Transfer")
    trn.CopyData = 1 ' SQLDMOCopyData_Replace
    trn.CopySchema = True
    trn.CopyAllObjects = True
   
    trn.DestDatabase = strDestination
    trn.DestServer = strServer
    trn.DestLogin = strLogin
    trn.DestPassword = strPassword
    trn.IncludeDependencies = True
       
    db.transfer trn
   
    Set sqlServer = Nothing
End Sub

Fedt..

Kan du lave et hurtigt lille eksempel på hvordan man kalder det fra ASP?

Meget enkelt:

<%
TransferObjs "myServer", "sa", "hemmeligt", "SourceDB", "DestDB"
%>

Ok - fedt.

Jeg prøver den lige af...

Én sidste ting..hvis jeg skal lave en default database - en ren tom med Create Database - hvordan ser sætningen så ud...

Kiggede lige - det så ret wierd ud..

function CreateDB(strConn, strDatabase)
    ' strConn er din connection string, fx. "DSN=SQLServer;UID=sa;PWD=hemmeligt;"
    ' strDatabase er det nye database navn
    set conn = Server.CreateObject("ADODB.Connection")
    conn.Open strConn
    conn.Execute "CREATE DATABASE " & strDatabase
    set conn = nothing
end sub

BTW, ikke testet !!!

Fedt - det virker!

Hvad havde du regnet med :-)

Men hvorfor virker dette ikke:

CREATE Database 'Brian Demo 1 Database'

eller dette:

CREATE Database Brian Demo 1 Database

Man kan jo aldrig vide... ;-)

Men det er da fedt...

Fordi den første er en streng og den den er samling ukendte ord.

Hvis man skal overbevise en SQL server om at disse tegn er ok i en sammenhæng skal der benyttes kantede paranteser.

Dvs. CREATE DATABASE [Brian Demo 1 Database] virker !!!

Jeg får pludselig en fejl:

Microsoft SQL-DMO error '800a0005'

[SQL-DMO]CreateFile error on 'CLUSQL.Demo - ShopCenter Danmark Database.LOG'. Access is denied.

/ny/create.asp, line 23

Linie 23:

db.transfer trn


Umiddelbart skulle der være adgang i SQL mappen?

Muligvis har du allerede åbnet databasen?