Discussion :

[atk_49]

Bonjour,

Je souhaite supprimer de la table GPMOURES, les valeurs du champ MV_ORI n'apparaissant pas dans le champ OF_CODE de la table GPOF.

La requête SELECT ci-dessous 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
Sub TEST_1()
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
cnx.ConnectionString = "Provider=vfpoledb;Data Source=C:\Fichiers\;Extended Properties=dBASE IV;"
cnx.Open
 
rst.Open "SELECT * FROM GPMOURES INNER JOIN GPOF ON GPOF.OF_CODE <> GPMOURES.MV_ORI", cnx
 
With ThisWorkbook.Sheets("Feuil3")
    .Range("A:Z").ClearContents
    .Range("A1").CopyFromRecordset rst
End With
 
rst.Close
cnx.Close
End Sub

... mais cette requête DELETE m'indique : "Syntax error".

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
Sub TEST_2()
Dim cnx As ADODB.Connection
Dim cmd As New ADODB.Command
Set cnx = New ADODB.Connection
Set cmd = New ADODB.Command
 
cnx.ConnectionString = "Provider=vfpoledb;Data Source=C:\Fichiers\;Extended Properties=dBASE IV;"
cnx.Open
 
Set cmd.ActiveConnection = cnx
cmd.CommandText = "DELETE FROM GPMOURES INNER JOIN GPOF ON GPOF.OF_CODE <> GPMOURES.MV_ORI"
cmd.Execute
 
cnx.Close
 
Set cnx = Nothing
Set cmd = Nothing
End Sub

Merci d'avance pour votre aide et bonne journée.

[Thumb down]

Code :

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

1
2
cmd.CommandText="DELETE FROM GPMOURES left JOIN GPOF ON GPOF.OF_CODE=GPMOURES.MV_ORI where GPOF.OF_CODE IS null"
cmd.Execute

[atk_49]

Bonjour Thumb down,

Merci pour ta proposition mais j'ai toujours une erreur de syntaxe avec DELETE (pas avec SELECT).

Cette condition est bien meilleure

Code :

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

where GPOF.OF_CODE IS null

[atk_49]

En essayant au hasard j'ai finis par trouver :

Code :

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

"DELETE GPMOURES FROM GPMOURES LEFT JOIN GPOF ON GPOF.OF_CODE = GPMOURES.MV_ORI WHERE GPOF.OF_CODE IS NULL"

Il manquait GPMOURES entre DELETE et FROM.

Un grand merci

[Thumb down]

En essayant au hasard j'ai finis par trouver :

Code :

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

"DELETE GPMOURES FROM GPMOURES LEFT JOIN GPOF ON GPOF.OF_CODE = GPMOURES.MV_ORI WHERE GPOF.OF_CODE IS NULL"

Il manquait GPMOURES entre DELETE et FROM.

Un grand merci

Oui désolé j'ai pas percuté !