Discussion :

[amirad]

Salut,

Je cherche à alimenter un champs d'une table1 par une requête select effectuée sur une Table2.

Je m'explique mieux :

J'ai une première table qui contient un champs nomOuvrier rempli et un 2ième champs CodeOuvrier, à priori vide, mais qui va être rempli à partir d'une autre table contenant les codes relatifs à chaque nom.

Une idée.. Ca pourrait être un trigger ? une procédure stockée?? un service windows ?? un windows Form ???
J'ai essayé un windows form avec une requete UPDATE / SELECT imbriquée mais je m'en sors pas.

Toute piste me sera utile.

[Pol63]

il faudrait plus de précisions

[tomlev]

J'ai essayé un windows form avec une requete UPDATE / SELECT imbriquée mais je m'en sors pas.

A priori c'est la méthode la plus simple... qu'est-ce que tu as écrit comme requête ?

[amirad]

Bonjour,
Voilà la requête que j'ai utilisée :

requete = "UPDATE TableA SET CodeA =(select CodeB from TableB where CahmpsBB ='XX')"

Merci pour toute remarque.

[amirad]

Re bonjour,
Voilà je mets toute ma méthode :

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Etape 1 : Sélection des données depuis la 1ère table
 
        Try
            maConnexion = New OleDbConnection
            maConnexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source='C:\Documents and Settings\test.mdb'"
 
'Affichage des données de la tableA dans un DataGridView
             strSql = "select NomA, CodeA from TableA"
 
            maConnexion.Open()
            myCommand = New OleDbCommand(strSql, maConnexion)
            myDataAdapter = New OleDbDataAdapter(myCommand)
            myCommand.Connection = maConnexion
            myDataAdapter.Fill(myDataSet, "TableA")
            myDataTable = myDataSet.Tables("TableA")
            DataGridView1.DataSource = myDataTable
 
        Catch ex As SqlException
            MessageBox.Show(ex.Message)
        End Try
 
 
        'Etape 2 :Mise à jour du DataGridView1
 
            Try
 
           requete = "UPDATE TableA SET CodeA =(select CodeB from TableB where NomB ='XXX')"
 
            myCommand1 = New OleDbCommand(requete, maConnexion)
            myDataAdapter1 = New OleDbDataAdapter(myCommand1)
            myCommand1.Connection = maConnexion
            myDataAdapter1.Fill(myDataSet1, "TableA")
            myDataTable1 = myDataSet1.Tables("TableA")
            DataGridView1.DataSource("CodeA") = myDataTable1
            DataGridView1.Refresh()
        Catch ex As Exception
        End Try
 
    End Sub

[tomlev]

j'ai regardé vite fait, mais je vois déjà 2 problèmes...
- dans ta requête UPDATE, il n'y a pas de WHERE (il y en a un dans la sous-requête mais pas dans la requête principale), donc tu vas mettre à jour toutes les lignes de la table... tu es sûr que c'est ce que tu veux ?
- tu utilises une requête UPDATE pour faire un Fill d'un DataTable... ça n'a absolument aucun sens ! Quand tu fais : new OleDbDataAdapter(myCommand1), tu crées un DataAdapter qui utilise myCommand1 comme SelectCommand. Or la requête en question est un Update... Fill sert à remplir une DataTable à partir de la base, en utilisant la SelectCommand, donc (comme son nom l'indique) il faut que ce soit un SELECT... Pour faire la mise à jour, on utilise UpdateCommand, InsertCommand et DeleteCommand. J'ai l'impression que tu n'as pas bien compris le principe des DataAdapters... Tu devrais jeter un oeil à ces 2 tutoriels, histoire de te "rafraichir la mémoire"
http://dotnet.developpez.com/articles/ado1/
http://dotnet.developpez.com/articles/ado2/
(ça concerne SQL Server, mais le principe est exactement le même pour tous les types de BDD, il faut juste remplacer Sql* par OleDb*)

[amirad]

Merci tomlev pour votre coopération,
Oui c'est vrai, tout est mélangé dans ma tête à propos des dataser, datareader, etc..
Je les ai utilisé pour récupérer des données, supprimer, ajouter dans la base de données avec des requêtes simples, mais dès que les choses se sont compliquées, je m'en sors plus. Je verrai du côté des tutoriels que tu m'a envoyé.

[amirad]

Voilà mon nouveau code, cependant la mise à jour n'est pas effectuée à partir de la 2ième table, c'est juste une mise à jour statique.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 
Public Shared Sub main()
 
        Dim thisConnection As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source='C:\Documents and Settings\test.mdb'")
 
        Dim requete As String = "SELECT * FROM TableA"
        Dim updateRequete As String = "UPDATE TableA SET CodeA = @CodeA" 
 
        Try
            ' Create Data Adapter
            Dim da As New OleDbDataAdapter
            da.SelectCommand = New OleDbCommand(requete, thisConnection)
 
            ' Create and fill Dataset
            Dim ds As New DataSet
            da.Fill(ds, "TableA")
 
            ' Get the Data Table
            Dim dt As DataTable = ds.Tables("TableA")
 
           'Modify CodeA
           dt.Rows(0)("CodeA") = "XXX"
 
 
            ' Update TableA
            ' 1. Create Command
            Dim UpdateCmd As New OleDbCommand(updateRequete, thisConnection)
 
            ' 2. Map Parameters
            ' 2.1 CodeA
            UpdateCmd.Parameters.Add("@CodeA", OleDbType.Char, 50, "CodeA")
 
 
            ' Update TableA
            da.UpdateCommand = UpdateCmd
            da.Update(ds, "TableA")
 
        Catch ex As OleDbException
            ' Display error
            Console.WriteLine("Error: " & ex.ToString())
        End Try
    End Sub

Pour que cette mise à jour soit faite à partir de la tableB , j'ai modifié requeteUpdate ainsi :

Code :

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

1
2
 
Dim updateRequete As String = "UPDATE TableA SET CodeA = (select CodeB from TableB where NomA= 'YYY')"

Merci pour toute éventuelle intervention.

[tomlev]

Je comprends pas trop ce que tu cherches à faire... si tu veux que CodeA soit mis à jour à partir de la TableB, à quoi sert cette ligne ?

Code :

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

dt.Rows(0)("CodeA") = "XXX"

[amirad]

Cette ligne était juste pour tester si tout va bien avec un update statique (par la valeur XXX).
Elle est supprimée par suite et la nouvelle requête de mise à jour sera celle présentée ci-haut.

[Bluedeep]

A vrai dire, à la base, si tu veux mettre à jour une table A à partir des données d'une table B, je ne vois aucun bénéfice à faire transiter les dites données par l'application cliente.

[tomlev]

A vrai dire, à la base, si tu veux mettre à jour une table A à partir des données d'une table B, je ne vois aucun bénéfice à faire transiter les dites données par l'application cliente.

+1
Dans ce cas le mode déconnecté n'apporte rien...

[amirad]

+1
Dans ce cas le mode déconnecté n'apporte rien...

Dans ce cas, comment procéder alors?

[Bluedeep]

Dans ce cas, comment procéder alors?

Ben tu fais ta requête sql d'update, tu instancies un objet DbCommand, et tu l'exécutes.

[amirad]

Ben tu fais ta requête sql d'update, tu instancies un objet DbCommand, et tu l'exécutes.

Resalut,
Voilà ce que j'ai fait :

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
 
Try
            Dim Connexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source='C:\Documents and Settings\test.mdb'")
 
            Dim Commande As New OleDbCommand
 
            'Définition des paramètres de connexion
            Commande.Connection = Connexion
            Commande.CommandType = CommandType.Text
            Commande.CommandText = "UPDATE Table1 SET CodeA=(select CodeB from TableB where NomB ='XXX')"
 
            'Ouvre la connexion
            Connexion.Open()
            Commande.ExecuteScalar()
 
            Connexion.Close()
        Catch ex As OleDbException
            MessageBox.Show(ex.Message)
 
        End Try

J'obtiens le message d'erreur suivant :
L'opération doit utiliser une requête qui peut être mise à jour.

[Pol63]

ExecuteScalar sert à retourne une (et unique) valeur via un select par exemple
ExecuteReader sert à retourner un tableau de valeur via un select
pour des update insert et delete, c'est ExecuteNonQuery qu'il faut utiliser

[Bluedeep]

J'obtiens le message d'erreur suivant :
L'opération doit utiliser une requête qui peut être mise à jour.

Utilise ExecuteNonQuery à la place de ExecuteScalar.

[amirad]

Utilise ExecuteNonQuery à la place de ExecuteScalar.

Bonsoir,
J'ai testé avec ExecuteNonQuery mais j'ai toujours le même message d'erreur :

L'opération doit utiliser une requête qui peut être mise à jour.

[amirad]

Bonjour,
Voilà je vous explique mon objectif autrement puisque j'ai pas pu avancer.

J'ai deux tables : TableA et TableB.

TableA contient deux champs NomPays et CodePAys. (Exemple : Tunisie -- TN ; France -- FR, etc..)

TableB contient plusieurs champs, entre autre NomPays et CodePays sauf que les CodesPays ne sont pas mentionnés.

Donc je dois renseigner les CodePays dans TableB en se référant à TableA.

J'ai pensé à un Update avec un Select imbriqué mais toujours bloquée.

[obito]

Bonjour !

Je crois que cela a été dit avant un update ne marche pas comme ca, il faut une clause where sinon tous les champs seront mis à jour ca pourrait donner par exemple :

Code :

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

Commande.CommandText = "UPDATE Table1 SET CodeA=002 WHERE CodeA=(select CodeB from TableB where NomB ='XXX')"

C'est un exemple bien sur, par ailleurs un executeScalar pour un update... Bon soit. Mais ca serait mieux de mettre ca je pense :

Code :

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

Commande.ExecuteNonQuery()

Enfin je proposa ca mais mieux vaut attendre des avis d'expert =)

++