Discussion :

[Nico02]

Bonjour à tous

Je me tourne vers vous car j'ai un soucis avec une requête et je n'arrive pas à voir d’où ça viens.

J'utilise le code suivant pour faire un UPDATE de ma ligne

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
22
23
-- #################################### updateBlob ####################################
	PROCEDURE updateBlob( tablename varchar2,abbreviation varchar2,sequenceKey number,dataKey number,clobname varchar2,name varchar2,descr varchar2,fileType varchar2,category varchar2,data BLOB, url varchar2, print number )
	is
		sqlStatement  VARCHAR2(2000);
	BEGIN			
 
		sqlStatement := 'UPDATE ' || tablename || ' SET ';
 
		sqlStatement := sqlStatement || abbreviation || '_' || tablename || '_PK =' || dataKey || ',';
		sqlStatement := sqlStatement || abbreviation || '_CLOB_NAME = ' || clobname || ',';
		sqlStatement := sqlStatement || abbreviation || '_NAME = ' || name || ',';		
		sqlStatement := sqlStatement || abbreviation || '_DESCRIPTION = ' || descr || ',';	
		sqlStatement := sqlStatement || abbreviation || '_BLOB = :blob' || ',';
		sqlStatement := sqlStatement || abbreviation || '_URL = ' || url || ',';
		sqlStatement := sqlStatement || abbreviation || '_PRINTABLE = ' || print || ',';
		sqlStatement := sqlStatement || abbreviation || '_FILE_TYPE ='  || fileType || ',';
		sqlStatement := sqlStatement || abbreviation || '_CATEGORY = ' || category;
 
		sqlStatement := sqlStatement || ' WHERE ' || 'PK_' || tablename || '_BLOB = ' || sequenceKey;
 
		EXECUTE IMMEDIATE sqlStatement using data;
 
	END updateBlob;

Lorsque que je crée le package dans lequel se trouve cette procédure tout va bien. Par contre à l'exécution tout va mal !
j'ai l'erreur suivante

Code :

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

1
2
3
(oracle.jbo.JboException) JBO-29000: ORA-00933: la commande SQL ne se termine pas correctement
ORA-06512: à "CW755.PACK_BLOB", ligne 435
ORA-06512: à ligne 1

Je sais que le champ BLOB met le bazar, j'ai donc essayé de tourner cette requête dans tous les sens mais rien n'y fait !
Je ne sais pas(plus) trop quoi en penser..

Si vous avez des idées, merci d'avance

[mnitu]

Pour le debug affichez votre requête via dbms_output, ça vous permet de comprendre les erreurs à l'exécution de la requête.

Code :

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

1
2
3
4
5
6
7
8
9
 
SQL> begin
  2   updateBlob('tablename','abbreviation',1,1,'clobname','name','descr','fileType','category',null, 'url',0);
  3  end;
  4  /
 
UPDATE tablename SET abbreviation_tablename_PK =1,abbreviation_CLOB_NAME = clobname,abbreviation_NAME = name,abbreviation_DESCRIPTION = descr,abbreviation_BLOB = :blob,abbreviation_URL = url,abbreviation_PRINTABLE = 0,abbreviation_FILE_TYPE =fileType,abbreviation_CATEGORY = category WHERE PK_tablename_BLOB = 1
 
PL/SQL procedure successfully completed

[Nico02]

Effectivement j'ai oublié de doubler les quotes pour les chaines de caractères dans la construction..

Voici la procédure finale si ça peut aider.

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
 -- #################################### updateBlob ####################################
	PROCEDURE updateBlob( tablename varchar2,abbreviation varchar2,sequenceKey number,dataKey number,clobname varchar2,name varchar2,descr varchar2,fileType varchar2,category varchar2,blobData BLOB, url varchar2, print number )
	IS
		sqlStatement  VARCHAR2(2000) := NULL;
 
		PROCEDURE concatQuery( query IN OUT VARCHAR2, colBaseName VARCHAR2, colValue VARCHAR2, quote INTEGER )
		IS
			separator CHAR;
		BEGIN
			IF colValue IS NOT NULL THEN
				IF query IS NOT NULL THEN
					query := query || ', ';
				END IF;
 
				IF quote = 0 THEN
					separator := '';
				ELSE
					separator := '''';
				END IF;
 
				query := query || abbreviation || '_' || colBaseName || ' = ' || separator || REPLACE( colValue, '''', '''''' ) || separator;
			END IF;
		END concatQuery;
	BEGIN			
		concatQuery( sqlStatement, tablename || '_PK', dataKey, 0 );
		concatQuery( sqlStatement, 'CLOB_NAME', clobname, 1 );
		concatQuery( sqlStatement, 'NAME', name, 1 );		
		concatQuery( sqlStatement, 'DESCRIPTION', descr, 1 );	
		concatQuery( sqlStatement, 'BLOB', ':blob', 0 );
		concatQuery( sqlStatement, 'URL', url, 1 );
		concatQuery( sqlStatement, 'PRINTABLE',print, 0 );
		concatQuery( sqlStatement, 'FILE_TYPE', fileType, 1 );
		concatQuery( sqlStatement, 'CATEGORY', category, 1 );
 
		sqlStatement := 'UPDATE ' || tablename || '_BLOB SET ' || sqlStatement || ' WHERE ' || 'PK_' || tablename || '_BLOB = ' || sequenceKey;
 
		EXECUTE IMMEDIATE sqlStatement USING blobData;		
	END updateBlob;