Modification Sql En Vbnet
Bonjours a tous
Petite precision : je suis debutant sur SQL
Voilà mon probleme
je n'arrive pas a modifier un champ sur une table T_OAP
Nom du champ DIFFUSION
Voici mon code
Code:
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
|
Dim objCommand As SqlClient.SqlCommand
Dim objDataAdapter As SqlClient.SqlDataAdapter
Dim objDataSet As New DataSet
Dim objDataTable As DataTable
Dim objDataRow As DataRow
Dim objCommandBuilder As SqlClient.SqlCommandBuilder
objCommand = New SqlClient.SqlCommand("SELECT T_OAP.* FROM T_OAP")
objDataAdapter = New SqlClient.SqlDataAdapter(objCommand)
objCommand.Connection() = maConnexionSQL
objDataAdapter.Fill(objDataSet, "T_OAP")
objDataTable = objDataSet.Tables("T_OAP")
' Extraire l'enregistrement courant
' RowNumber
objDataRow = objDataSet.Tables("T_OAP").Rows(0)
'Modifier les valeurs des champs en récupérant le contenu des TextBox
objDataRow("DIFFUSION") = 1
'Pour modifier les valeurs changées dans le DataAdapter
'objCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
objCommandBuilder = New SqlClient.SqlCommandBuilder(objDataAdapter)
'Mise à jour
objDataAdapter.Update(objDataSet, "T_OAP")
'On vide le DataSet et on le 'recharge' de nouveau.
objDataSet.Clear()
objDataAdapter.Fill(objDataSet, "T_OAP")
objDataTable = objDataSet.Tables("T_OAP") |
______________
j'ai une erreur sur objDataRow = objDataSet.Tables("T_OAP").Rows(0)
et j'aimerai bien qu'on m'explique ce que j'ai loupé ?
D'avance merci ...
Balises ajoutées par Magnus. Merci d'y penser à l'avenir :wink:
