Database

WITH r1 AS (SELECT     CAPITALISE_SEMESTRE_1.NUM_INSCRIPTION, CAPITALISE_SEMESTRE_1.CODE_SEMESTRE  , CAPITALISE_SEMESTRE_1.ann_uni, SEMESTRE_1.LIBELLE_SEMESTRE_AR, 
                                                  TYPE_RELATION_SEMESTRE_1.LIBELLE_TYPE_RELATION_SEMESTRE
                         FROM         CAPITALISE_SEMESTRE AS CAPITALISE_SEMESTRE_1 INNER JOIN
                                                  SEMESTRE AS SEMESTRE_1 ON CAPITALISE_SEMESTRE_1.CODE_SEMESTRE = SEMESTRE_1.CODE_SEMESTRE INNER JOIN
                                                  TYPE_RELATION_SEMESTRE AS TYPE_RELATION_SEMESTRE_1 ON 
                                                  CAPITALISE_SEMESTRE_1.CODE_TYPE_RELATION_SEMESTRE = TYPE_RELATION_SEMESTRE_1.CODE_TYPE_RELATION_SEMESTRE
                           WHERE     (CAPITALISE_SEMESTRE_1.CODE_TYPE_RELATION_SEMESTRE = 4) AND (CAPITALISE_SEMESTRE_1.CODE_SEMESTRE = 2)), 
r2 AS
    (SELECT     CAPITALISE_SEMESTRE.NUM_INSCRIPTION AS Expr1, CAPITALISE_SEMESTRE.CODE_SEMESTRE AS Expr2, 
                             SEMESTRE.LIBELLE_SEMESTRE_AR AS Expr3,CAPITALISE_SEMESTRE.ann_uni AS Expr4
      FROM          CAPITALISE_SEMESTRE AS CAPITALISE_SEMESTRE INNER JOIN
                             SEMESTRE AS SEMESTRE ON CAPITALISE_SEMESTRE.CODE_SEMESTRE = SEMESTRE.CODE_SEMESTRE INNER JOIN
                             TYPE_RELATION_SEMESTRE AS TYPE_RELATION_SEMESTRE ON 
                             CAPITALISE_SEMESTRE.CODE_TYPE_RELATION_SEMESTRE = TYPE_RELATION_SEMESTRE.CODE_TYPE_RELATION_SEMESTRE
      WHERE      (CAPITALISE_SEMESTRE.ann_uni = @ann_uni) AND (CAPITALISE_SEMESTRE.CODE_SEMESTRE = 1))
    SELECT     r1_1.NUM_INSCRIPTION,  r1_1.ann_uni,r1_1.CODE_SEMESTRE, r1_1.LIBELLE_SEMESTRE_AR, r1_1.LIBELLE_TYPE_RELATION_SEMESTRE, r2_1.Expr1, 
                            r2_1.Expr2, r2_1.Expr3, r2_1.Expr4
     FROM         r1 AS r1_1 INNER JOIN
                            r2 AS r2_1 ON r1_1.NUM_INSCRIPTION = r2_1.Expr1

str = Application.StartupPath & "\SQLEXPR32\setup.exe /qb ADDLOCAL=ALL INSTANCENAME=" & InstanceName & " SECURITYMODE=SQL SAPWD=password DISABLENETWORKPROTOCOLS=0 "<br />
            Shell(str, AppWinStyle.Hide, True)

Dim cmd As SqlCommand<br />
        cmd = New SqlCommand("Backup Database abc to disk = @BackUpPath")<br />
        cmd.CommandType = CommandType.Text<br />
<br />
        Dim RootPath1 As String = DestinationPath 'Path for create Backup<br />
        Dim shellCommand As String = RootPath1 & "abc.bak"<br />
        cmd.Parameters.AddWithValue("@BackUpPath", shellCommand)<br />
 ExecuteRestoreCommandQuery(cmd, "master")

Private Sub ExecuteRestoreCommandQuery(ByVal comm As SqlCommand, ByVal DatabaseName As String)<br />
        Dim con1 As SqlConnection = Nothing<br />
        Try<br />
            con1 = New SqlConnection("Data Source=" & PublicServerName & "\" & PublicInstanceName & ";Initial Catalog=" & DatabaseName & ";User ID=sa;Password=password")<br />
            comm.Connection = con1<br />
            con1.Open()<br />
            comm.ExecuteNonQuery()<br />
            con1.Close()<br />
<br />
        Catch ex As Exception<br />
            msgbox(ex.Message.ToString)<br />
            If con1.State = ConnectionState.Open Then<br />
                con1.Close()<br />
            End If<br />
        End Try<br />
<br />
    End Sub