Discussion :

[petit rabot]

Bonjour, je galère depuis un petit bout de temps sur quelques lignes de code sans trouver de réponse. Sur un UPDATE de ma base de données, je me retrouve avec "run time error '3001': Les arguments sont de type incorrect, en dehors de limites autorisées ou en conflit les uns avec les autres."

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
 
    If modif = True Then
        'création de la requète pour mise à jour de la base de données machine
        Set rst = New ADODB.Recordset
            stSQL = "UPDATE BaseDMO SET [NoteInter]=" & "'" & Text1.Text & "'" & "" _
                & " WHERE [NumClient]= " & "'" & NumClient & "'" & "AND [DateInter]= " & "'" & Replace(Combo1.Text, "'", "''") & "'"
        Debug.Print stSQL
        'exécution de la requète
        rst.Open stSQL, Cnx
 
        modif = False
        CommandButton3.BackColor = &HFFFFFF
        CommandButton3.Caption = "Modifier"
        Label3.Caption = Text1.Text
        Text1.Visible = False
    End If

J'ai donc une table BaseDMO avec les champs NoteInter, NumClient et DateInter et l'exécution s'arrête toujours sur la ligne rst.Open stSQL, Cnx
et lorsque je regarde en mode Debug, les variables sont bien lu, les champs sont bon...

Merci d'avance pour votre aide.
Guillaume

[pc75]

Bonjour,

Les champs de ta table sont d quel type ?

[petit rabot]

Les champs de ta table sont d quel type ?

NoteInter est de type Mémo, et tous les autres sont de type Texte.

[pc75]

Et que donne le résultat de :

Code :

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

1
2
 
Debug.Print stSQL

[petit rabot]

Code :

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

1
2
 
Debug.Print stSQL

Résultat: "UPDATE BaseDMO SET [NoteInter]='Je viens de faire une intervention chez ce client.' WHERE [NumClient]= 'fef153'AND [DateInter]= '17/02/2015'"

[pc75]

Dans le where, il te manque un espace avant le "AND [DateInter]= '17/02/2015'"
Le champ "DateInter" est de quel type ?
C'est une base Acess ?

[petit rabot]

Dans le where, il te manque un espace avant le "AND [DateInter]= '17/02/2015'"
Le champ "DateInter" est de quel type ?
C'est une base Acess ?

Je viens de réessayer avec un espace avant le "AND [DateInter]= '17/02/2015'" , j'ai vérifier en debug, et il y a bien un espace dans le résultat, mais j'ai toujours la même erreur.
C'est effectivement une base Access et le champ "DateInter" est de type Texte.

[pc75]

A quoi ressemble l'enregistrement dans ta base de données qui correspond à [NumClient]= 'fef153' AND [DateInter]= '17/02/2015' ?

[petit rabot]

Voici une partie de ma table, je ne sais pas si c'est ce que tu voulais exactement.
En fait, j'arrive bien à enregistrer ce que je veux dans chaque champs de ma table, mais lorsque je veux faire une modification avec un Update, c'est à ce moment que j'ai le message d'erreur. J'ai même essayé de ne rien mettre, de mettre juste quelques lettres, mais toujours pareil.

[pc75]

Alors là !!!

Si tu fais ça, ça passe ?

Code :

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

1
2
 
select BaseDMO.* from BaseDMO where [NumClient]= 'fef153' AND [DateInter]= '17/02/2015'

[petit rabot]

Code :

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

1
2
 
select BaseDMO.* from BaseDMO where [NumClient]= 'fef153' AND [DateInter]= '17/02/2015'

Si j'écris cette ligne, j'ai une erreur "Compil error: expected: case", de plus, tu n'as pas mis le champs NoteInter

[pc75]

J'ai une réunion dans 2mn. On pourra reprendre demain si tu n'as pas résolu le problème.

ps : Tu exécutes le "select" sous access ou depuis VB ?

[petit rabot]

J'ai une réunion dans 2mn. On pourra reprendre demain si tu n'as pas résolu le problème.

ps : Tu exécutes le "select" sous access ou depuis VB ?

Ok, pas de problème, je dois partir moi aussi. Tout le code s'exécute depuis VB6, access ne me sert que de base de données.
Bonne soirée et à demain.
Merci encore pour ton aide.

[ProgElecT]

Salut

De tête il me semble que

Code :

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

1
2
Set rst = Cnx.Execute(stSQL , , adCmdText)
rst.Close

[petit rabot]

Suite à la réponse de ProgElect, voici un bout de code qui fonctionne

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
    'création de la connexion
        Set Cnx = New ADODB.Connection
    'définition de la chaine de connextion
        Cnx.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\DMObd.mdb;" & "Jet OLEDB:Database Password=" & MDP & ";"
    'ouvre la base de données
        Cnx.Open
 
    If modif = True Then
        'création de la requète pour mise à jour de la base de données machine
        Set rst = New ADODB.Recordset
            stSQL = "UPDATE BaseDMO SET [NoteInter]=" & "'" & Text1.Text & "'" & "" _
                & " WHERE [NumClient]= " & "'" & NumClient & "'" & " AND [DateInter]= " & "'" & Replace(Combo1.Text, "'", "''") & "'"
        Debug.Print stSQL
        'exécution de la requète
        Set rst = Cnx.Execute(stSQL, , adCmdText)
        modif = False
        CommandButton3.BackColor = &HFFFFFF
        CommandButton3.Caption = "Modifier"
        Label3.Caption = Text1.Text
        Text1.Visible = False
    End If

Merci à pc75 et ProgElect