supprimer un enregistrement vide dans une table oracle

Version imprimable

Bonjour,
j'utilise le code suivant pour insérer des données lues dans un fichier texte dans une table oracle.
Les champs de la table compose la clé primaire et quand je rencontre une ligne double dans mon fichier j'insère une ligne vide sans insérer de données ce qui fait qu'après j'arrive plus à insérer parceque ne pouvant pas réinsérer une ligne vide à cause de la clé.
Et dans mon code je suis obligé d'insérer une ligne vide avant d'inséer des données.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Try with Form1.ADOTable1 Do begin // on insère un enregistrement vide Append; // qu'on remplit... FieldValues['ch1'] := 'val1'; FieldValues['ch2'] := 'val2'; FieldValues['ch3'] := 'val3'; Post; end; nb_trait := nb_trait + 1; Except nb_doubl := nb_doubl + 1; End;
Donc j'ai pensé à supprimer la ligne courante à chaque fois que je suis au niveau de "l'exception" ce qui me permettrait d'insérer une ligne vide à la prochaine itération.
j'ai pensé à delete ou ExecSQL mais je ne vois pas comment l'uiliser .
Si quelqu'un a une idée.

07/09/2004, 13h07
Giovanny Temgoua

Re: supprimer un enregistrement vide dans une table oracle
Citation:

Envoyé par shurized

Les champs de la table compose la clé primaire et quand je rencontre une ligne double dans mon fichier j'insère une ligne vide sans insérer de données ce qui fait qu'après j'arrive plus à insérer parceque ne pouvant pas réinsérer une ligne vide à cause de la clé.

Je ne pense pas que ce soit une bonne idée de prendre tous la combinaison de tous les champs comme clé primaire. Un index auto-incrémenté aurait pu t'épargner tous cà...

Sinon, tu peux utiliser une requête simple pour effacer les champs vides avant de poster un nouvel enregistrement.
Code:

1 2 Delete From NomTable Where ch1=''
Un cours de SQL interessant en ligne:
:arrow: http://sqlpro.developpez.com/

A+
07/09/2004, 13h21
shurized

un index auto incrémenté n'empêcherait pas l'insertion de double au niveau de ma table , ce que je veux éviter.

sinon j'ai essayé la requête de suppression et elle ne marche pas il ya erreur à l'exécution.

Code:

Opérateur ou poitn virgule manquant

[/[/list]
07/09/2004, 13h28
Giovanny Temgoua

Citation:

Envoyé par shurized

Code:

Opérateur ou poitn virgule manquant

Ajoute le point virgule à la fin de la ligne :roll:

Code:

Delete From NomTable Where ch1='';

Bien sûr, tu remplaces NomTable par le nom de ta table!

De plus vérifie toujours tes balises CODE!

A+
07/09/2004, 13h33
shurized

évidemment j'ai mis ';' à la fin de la ligne .
et puis c'est la moindre des choses que de remplacer "Nomtable" par la vraie table.

ou est ce que je devrai placer la requête SQL par rapport au code que j'ai donné dans mon premier message.
07/09/2004, 13h40
Giovanny Temgoua

Essaie avant le Append.
Tu supprimeras la ligne vide, ensuite tu crées le nouvel enregistrement que tu remplis avec les valeurs...

C'est ça que j'ai fait voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Try
                     with Form1.ADOTable1 Do
                      begin
                        Delete from le_nom_de_ma_table where ch1=' ';
                        // on insère un enregistrement vide
                        Append;
                        // qu'on remplit...
                        FieldValues['ch1'] := 'val1';
                        FieldValues['ch2'] := 'val2';
                        FieldValues['ch3'] := 'val3';
                        Post;
                      end;
                      nb_trait := nb_trait + 1;
                   Except
                         nb_doubl := nb_doubl + 1;
                   End;

mais ça ne marche pas

07/09/2004, 13h57
Giovanny Temgoua

Lorsque tu insères des lignes vides, tu le fais en remplissant chaque cellule par un espace ou par rien du tout ?

Ne t'est-il pas possible d'éviter la "technique des lignes vides" en n'insérant rien du tout ? S'il y'a violation de clé, tu n'insères rien du tout et non une ligne vide
07/09/2004, 14h00
shurized

C'est l' Append qui insère une ligne vide et après si je n'arrive pas à insérer les données à cuase de la clé j'ai une ligne vide dans ma table.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
               Try 
                    with Form1.ADOTable1 Do 
                      begin 
                        // on insère un enregistrement vide 
                        Append; 
                        // qu'on remplit... 
                        FieldValues['ch1'] := 'val1'; 
                        FieldValues['ch2'] := 'val2'; 
                        FieldValues['ch3'] := 'val3'; 
                        Post; 
                      end; 
                      nb_trait := nb_trait + 1; 
                   Except 
                        Delete; 
                        nb_doubl := nb_doubl + 1; 
                   End;

J'ai déjà fait çà et il y a eu erreur
ensuite j'ais essayer le code suivant qui ne génère pas d'erreur mais il ne règle pas mon problème.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 Try 
                    with Form1.ADOTable1 Do 
                      begin 
                        // on insère un enregistrement vide 
                        Append; 
                        // qu'on remplit... 
                        FieldValues['ch1'] := 'val1'; 
                        FieldValues['ch2'] := 'val2'; 
                        FieldValues['ch3'] := 'val3'; 
                        If FieldValues['ch1']=' ' Then
                          Delete;
                        Post; 
                      end; 
                      nb_trait := nb_trait + 1; 
                   Except 
                        nb_doubl := nb_doubl + 1; 
                   End;

je vais essayer de réfléchir merci quand même.

J'ai mis le code suivant et çà marche.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
                      with Form1.ADOTable1 Do
                      begin
                         Try
                           // on insère un enregistrement vide
                          Append;
                          // qu'on remplit...
                          FieldValues['ch1'] := 'val1';
                          FieldValues['ch2'] := 'val2';
                          FieldValues['ch3'] := 'val3';
                          Post; 
                          nb_trait := nb_trait + 1;
                         Except
                          delete;
                          nb_doubl := nb_doubl + 1;
                         End;
                      end;

la différence avec le code précédent est que la Try ..Except..End; est à l'intérieur du "with Form1.ADOTable1 Do".

merci Kim Kaiser