Discussion :

[angelric]

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 :

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
        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

[HULK]

et c'est quoi le message d'erreur ???

[HULK]

sinon tu peux faire ca directement il me semble :

Code :

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

1
2
 
objDataSet.Tables("T_OAP").Rows(0)("DIFFUSION") = 1