Discussion :

[djelloharmel]

bonsoir

j'ai un problème de compactage de ma base de données. toutes mes recherches sont vaines.

ma chaîne de connexion dans app.config est libellée comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
add name="WindowsApplication1.My.MySettings.LEHI_SQL_cns" connectionString="Data Source=.\SQLEXPRESS;AttachDbFilename="C:\LGHI\GESTION COMMERCIALE\BD_LEHI.mdf";Integrated Security=True;Connect Timeout=30;User Instance=True"
            providerName="System.Data.SqlClient" />

et mes recherches m'ont conduit à ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
        Dim engine As New SqlCeEngine("Data Source=C:\LGHI\GESTION COMMERCIALE\BD_LEHI.mdf")
        engine.Shrink()

à l'exécution, j'ai le message d'erreur suivant:

Le fichier de base de données est peut-être endommagé. Exécutez l'utilitaire de réparation pour vérifier le fichier de base de données. [ Database name = C:\LGHI\GESTION COMMERCIALE\BD_LEHI.mdf ]

j'ai besoin de votre aide

[DotNetMatt]

Ce que tu fais est étonnant ! Tu te connectes sur une instance SQL Server Express, or tu utilises les composants .NET pour SQL Server Compact Edition. Ca ne risque pas de fonctionner ainsi

Pour schrinker une base de données Express, tu peux passer la commande suivante :

Code T-SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DBCC SHRINKDATABASE (<NomDeLaBase>, <PourcentageALibérer>);
GO

Tu peux lancer cette commande depuis C#. Plus d'infos sur DBCC ici : http://msdn.microsoft.com/en-us/library/ms190488.aspx

Sinon tu peux aussi passer par SMO en utilisant la méthode Database.Shrink.

[djelloharmel]

j'ai choisi de passer par du code pur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cmd_button_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_button.click
        Dim srv As Server
        srv = New Server
 
        'Reference the AdventureWorks database.
        Dim db As New Database
        db = srv.Databases("C:\LGHI\GESTION COMMERCIALE\BD_LEHI.mdf")
 
        'Shrink the database without truncating the log.
        db.Shrink(10, ShrinkMethod.NoTruncate)
 
        'Truncate the log.
        db.TruncateLog()
    End Sub

quand j'exécute, il me ramène ce message d'erreur:

La référence d'objet n'est pas définie à une instance d'un objet.

[DotNetMatt]

Je pense que c'est parce qu'il ne trouve pas la base de données. Il faut que tu mettes le nom de la base de données tel qu'il apparait dans Management Studio au lieu du chemin. Par exemple si ta base s'appelle "Developpez", il faut utiliser ça :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

db = srv.Databases("Developpez")

[djelloharmel]

il affiche la même erreur en parcourant la ligne suivante du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

db.Shrink(percentFreeSpace, ShrinkMethod.NoTruncate)

sur la ligne de code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

db = srv.Databases("BD_LEHI")

Et pourquoi nulle part, on ne précise la connexion à notre base de données?

[djelloharmel]

j'avais raison,
je trouvais absurde que le serveur ne soit pas connu.
en effet, il fallait simplement déclarer ce qui suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim srv As Server
srv = New Server("SERVER-PC\SQLEXPRESS")

et le code marche à merveille

merci et à bientot