Discussion :

[paspillon]

Bonjour,

Je suis bloqué. Je n'arrive pas à mettre une donnée dans l'enregistrement sélectionné. Dans le code qui suit, il me met des 1 dans le champ "champ1" de tous les enregistrements.
Mon but est qu'il le mette uniquement dans l'enregistrement sélectionné selon la condition du champ2.

Merci de votre aide.

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
45
46
' Dimension
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
 
'Option Base 0
Option Explicit
 
Sub Main1()
If DBConnection(True) = True Then
    Set rs = New ADODB.Recordset
    If (rs.State = 1) Then rs.Close
    rs.Open "SELECT champ1 " & _
            "FROM table1 " & _
            "WHERE champ2 = 'Paris' " & _
            "", cn, adOpenKeyset, adLockOptimistic, adCmdText
    rs.Fields("champ1").Value = "1"
    rs.Update
End If
If (rs.State = 1) Then rs.Close
Set rs = Nothing
 
Call DBConnection(False)
End Sub
 
Private Function DBConnection(ByVal bOpen As Boolean) As Boolean
Dim bResult As Boolean
On Error GoTo Connect_Error
bResult = False
If bOpen = True Then
        'Connexion
        Set cn = New ADODB.Connection
        cn.CursorLocation = adUseServer
        cn.Open ("DSN=ERP1")
        bResult = (cn.State = 1)
Else
        'Déconnexion
        If cn.State = 1 Then cn.Close
        Set cn = Nothing
        bResult = True
End If
DBConnection = bResult
Exit Function
Connect_Error:
    MsgBox "Erreur lors de la connexion à l'ERP.", vbCritical
    DBConnection = False
End Function

[pc75]

Bonjour,

Il ne te manquerait pas un espace à la fin de cette ligne ?

Code :

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

1
2
 
    rs.Open "SELECT champ1 " & _

et un guillemet sur cette ligne ?

Code :

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

1
2
"WHERE champ2 = 'Paris' " & _

[paspillon]

Oups oui,

En recopiant j'ai fait des fautes. J'ai remplacé mon code par des termes explicite.

Mais cela ne marche toujours pas.

[Invité]

Bonjour,
Difficile de te répondre car il y a beaucoup erreur dans ton code.
Déjà c’est bien de vérifier si un Recordset est ouvert mais après un Set rs = New ADODB.Recordset Il est toujours fermé.

Code :

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

1
2
Set rs = New ADODB.Recordset
    If (rs.State = 1) Then rs.Close

La requête

Code SQL :

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

1
2
3
4
"SELECT champ1" & _
            "FROM table1 " & _
            "WHERE champ2 = Paris' " & _
            ""

En réalité tu as écris :

Code SQL :

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

"SELECT champ1FROM table1 WHERE champ2 = Paris' "

et pas

Code SQL :

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

1
2
 
"SELECT champ1 FROM table1 WHERE champ2 = 'Paris' "

Code :

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

1
2
rs.Fields("champ1").Value = "1"
    rs.Update

Je suis surpris que ça fonctionne car ton Rs doit être à Nothing !!
Si non cette syntaxe fonctionne mais a mon avis pas avec la chaine SQL ;
Personnellement j’aurais choisi une requête de mise à jour :

Code :

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

cn.execute "update table1 set champ2="1" WHERE champ2 = 'Paris';"

[paspillon]

Merci rdurupt,

Ca marche. C'est éxactement ce que je voulais faire.

Voici le code final

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
' Dimension
Dim cn As ADODB.Connection
 
'Option Base 0
Option Explicit
 
Sub Main1()
If DBConnection(True) = True Then
    cn.Execute "update table1 set champ1='4' WHERE champ2 = 'Paris';"
End If
Call DBConnection(False)
End Sub
 
Private Function DBConnection(ByVal bOpen As Boolean) As Boolean
Dim bResult As Boolean
On Error GoTo Connect_Error
bResult = False
If bOpen = True Then
        'Connexion
        Set cn = New ADODB.Connection
        cn.CursorLocation = adUseServer
        cn.Open ("DSN=ERP1")
        bResult = (cn.State = 1)
Else
        'Déconnexion
        If cn.State = 1 Then cn.Close
        Set cn = Nothing
        bResult = True
End If
DBConnection = bResult
Exit Function
Connect_Error:
    MsgBox "Erreur lors de la connexion à l'ERP.", vbCritical
    DBConnection = False
End Function