[Résolu][Base] importation fichier et gestion des doublons

[Eric_03]

Bonjour,

Ce post fait suite à celui ci: https://forum.openoffice.org/fr/forum/v ... =8&t=57199

Les fichiers que je dois importer dans ma base conserve souvent des demandes déjà intégrées. En effet seules les demandes traitées dans l'application gros système disparaissent du fichier récupéré hebdomadairement. Cette Base Libre office me permet de gérer les différentes demandes de manière extra comptable (courriers, demande de renseignements qui ne sont pas gérer par le gros système)

Ma question concerne donc la façon de gérer les doublons.

Après plusieurs recherches deux grandes manières de résoudre les problèmes apparaissent:

https://forum.openoffice.org/fr/forum/v ... =9&t=31329

h**p://sql.sh/138-methode-supprimer-doublons

h**p://sqlpro.developpez.com/cours/doublons/#L3

I Au moment de l'importation

création d'une boucle qui permet de vérifier si la ligne importée n'existe pas déjà dans la base

II Ou après l'importation

Dans ce cas la suppression de la clé primaire me semble nécessaire. Grace à cette suppression je pourrai importer tous les enregistrements et traiter les doublons comme suggérés sur les divers sites.

Ou bien je crée une table temporaire qui viendra ensuite enrichir une autre table.

Il me semble que la meilleure approche est celle qui s'effectue au moment de l'importation.

Qu'en pensez vous?

J'ai testé cela mais sans succès:

Code : Tout sélectionner

	if ("SELECT *"" FROM ""t_europa"" WHERE EXISTS ""Demande"" =" & a(3)) then
	
	else
		u = ubound(lines)+1
		redim preserve lines(u)
		lines(u) = "INSERT INTO ""t_europa"" VALUES ('" & join(a(), "','") & "')"
	end if 

Merci
Eric

[Piaf]

Bonjour
Je pense que le plus simple serait d'importer les nouvelles données dans une table dédiée, table à vider après l'ajout des données supplémentaire dans la table des données.
Quelque chose du genre

Code : Tout sélectionner

Sub MAJ
Dim maConnexion as Object, statement as Object
Dim a(11) as String, strSQL as String
	maConnexion = thisDatabaseDocument.CurrentController.ActiveConnection
	a(0) = """Dossier"""
	a(1) = """Redevable"""
	a(2) = """Siren"""
	a(3) = """Demande"""
	a(4) = """PR"""
	a(5) = """Periode"""
	a(6) = """Montant"""
	a(7) = """ICR"""
	a(8) = """DEL"""
	a(9) = """Circuit"""
	a(10) = """DEP"""
	a(11) = """Date"""
	strSQL = "INSERT INTO ""Table des données"" SELECT " & join(a(), ",") & _
 "  FROM ""Table d'importation"" WHERE NOT ""Table d'importation"".""Demande"" IN ( SELECT ""Table des données"".""Demande"" FROM ""Table des données"" )	
	statement = maConnexion.createStatement()
	statement.execute(strSQL)
End Sub

En reprenant le codage d'Hubert Lambert .
A+

[Eric_03]

Merci

Je teste et vous fais un retour

Fonctionne parfaitement
Cordialement
Eric