Discussion :

[Yepazix]

Hello,

Je n'arrive pas à définir comment procéder pour faire ce que je veux.
Je m'explique.
D'un côté j'ai fait un bout de code qui scanne des répertoires donnés.
Ce bout de code place successivement dans un Edit le nom des fichiers qui sont dans le répertoire.
De l'autre côté j'ai une base de données ACCES et je voudrais écrire dans cette base de données ces fichiers chaque nom de fichier correspondant à un enregistrement.
Jusque la rien de bien compliquer.

MAIS

Je suis succeptible de rescanner les mêmes répertoires plus tard et je ne voudrais pas rajouter les même fichiers chaque fois que je rescanne un répertoire.

Bon chui pas clair, donc exemple :

J'ai un répertoire qu'on va appelé Music.
dedans il y a pop.wav, swing.wa, rock.waw, blues.wav !

Mon programme scanne ce dossier et ma base de donnée comporter donc les enregistrements :
pop.wav
swing.wav
rock.wav
blues.wav

Le lendemain je rajoute le fichier jazz.wav

Je demande a nouveau a mon programme de scanner le dossier music et la ma base de données ressemble à ceci :
pop.wav
swing.wav
rock.wav
blues.wavpop.wav
swing.wav
rock.wav
blues.wav
jazz.wav

C'est pas du tout ce que je veux, je veux qu'elle ressemble a
pop.wav
swing.wav
rock.wav
blues.wav
jazz.wav

Seul le fichier jazz.wav est ajouté !

Bon alors voila chez pas si chui compréhensible, j'espère...

Si quelqu'un a une suggestion.

[anapurna]

salut


au moment de l'insertion il faut que tu verifie que le nom n'existe pas

soit tu fait une premiere query ou tu verifie que le nom n'est deja pas dedans

la requette

Code :

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

select nom from matable where nom =:vnom

le code de test

Code :

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

1
2
3
4
5
6
7
8
 
Query.close
Query.Params[0].asString := monnom;
Query.open 
if  Query.isEmpty then 
begin
   Addnom(monnom);
end;

@+ Phil

[Yepazix]

Super !
C'est finalement super simple.
Pourquoi je me cassais la tête .
Par contre j'ai encore un souci avec le code.
Je l'ai un peu modifié comme ceci :

procedure TForm3.Button1Click(Sender: TObject);
begin
ADOQuery1.close;
ADOquery1.SQL.text:='select fichier from Table1';
ADOQuery1.Parameters[0].AsString:=(form2.edit1.text);
ADOQuery1.open;
ADOConnection1.Connected:=TRUE;
ADOQuery1.Active:=TRUE;
if ADOQuery1.isEmpty then
begin
Add nom(form2.edit1.text);
end;

end;

Mais j'ai deux messages d'erreur !

[DCC Erreur] Unit3.pas(36): E2003 Identificateur non déclaré : 'AsString'
[DCC Erreur] Unit3.pas(42): E2003 Identificateur non déclaré : 'Add'

Je comprends pas pourquoi.
Je suis bien obligé de mettre le .AsString puisque dans mon edit c'est du Caption le parameter du Query il en voudra pas comme ça!
Mais pour ça j'ai une solution je crois.

Par contre Add je pige pas !

[Yepazix]

J'ai laissé tomber la méthode ADD.

Mais en tout cas merci tu m'as vriament aidé.

A+