Discussion :

[Invité]

Bonjour la communauté, je suis confronté à un petit problème, j'ai ce code :

Code :

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

1
2
3
4
5
6
7
8
Function ConnectBDD() As SqlCeConnection
        Dim BDDPath$ = Path.GetTempPath & "database_energie.sdf"
        File.WriteAllBytes(BDDPath, My.Resources.database_energie)
        Dim Connexion As New SqlCeConnection("Data Source= " & BDDPath)
 
        Connexion.Open()
        Return Connexion
End Function

La connexion à la base de données fonctionne parfaitement, néanmoins lorsque je fais une intruction INSERT via ce code :

Code :

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

1
2
3
4
5
6
Dim connexion As SqlCeConnection = ConnectBDD()
Dim Requete As String = "INSERT INTO t_energie_electricite (heures_pleines, heures_creuses, date_releve) VALUES ( 1111,1111, '');"
Dim Commande As New SqlCeCommand(Requete, connexion)
Commande.ExecuteNonQuery()
connexion.Dispose()
connexion.Close()

Je n'ai aucune erreur mais aucune entrée ce fait dans ma table... En revanche les instructions SELECT ET DROP fonctionnent.

Avez vous des idées ??

J'utilise Visual Studio 2013

Merci d'avance

[Invité]

Bonsoir,
Tu place '' dans date relevé, est-ce un string ? Si oui les texte vide sont autorisées?
Remplace '' par null

Code :

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

1
2
3
4
5
6
Dim connexion As SqlCeConnection = ConnectBDD()
Dim Requete As String = "INSERT INTO t_energie_electricite (heures_pleines, heures_creuses, date_releve) VALUES ( 1111,1111, null);"
Dim Commande As New SqlCeCommand(Requete, connexion)
Commande.ExecuteNonQuery()
connexion.Dispose()
connexion.Close()

[Invité]

Bonjour,

Non ce n'est pas un problème au niveau de l'insertion SQL, Le champ peut accepter des valeur null (uniquement pour la phase de test)

Le problème viens de la base SQL embarqué, si je mets ce code :

Code :

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

1
2
3
4
5
6
7
8
Function ConnectBDD() As SqlCeConnection
        Dim BDDPath$ = Path.GetTempPath & "database_energie.sdf"
        File.WriteAllBytes(BDDPath, My.Resources.database_energie)
        Dim Connexion As New SqlCeConnection("Data Source= " & BDDPath)
 
        Connexion.Open()
        Return Connexion
End Function

La commande SQL ne fonctionne pas, en revanche si je mets ce code :

Code :

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

1
2
3
4
5
6
 Function ConnectBDD() As SqlCeConnection
        Dim Connexion As New SqlCeConnection("Data Source= database_energie.sdf")
 
        Connexion.Open()
        Return Connexion
End Function

Cela fonctionne parfaitement, en revanche je ne peux plus exporter ma base de données a travers l'application.

Des idées ?

Merci d'avance

[Kropernic]

C'est donc un problème dans la construction de ta connectionstring.

Que retourne Path.GetTempPath ? Il y a bien un "\" à la fin ?

Attention aussi que sur une ligne ta variable se nomme BDDPath$ et sur l'autre BDDPath. J'imagine une faute de frappe sinon l'erreur vient de là

[Invité]

Je n'ai pas de problème d'accès à la base de données via la première méthode, car j'arrive a récupérer des informations via la commande SELECT.

Je testerai quand même mais je ne pense pas que ce soit la solution

[Kropernic]

Qu'en est-il à propos de ce "$" qui vient parasiter le nom de la variable ? Mauvais manip lors du copier/coller ou c'est plus grave ?

EDIT : Je viens de me remarque qu'après ton inscruction ExecuteNonQuery, tu fais le Dispose avant le Close sur la connexion.

Alors je n'ai jamais utilisé Sql Server CE mais de ce que j'en sais, c'est une DB embarquée de type fichier. Le problème ne serait-il pas là ? Il n'y aurait pas une sorte de commit à la fermeture de la connexion qui ne peut jamais se faire vu que tu disposes l'objet avant ??