SQL Server (και άλλες databases)

Απ: SQL Server Backup με asp.net 3.5

tasos — Thu, 30 Dec 2010 09:58:19 GMT

Όταν καλείς την restore περνάς σαν παράμετρο το FileUpload1.FileName. Αυτό το property περιέχει το filename και όχι όλο το path. Κάνε πρώτα save το αρχείο σε κάποιο folder δικό σου και δώσε αυτό το path στην restore.

Π.χ.

FileUpload1.SaveAs(Server.MapPath("~/App_Data/UploadedFiles/" & FileUpload1.FileName))
restore("database", Server.MapPath("~/App_Data/UploadedFiles/" & FileUpload1.FileName))

Απ: SQL Server Backup με asp.net 3.5

it048 — Thu, 30 Dec 2010 08:08:20 GMT

Χρόνια πολλά

Λοιπόν παιδιά κατάφερα να γράψω τον παρακάτω κώδικα για backup & restore. Τοπικά στο pc μ παίζει μια χαρά, αλλά όταν το βάζω σε remote server και κάνω restore μ βγάζει το παρακάτω σφάλμα.

Cannot open backup device 'c:\Program Files\Microsoft SQL Server\MSSQL10_50.SQLEXPRESS\MSSQL\Backup\database.bak'. Operating system error 2(failed to retrieve text for this error. Reason: 15100).

Αυτό που καταλαβαίνω εγώ είναι ότι ενώ όταν κάνω backup ο sql server σώζει αρχικά το .bak σε έναν temp folder και από εκεί το κάνω download, όταν κάνω restore πάει να διαβάσει από \MSSQL\Backup και δε βρίσει τπτ σωστά? Τι αλλαγή πρέπει να κάνω?

Ο κώδικας είναι παρακάτω.

Imports System
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections.Specialized
Imports System.Collections.Generic
Imports System.Text
Imports Microsoft.Win32
Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common
Imports System.IO.Path
Imports System.Web.Configuration

Public Class backup
Inherits System.Web.UI.Page

Private Sub BackupBak(ByVal databaseName As String)
Dim tempPath As String = System.IO.Path.GetTempPath()
Dim sql As New SqlClient.SqlConnection
sql.ConnectionString = WebConfigurationManager.ConnectionStrings(
"new_patientsConnectionString").ConnectionString
sql.Open()
Dim cmd As New SqlClient.SqlCommand
cmd.CommandType = CommandType.Text
cmd.Connection = sql
Dim backupName As String = databaseName + ".bak"
Dim bakFile As String = System.IO.Path.Combine(tempPath, backupName)
cmd.CommandText = String.Format("BACKUP DATABASE [{0}] TO DISK = N'{1}'", databaseName, bakFile)
Try
cmd.ExecuteNonQuery()
sql.Close()
Catch ex As Exception
Response.Write("Error1:" & ex.Message)
Response.Write("Error1:" & ex.Source)
Response.Write("Error1:" & ex.StackTrace)
End Try
DownloadFile(backupName, bakFile)
End Sub

Sub DownloadFile(ByVal strFileName As String, ByVal strPath As String)
Response.ContentType = "text/plain"
Response.AddHeader("Content-Disposition", "attachment filename=" & strFileName)
Response.TransmitFile(strPath)
Response.End()
End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
BackupBak("database")
End Sub

Sub restore(ByVal databaseName As String, ByVal bakFile As String)
If FileUpload1.HasFile Then
Dim sql As New SqlClient.SqlConnection
sql.ConnectionString = WebConfigurationManager.ConnectionStrings(
"new_patientsConnectionString").ConnectionString
sql.Open()
Dim cmd As New SqlClient.SqlCommand
cmd.CommandType = CommandType.Text
cmd.Connection = sql
cmd.CommandText =
String.Format("USE master RESTORE DATABASE [{0}] FROM DISK = N'{1}' WITH REPLACE", databaseName, bakFile)
Try
cmd.ExecuteNonQuery()
sql.Close()
Catch ex As Exception
Response.Write(
"Error1:" & ex.Message)
Response.Write(
"Error1:" & ex.Source)
Response.Write(
"Error1:" & ex.StackTrace)
End Try
End If
End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
restore("database", FileUpload1.FileName)
End Sub
End

Class

Ευχαριστώ πολύ

Απ: SQL Server Backup με asp.net 3.5

it048 — Tue, 14 Dec 2010 07:25:08 GMT

Σωστός. Thanks

Απ: SQL Server Backup με asp.net 3.5

tasos — Tue, 14 Dec 2010 05:24:44 GMT

Δοκίμασε το εξής:

Dim bk As New Microsoft.SqlServer.Management.Smo.Backup

bk.Action = BackupActionType.Database

Απ: SQL Server Backup με asp.net 3.5

Chrysostomos Kolovos — Tue, 14 Dec 2010 04:40:54 GMT

Γιατί δεν τρέχεις ένα script απλά για να το κάνεις?

Απ: SQL Server Backup με asp.net 3.5

it048 — Tue, 14 Dec 2010 02:45:36 GMT

Οπότε πως πρέπει να το γράψω?

Απ: SQL Server Backup με asp.net 3.5

Antonios Chatzipavlis — Mon, 13 Dec 2010 19:44:20 GMT

Τώρα που το είδα καλύτερα θα συμφωνήσω με το Markos

Απ: SQL Server Backup με asp.net 3.5

Markos — Mon, 13 Dec 2010 19:38:46 GMT

Διάβασε λίγο πιο προσεκτικά τον κώδικα που έχεις γράψει...

Partial Public Class backup

Inherits System.Web.UI.Page

Η κλάση σου κληρονομεί από το System.Web.UI.Page. Το Action δεν είναι property του Page. Σωστά ο compiler τα... έπαιξε!! Το γεγονός ότι ονόμασες την κάση backup δεν της εξασφαλίζει αυτόματα ότι κάνει και κάνει και backup!!

Απ: SQL Server Backup με asp.net 3.5

tasos — Mon, 13 Dec 2010 18:42:26 GMT

Έχω την αίσθηση ότι η εντολή Dim bk As New backup δημιουργεί ένα object για τη web φόρμα backup και όχι από το SMO. Ο κώδικας που έκανες paste έχει το Partial Public Class backup. Δοκίμασε να δώσεις όλο το namespace της κλάσης που θέλεις.

Απ: SQL Server Backup με asp.net 3.5

Antonios Chatzipavlis — Mon, 13 Dec 2010 18:32:27 GMT

καλημέρα

έχεις κάνει reference στο project σου το Microsoft.SqlServer.SmoExtended.dll ;

Απ: SQL Server Backup με asp.net 3.5

it048 — Mon, 13 Dec 2010 08:08:24 GMT

Ότι γράφω πάνω είναι στον κώδικα του VS2008. Δε τρέχω την εφαρμογή.

λέει Error 1 'Action' is not a member of 'Project.backup'.

Απ: SQL Server Backup με asp.net 3.5

Antonios Chatzipavlis — Mon, 13 Dec 2010 07:23:22 GMT

Μπορείς να μας δώσεις ακριβώς το λάθος που σου βγάζει γιατί υποψιάζομαι ότι δεν έχεις τα απαραίτητα permissions.

SQL Server Backup με asp.net 3.5

it048 — Mon, 13 Dec 2010 06:44:09 GMT

Καλησπέρα. Προσπαθώ μέσω ενός site να κάνω backup μία βάση του SQL Server.

Παραθέτω τον κώδικα που έχω μέχρι τώρα

Imports Microsoft.SqlServer.Management.Smo

Imports Microsoft.SqlServer.Management.Common

Partial Public Class backup

Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

Dim srv As New Server

Dim db As Database

db = srv.Databases("dbname")

Dim bk As New backup

bk.Action = BackupActionType.Database

End Sub

End Class

αλλά το bk.Action μου το βρίσκει λάθος λέγοντας ότι δεν είμαι member στο Project.

Έχω και τον υπόλοιπο κώδικα για το backup αλλά το πρώτο που δ με αφήνει είναι αυτό.

Καμία βοήθεια?