WinForms

Απ: Απ:Database Creation Script during deployment

axaros — Sat, 22 Oct 2005 02:33:56 GMT

Συγνώμη ξέχασα ... προσθήκη στο GAC ...
Στο setup project :
Add Special folder (Global Assembly Cache folder) και προσθήκη εκεί μέσα του assembly μας ....

Απ: Απ:Database Creation Script during deployment

axaros — Sat, 22 Oct 2005 02:24:28 GMT

Τελικά ήταν ευκολότερο από ότι φανταζόμουνα :
Installer και ένα ακόμη custom action με τα εξής overrides :

Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
   Dim appId As String = Nothing
   Dim typeLib As String = Nothing
   Dim MyAssembly As String = Me.GetType.Assembly.Location
   Dim RegHelp As New RegistrationHelper

   RegHelp.InstallAssembly(MyAssembly, _
                                       appId, _
                                       typeLib, _
                                       InstallationFlags. _
                                       FindOrCreateTargetApplication)

   With stateSaver
      .Add("AppID", appId)
      .Add("Assembly", MyAssembly)
   End With

End Sub

Public Overrides Sub Uninstall(ByVal savedState As System.Collections.IDictionary)
   Dim appId As String = CStr(savedState("AppID"))
   Dim MyAssembly As String = CStr(savedState("Assembly"))
   Dim RegHelp As New RegistrationHelper

      RegHelp.UninstallAssembly(MyAssembly, appId)

End Sub

Κύριοι έχω τις ευλογίες σας ; ή ζω illusions of grandure;

Απ: Απ:Database Creation Script during deployment

axaros — Wed, 07 Sep 2005 03:52:54 GMT

Το βρήκα : System.EnterpriseServices.RegistrationHelper class.
Έχει κάποιος ένα sample ;

Απ:Database Creation Script during deployment

axaros — Fri, 19 Aug 2005 19:27:14 GMT

Και συνεχίζω :

Πως θα κάνω τώρα deploy (και αντίστοιχα uninstall) ένα serviced component ;

Απ:Database Creation Script during deployment

axaros — Tue, 09 Aug 2005 21:38:59 GMT

Μάνο , Πάνο αγαπητοί μου GURU !!!! ΔΟΥΛΕΥΕΙ !!!!!!!
ΚΥΜΑΤΑ ΕΥΓΝΩΜΟΣΥΝΗΣ ΑΠΟ ΤΟ ΛΑΟ ΣΑΣ !!!!!

Και Rollback και τρέχει το deletion script !!!!!!

Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
MyBase.Install(stateSaver)
ExecuteSql("", "sql.txt")
End Sub

Public Overrides Sub Commit(ByVal savedState As System.Collections.IDictionary)
MyBase.Commit(savedState)
End Sub

Public Overrides Sub Rollback(ByVal savedState As System.Collections.IDictionary)
DeleteDatabase("DeleteDatabase.txt")
MyBase.Rollback(savedState)
End Sub

Public Overrides Sub Uninstall(ByVal savedState As System.Collections.IDictionary)
DeleteDatabase("DeleteDatabase.txt")
MyBase.Uninstall(savedState)
End Sub

Απ:Database Creation Script during deployment

Παναγιώτης Καναβός — Tue, 09 Aug 2005 20:48:46 GMT

Δεν πρέπει να πιάσεις εσύ το exception, ούτε να καλέσεις εσύ τη Rollback. Αυτά θα τα κάνει ο Installer μόνος του.

Απ:Database Creation Script during deployment

axaros — Tue, 09 Aug 2005 19:49:10 GMT

Παναγιώτη έχω γράψει τα overrides αλλά εάν κάνω handle τα exemptions δεν γίνεται το rollback.
Εάν όχι δουλεύει ...
Προφανώς έχω κάνει κάποια πατάτα και ζητώ τα φώτα σας :

Public Overrides Sub Install(ByVal stateSaver As System.Collections.IDictionary)
Try
   MyBase.Install(stateSaver)
   'System.Diagnostics.Debugger.Break()
   ExecuteSql("", "sql.txt")
Catch ex As Exception
   Rollback(stateSaver)
   MsgBox(ex.Message, MsgBoxStyle.Critical, "Λάθος κατά την εγκατάσταση")
End Try

End Sub

Public Overrides Sub Commit(ByVal savedState As System.Collections.IDictionary)
MyBase.Commit(savedState)
End Sub

Public Overrides Sub Rollback(ByVal savedState As System.Collections.IDictionary)
MyBase.Rollback(savedState)

   Try
      DeleteDatabase("DeleteDatabase.txt")
   Catch ex As Exception
   Throw ex
   End Try

End Sub

Public Overrides Sub Uninstall(ByVal savedState As System.Collections.IDictionary)
   MyBase.Uninstall(savedState)
   Try
      DeleteDatabase("DeleteDatabase.txt")
   Catch ex As Exception
      Throw ex
   End Try
End Sub

Απ:Database Creation Script during deployment

Παναγιώτης Καναβός — Tue, 09 Aug 2005 17:29:38 GMT

Rollback γίνεται αν κάνεις override το Rollback method όπως έκανες το Install. Εκεί θα πρέπει να αποφασίσεις τί θα κάνεις. Αν το script σου φτιάχνει μια βάση με συγκεκριμμένο όνομα και εκεί μέσα μετά εκτελεί SQL statements, μπορείς απλά να εκτελέσεις ένα drop database statement. Το ίδιο μπορείς να κάνεις και αν δημιουργεί συγκεκριμμένα logins. Αν το όνομα της βάσης, τα περιεχόμενα, τα logins ή οτιδήποτε άλλο κάνεις εξαρτάται από install properties ή το όνομα του μηχανήματος, γενικά αν δεν είναι hardcoded, θα πρέπει να αποθηκεύσεις αυτές τις παραμέτρους στο stateSaver dictionary που περνάει σαν παράμετρος στο install. Το dictionary αυτό αποθηκεύεται στο σκληρό και είναι διαθέσιμο όταν κάνεις Rollback ή Uninstall.

Απ:Database Creation Script during deployment

KelMan — Tue, 09 Aug 2005 17:17:41 GMT

Χμμμ... Δεν ξέρω, δεν έχω προσπαθήσει να κάνω explicit rollback ενός action...

Κάτι που μπορώ να σκεφτώ στα γρήγορα, είναι αφού κάνεις handle το exception, να κάνεις ένα νέο Throw ώστε να προκαλέσεις το rollback...

Απ:Database Creation Script during deployment

axaros — Mon, 08 Aug 2005 16:52:17 GMT

Καλημέρα σε όλους !!!
Μάνο δεν δουλεύει απλά ... Δουλεύει εξαιρετικά !!!!
Μία ακόμη ερώτηση : πως θα κάνω rollback κάποιο custom action;

Για την ακρίβεια στην προκειμένη εφόφον "σκάσει" το database creation script θέλω να "κόψω" το installation ...

Το πρόβλημα μου είναι ότι εάν δεν αφήσω unhandled τα όποια exemptions, το rollback δεν γίνεται ...
Τι κάνω λάθος ;

Απ:Database Creation Script during deployment

axaros — Tue, 02 Aug 2005 03:18:37 GMT

Μάνο έχεις δίκιο αν και στην περίπτωση μου είναι πιο "μαζεμένα" τα πράγματα.
Θα είναι πάντα εγκατεστημένα τα client tools και το osql.exe σε συγκεκριμένο path σε local install.
Σε αυτό το forum : http://www.vbcity.com/forums/topic.asp?tid=104854
κάποιος ήθελε να κάνει κάτι παρόμοιο και ο admin του προτείνει να τρέξει το Sqlredis.exe
πρώτα.
Ρίξε μια ματιά ..

Φυσικά είναι πολύ πιο robust η πρόταση σου...
Σε ευχαριστώ θερμά για τον κώδικα

Υ.Σ.

Φυσικά είναι πολύ πιο robust η πρόταση σου...

Έχω καταντήσει Γαρδέλης (βλέπε θρυλικές εποχές "Come with me για να την βρεις") με αυτά τα Greeklish...

Απ:Database Creation Script during deployment

KelMan — Tue, 02 Aug 2005 02:23:09 GMT

Μπορείς να το κάνεις με osql αλλά αυτό προϋποθέτει ότι θα είναι εγκατεστημένα τα client tools του SQL Server στο PC που κάνεις εγκατάσταση. Μπορεί να παρουσιαστούν διάφορα προβληματάκια που μου έρχονται πρόχειρα στο μυαλό: Είναι το osql.exe στο path; Δεν είναι στο path; Είναι εγκατεστημένο; Δεν είναι εγκατεστημένο; Θα κάνεις local install ή υπάρχει περίπτωση και για remote; Επίσης, είναι πιο δύσκολο το να ελέγξεις αν όλα πήγαν καλά, ενώ δίνοντας εντολή-εντολή τα statements μπορείς να καταλάβεις τι δεν πήγε καλά...

Λοιπόν, εδώ είναι το δείγμα. Δεν μπορώ να βρω την τελική μορφή, καθώς είχα κάνει αρκετές διορθώσεις με καλύτερο error handling και logging.

Public Sub ExecuteSql(ByVal connection As SqlConnection, ByVal sqlFile As String)

Dim sql As String = ""

Dim iCounter As Integer

Dim transaction As SqlTransaction

Dim strm As FileStream = File.OpenRead(sqlFile)

Dim reader As New StreamReader(strm)

sql = reader.ReadToEnd()

Dim regex As New Regex("^GO", RegexOptions.IgnoreCase Or RegexOptions.Multiline)

Dim lines As String() = regex.Split(sql)

connection.Open()

Dim cmd As SqlCommand = connection.CreateCommand()

Try

cmd.Connection = connection

cmd.CommandType = CommandType.Text

Dim line As String

For iCounter = 0 To lines.Length - 1

line = lines(iCounter)

If line.Trim = "use [database_name_here]" Then

transaction = connection.BeginTransaction()

cmd.Transaction = transaction

End If

If line.Length > 0 Then

cmd.CommandText = line

cmd.CommandType = CommandType.Text

Console.WriteLine(line)

Try

cmd.ExecuteNonQuery()

Catch ex As Exception

Console.WriteLine(ex.Message)

End Try

End If

Finally

cmd.Dispose()

End Try

transaction.Commit()

connection.Close()

End Sub 'ExecuteSql

Απ:Database Creation Script during deployment

axaros — Tue, 02 Aug 2005 01:33:25 GMT

Επίσης εάν το έκανα με osql command ;

Απ:Database Creation Script during deployment

axaros — Tue, 02 Aug 2005 00:33:30 GMT

KelMan wrote:

Το κόλπο είναι να "σπάσεις" τα statements σε κάθε GO που διαβάζεις. Αυτό γίνεται εύκολα με ένα regular expression... Δες τα παραδείγματα και εδώ είμαστε για τα περαιτέρω...

Όλα καλά μέχρι ακριβώς αυτό το σημείο ... To script μου είναι αρκετά μεγάλο ...
Μάνο έχεις κάποιο παράδειγμα ;

Απ:Database Creation Script during deployment

KelMan — Mon, 01 Aug 2005 23:18:06 GMT

Πάνο ανάποδα πας... Πρώτα στο DNZ και μετά στο MSDN;! Χε χε χε...

Λοιπόν, εδώ σε αυτά τα Deployment Walkthroughs θα βρεις παραδείγματα για custom actions.

Έχω φτιάξει παρόμοιο custom action, δεν είναι δύσκολο. Για να είμαι ακριβής, το custom action αυτό καθ'αυτό δεν είναι δύσκολο, από κει και πέρα εξαρτάται το τι θες να κάνεις. Στην δική μου περίπτωση, πήρα το script μέσα από το Generate Script του Enterprise Manager, το άλλαξα κατά το δοκούν και κατόπιν έβαλα να εκτελεί τα περιεχόμενα. Το κόλπο είναι να "σπάσεις" τα statements σε κάθε GO που διαβάζεις. Αυτό γίνεται εύκολα με ένα regular expression... Δες τα παραδείγματα και εδώ είμαστε για τα περαιτέρω...