Discussion :

[rlapt]

Bonjour à tous,

Après le VBA, je débute en VB.Net. Je souhaite dans un premier temps me connecter à une base de données Access (visiblement ça fonctionne) puis modifier un ou deux champs de la table sélectionnée. Vous trouverez le bout de programme ci-dessous.

Le programme bloque sur la ligne :

Code :

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

        AdaptTest.Update(DtSet, "Test")

avec l'erreur :

Erreur de syntaxe dans l'instruction UPDATE

Visiblement lorsque l'on espionne la requête Update générée, on comprend pourquoi cela ne focntionne pas ; les deux mises à jour sont remplacée par des "?".

Je fais certainement mal les choses.

Quelqu'un pourrait-il me conseiller ?

Merci d'avance.


déclatations :

Code :

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

1
2
3
    Private Connection As New OleDb.OleDbConnection()
    Private DtSet As New DataSet()
    Private AdaptTest As New OleDb.OleDbDataAdapter("select * from [Test]", Connection)

Programme sur le chargement de la form :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
     Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim drCurrent As DataRow
        'on parametre la chaine de connection pour la base de donnée testbdd.mdb
        Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
        "data source= " & "C:\AppDAO\Initialisation" & "\" & "init.mdb;"
 
        Connection.Open()
        ' rempli le dataset 
        AdaptTest.Fill(DtSet, "Test")
 
        'remplissage de la liste avec le dataset
        Dim Matable As DataTable
        Matable = DtSet.Tables("Test")
 
        drCurrent = Matable.Rows(0)
        drCurrent.BeginEdit()
        drCurrent("IEB-Facteur X") = 23
        drCurrent("IEB-Nom groupe") = "Coucou"
        drCurrent.EndEdit()
        Dim CmdBuild As OleDbCommandBuilder
        CmdBuild = New OleDb.OleDbCommandBuilder(AdaptTest)
        AdaptTest.UpdateCommand = CmdBuild.GetUpdateCommand()
        AdaptTest.Update(DtSet, "Test")
        Connection.Close()
 
    End Sub

[Sankasssss]

Visiblement lorsque l'on espionne la requête Update générée, on comprend pourquoi cela ne focntionne pas ; les deux mises à jour sont remplacée par des "?".

Ceci est normal car les requêtes générées sont des requêtes paramétrées et les ? seront remplacé par les valeurs contenue dans les paramétrés.

Pourrais-tu nous montrer la requête générée?

[Graffito]

Le code me parait correct.

Est-ce que la table Test possède une clé primaire ?

Remarque : si on modifie une eule row à la fois les instructions beginedit() et endedit() ne servent à rien.

[Sankasssss]

Est-ce que la table Test possède une clé primaire ?

J'y avait pensé mais quand il n'y en a pas, le code plante au niveau de CmdBuild.GetUpdateCommand() avec un message explicite car il n'arrive pas à créer la requête.

@rlapt : Si c'est une base de test pourriez-vous nous la donner afin que nous puissions mieux comprendre?

[rlapt]

Bonjour,
Tout d'abord merci de votre aide.

Pour répondre à :

Graffito => oui il y a bien une clé primaire.

Sankasssss => on trouve la chaîne suivante dans AdaptTest.UpdateCommand

Code sql :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
UPDATE Test 
SET IEB-Nom groupe = ?, IEB-Facteur X = ? 
WHERE (
        ((? = 1 AND IEB-Groupe IS NULL) OR (IEB-Groupe = ?)) 
    AND ((? = 1 AND IEB-Nom bloc IS NULL) OR (IEB-Nom bloc = ?)) 
    AND ((? = 1 AND IEB-Nom groupe IS NULL) OR (IEB-Nom groupe = ?)) 
    AND ((? = 1 AND IEB-Ancien nom IS NULL) OR (IEB-Ancien nom = ?)) 
    AND ((? = 1 AND IEB-Facteur X IS NULL) OR (IEB-Facteur X = ?)) 
    AND ((? = 1 AND IEB-Facteur Y IS NULL) OR (IEB-Facteur Y = ?)) 
    AND ((? = 1 AND IEB-Facteur Z IS NULL) OR (IEB-Facteur Z = ?)) 
    AND ((? = 1 AND Index entrée IS NULL) OR (Index entrée = ?)) 
    AND (Index sortie = ?)
)

Je ne sais pas si c'est la requête dont se sert VB.Net pour remettre à jour la tabe, mais ça y ressemble. Je joins la structure de la table en fichier attaché PDF.

Merci encore de votre aide.

[Sankasssss]

En regardant la requête on comprend beaucoup mieux pourquoi cela ne fonctionne pas...
Les champs de la base de donnée étant composés de plusieurs mots distincts la requête est mauvaise. Personnellement je nomme toujours mes champs en un seul mot ex : IEB-Nom bloc devrait plutôt être écrit comme ceci IEB-Nom_bloc. Pareil pour tous les autres champs.

Je n'utilise pas les CommandBuilder mais cela m'étonne qu'il ne prenne pas en compte les mots composés

[rlapt]

Bonjour,

Merci pour ces aides.

Effectivement il semble que CommandBuilder ne supporte pas les espaces dans les noms de champs.

Je viens de faire l'essai sans espace dans les noms de champs, le même code fonctionne.

Merci encore

[rlapt]

Bonjour,

Par hasard j'ai trouvé la solution. Au moins pour ce qui concerne une liaison avec Access.

Après avoir déclaré votre objet CommandBuilder, il faut rajouter QuotePrefix et QuoteSuffix avec des crochets.

Code :

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

1
2
3
        Dim CmdBuild As New OleDb.OleDbCommandBuilder(BDTabIni(NroCon).AdapBD)
        CmdBuild.QuotePrefix = "["
        CmdBuild.QuoteSuffix = "]"

A ce moment là le problème disparait.

Cordialement