Discussion :

[DEV-10]

Bonjour

Dans le code suivant, je fais la recherche d'une valeur dans le champ sal1 de la table table_salaire et je la compare avec la valeur du textbox sal1.Text

Lorsque je trouve la ligne en question, je change cette valeur par une autre valeur lue dans un autre textbox nouveau_sal.Text

Au niveau de la ligne

Code :

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

MyDataAdapter.Update(MyDataset, "table_salaire")

je recois le message suivant :

Dynamic SQL generation for the UpdateCommand is not supported against a SelectCommand that does not return any key column information

Avez-vous une idée ?

Merci.

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
44
Dim Myconnexion As SqlConnection 
Dim Mycommand As SqlCommand 
Dim MyDataAdapter As SqlDataAdapter Dim MyDataset As New DataSet()
Dim strSql As String 
Dim MyDataTable As DataTable
Dim MyDataRow As DataRow 
Dim RowNumber As Integer = 0 
Dim MyConnexionString As String
Dim MyCommandBuilder As SqlCommandBuilder = Nothing 
Try
MyConnexionString = "Data Source=natahlie;Initial Catalog=Data_Base_salaire;Integrated Security=True"
strSql = "SELECT sal1 FROM table_salaire" 
Myconnexion = New SqlConnection 
Myconnexion.ConnectionString = MyConnexionString
Myconnexion.Open() 
Mycommand = New SqlCommand(strSql) 
MyDataAdapter = New SqlDataAdapter(Mycommand) 
Mycommand.Connection() = Myconnexion 
MyDataAdapter.Fill(MyDataset, "table_salaire") 
MyDataTable = MyDataset.Tables("table_salaire") 
RowNumber = MyDataTable.Rows.Count
If MyDataTable.Rows.Count > 0 Then
RowNumber = 0
While RowNumber <= MyDataTable.Rows.Count - 1 
     MyDataRow = MyDataset.Tables("table_salaire").Rows(RowNumber)
  If MyDataRow("sal1") = sal1.Text Then
       MyDataRow("sal1") = nouveau_sal.Text 
       MyCommandBuilder = New SqlCommandBuilder(MyDataAdapter)   
       MyDataAdapter.Update(MyDataset, "table_salaire") 
       Exit While
    End If
   RowNumber = RowNumber + 1
End While
Else
  MessageBox.Show("pas de résultat pour les données", "Infos", _
  MessageBoxButtons.OK, MessageBoxIcon.Information)
Exit Sub
End If
Catch ex As Exception
  MessageBox.Show(ex.Message)
Finally
If Not (Myconnexion Is Nothing) Then Myconnexion.Close()
End Try

[Graffito]

A priori, le problème vient du fait que la SelectCommand utilisée par le Fill() n'intègre pas la clé primaire de la table (seulement le champ "sal1)".

Sinon, que contient MyAdapter.UpdateCommandt.CommandText après l'instruction "MyCommandBuilder = New SqlCommandBuilder(MyDataAdapter)" ?

[DEV-10]

A priori, le problème vient du fait que la SelectCommand utilisée par le Fill() n'intègre pas la clé primaire de la table (seulement le champ "sal1)".

Sinon, que contient MyAdapter.UpdateCommandt.CommandText après l'instruction "MyCommandBuilder = New SqlCommandBuilder(MyDataAdapter)" ?

J'ai rajouté la clé primaire "matricule" sans la manipuler dans le select comme suit mais ca donne la même chose.

Code sql :

Code :

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

strSql = "SELECT sal1, matricule FROM table_salaire"

Lorsque j'essaye d'afficher la valeur de MyAdapter.UpdateCommandt.CommandText après l'instruction "MyCommandBuilder = New SqlCommandBuilder(MyDataAdapter)" ca me donne l'erreur suivante :

Object reference not set to an instance of an object

[DEV-10]

J'ai rajouté

Code :

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

1
2
 
MyDataRow.BeginEdit()

et

Code :

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

1
2
 
MyDataRow.EndEdit()

comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
While RowNumber <= MyDataTable.Rows.Count - 1 
     MyDataRow = MyDataset.Tables("table_salaire").Rows(RowNumber)
 If MyDataRow("sal1") = sal1.Text Then
       MyDataRow.BeginEdit()
       MyDataRow("sal1") = nouveau_sal.Text 
       MyCommandBuilder = New SqlCommandBuilder(MyDataAdapter)   
       MyDataAdapter.Update(MyDataset, "table_salaire")
       MyDataRow.EndEdit()
    Exit While
    End If
  RowNumber = RowNumber + 1
End While

Maintenant il n'y a pas d'exception de levée, mais lorsque je vérifie la table sql, la nouvelle valeure n'a pas été mise à jour.

Pouvez-vous vérifier mon code et voir s'il manque quelque choses ?

j'ai vu des gens rajouter le bloc

Code :

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

1
2
3
4
MyDataset.Clear()
MyDataAdapter.Fill(MyDataset, "table_salaire")
MyDataTable = MyDataset.Tables("table_salaire")

est-il vraiment nécessaire de vider le dataset et le remplir de nouveau ?

[Graffito]

Si MyAdapter.UpdateCommand n'est pas initialisée par le commandBuilder, impossible de faire un Update.
En ce qui me concerne, j'utilise une bibliothèques de fonctions qui se substituent au CommandBuilder. Donc, je ne sais pas vraiment comment il synchronise la SelectCommand et l'Update Command qui sont nécessairement liées.

sinon le code devrait être réarrangé ainsi (sans beginedit/endedit):

Code :

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

1
2
3
4
5
6
7
8
9
10
 
While RowNumber <= MyDataTable.Rows.Count - 1 
     MyDataRow = MyDataset.Tables("table_salaire").Rows(RowNumber)
If MyDataRow("sal1") = sal1.Text Then MyDataRow("sal1") = nouveau_sal.Text 
    Exit While
    End If
  RowNumber = RowNumber + 1
End While
MyDataAdapter.Update(MyDataset, "table_salaire") ;
MyDataset.Tables("table_salaire").AcceptChanges() ;

[DEV-10]

Si MyAdapter.UpdateCommand n'est pas initialisée par le commandBuilder, impossible de faire un Update.
En ce qui me concerne, j'utilise une bibliothèques de fonctions qui se substituent au CommandBuilder. Donc, je ne sais pas vraiment comment il synchronise la SelectCommand et l'Update Command qui sont nécessairement liées.

comment faire pour initialiser le MyAdapter.UpdateCommand par le commandBuilder ?

Si c'est pas une propriété privé, j'aimerais bien bénéficier de cette bibliothéque

Est-ce la meilleur méthode que je suis en train d'utiliser ? je me pose la question car je trouve que c'est un peu compliqué pour changer une valeur d'un champ. l'appel à une procédure stockée qui fait ce changement avec un énonçé update serait plus simple il me semble.

sinon le code devrait être réarrangé ainsi (sans beginedit/endedit):

Code :

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

1
2
3
4
5
6
7
8
9
10
 
While RowNumber <= MyDataTable.Rows.Count - 1 
     MyDataRow = MyDataset.Tables("table_salaire").Rows(RowNumber)
If MyDataRow("sal1") = sal1.Text Then MyDataRow("sal1") = nouveau_sal.Text 
    Exit While
    End If
  RowNumber = RowNumber + 1
End While
MyDataAdapter.Update(MyDataset, "table_salaire") ;
MyDataset.Tables("table_salaire").AcceptChanges() ;

J'ai ajusté le code comme tu le mentionne ci-haut et je recois l'erreur suivante :

Update requires a valid UpdateCommand when passed DataRow collection with modified rows.

[Graffito]

Si c'est pas une propriété privé, j'aimerais bien bénéficier de cette bibliothéque

Désolé, mais c'est développé dans ma boite, pas documenté et cette classe d'accès aux bases de données demande de nombreuses autres classes propriétaires.

J'ai ajusté le code comme tu le mentionne ci-haut et je recois l'erreur suivante :
Update requires a valid UpdateCommand when passed DataRow collection with modified rows.

Il semblerait donc bien que le CommmandBuilder n'initialise pas la command Update , du fait que tu utilises une classe générique qui ne peut initialiser les UpdateCommand.

Suivant la base de donnée, utiliser :
- OleDbDataAdeptter et OleDbCommand pour Access,
- OracleDbCommmand et OracleDb adapter pour Oracle,
- MySqlDbDataAdeptter et MySqlDbCommand pour MySql,
- ...