[Delphi 2005/Oracle/ADO]Taille de champ incorrecte

**Frank** · 13/04/2005, 17h05

Bonjour,

après avoir retourné le problème dans tous les sens, je me tourne vers vous car je n'arrive à rien.

J'ai un composant adoquery qui execute un select sur une base Oracle.

dans le code je passe le paramêtre suivant:

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
procedure tfrmCDG.NPMR_Sales;
begin
  //définition de la chaine de connexion
  QryNPMR_Sales.Connection:=CnxCDG;
  QryNPMR_Sales.Close;
  //Création du datasource
  dsNPMR_Sales:=TDataSource.Create(self);
  dsNPMR_Sales.DataSet:=QryNPMR_Sales;
  //format du datetimepicker
  sMois:=formatdatetime('YYYYMM',DTCDG.date);
  //passage du paramêtre
  QryNPMR_Sales.Parameters.ParamValues['sMois']:=formatdatetime('YYYYMM',DTCDG.date);
  ShowMessage(QryNPMR_Sales.Parameters.paramvalues['sMois']);
  //ouverture de la requête
  QryNPMR_Sales.Open;
end;

La procédure enchaine sur une autre procédure qui gère la création d'un fichier excel et vous l'aurez deviné, l'export des données vers Excel.

Le problème, c'est que malgré le message, le plantage semble se situer dans l'execution de la requête.

Le paramêtre est déclaré dans le composant adoquery, et le type de données est ftstring.

La requête a été créee sous Toad et marche très bien.

**Rayek** · 14/04/2005, 08h21

L'erreur viens de :

Code :

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

QryNPMR_Sales.Parameters.ParamValues['sMois']:=formatdatetime('YYYYMM',DTCDG.date);

il faut ecrire :

Code :

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

1
2
 
QryNPMR_Sales.Parameters.ParamByName('sMois').Value := formatdatetime('YYYYMM',DTCDG.date);

**Frank** · 14/04/2005, 10h14

Bonjour et merci pour ta réponse.

Malheureusement, j'ai toujours le même message d'erreur.

**Rayek** · 14/04/2005, 10h26

Envoyé par Frank

Bonjour et merci pour ta réponse.

Malheureusement, j'ai toujours le même message d'erreur.

Fait voir la requete, et dit nous le texte exact qu'affiche le message d'erreur ^^

**Frank** · 14/04/2005, 12h34

Le code légèrement modifié par rapport à la version initiale:

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
procedure tfrmCDG.NPMR_Sales;
begin
  //définition de la chaine de connexion
  QryNPMR_Sales.Connection:=CnxCDG;
  QryNPMR_Sales.Close;
  //Création du datasource
  dsNPMR_Sales:=TDataSource.Create(self);
  dsNPMR_Sales.DataSet:=QryNPMR_Sales;
  //format du datetimepicker
  sMois:=formatdatetime('YYYYMM',DTCDG.date);
  //passage du paramêtre
  QryNPMR_Sales.Parameters.ParamByName('sMoisParam').value:=formatdatetime('YYYYMM',DTCDG.date);
  QryNPMR_Sales.Parameters.ParamByName('sMoisParam1').value:=formatdatetime('YYYYMM',DTCDG.date);
  QryNPMR_Sales.Parameters.ParamByName('sMoisParam2').value:=formatdatetime('YYYYMM',DTCDG.date);
  //ouverture de la requête
  QryNPMR_Sales.CommandTimeout:=600;
  QryNPMR_Sales.Open;
end;

La requête :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
select 'FR04514' FRS_Company_Code,
	   '' FRS_Subunit_Code,
	   '10' Period_Type,
	   to_char(odt.yshipdate,'YYYYMM') Period,
	   '500000' Account_Code,
	   prs.sku Local_Material_Number,	   
	   'PCE' Unit_of_measure,	    	   
	   sum(odt.qtyship) Quantity,
	   '' Net_Sales,
	   yt.ycodecli Sold_to_code,
	   yt.ycodecli Customer_number,
	   ps.name Customer_txt,
	   yt.yname Customer_txt_2,
	   decode(ps.pstype,1000,'4',2000,'5',null) Channel_Number,
	   sum(odt.ymontantfacttv) Gross_Sales,
	   yt.ycodecli Ship_to_code  
from meidbo.ps$m ps,
	 meidbo.ytit$m yt,
	 meidbo.od$m od, 
	 meidbo.oddt$m odt,
	 meidbo.pr$m pr,
	 meidbo.prsk$m prs	   
where ps.STATUS=1000 and
      yt.YTOVALIDATE=0 and
      yt.YSTATUS=1000 and
	  od.ypladistkey='001000A20' and
	  pr.yhistdata<>1 and    
	  od.ordertype not in (5000,6000,8000) and
	  od.yorigine in (500,1000,3000,4000)
	  and yt.mkey=ps.ytitkey(+)
	  and ps.mkey=od.pskey
	  and od.mkey=odt.odkey
	  and pr.mkey=odt.prkey
	  and pr.mkey=prs.prkey 	        
        and to_char(odt.yshipdate,'YYYYMM')=:sMoisParam
group by
	   'FR04514',
	   '',
	   '10',
	   to_char(odt.yshipdate,'YYYYMM'),
	   '500000',
	   prs.sku,
	   'PCE',
	   '',	    	   
	   yt.ycodecli,
	   yt.ycodecli,
	   ps.name,
	   yt.yname,
	   decode(ps.pstype,1000,'4',2000,'5',null),
	   yt.ycodecli  	   
union
select 'FR04514' FRS_Company_Code,
	   '' FRS_Subunit_Code,
	   '10' Period_Type,
	   to_char(odt.yshipdate,'YYYYMM') Period,
	   '500000' Account_Code,
	   prs.sku Local_Material_Number,
	   'PCE' Unit_of_measure,	    	   
	   sum(odt.qtyship) Quantity,
	   '' Net_Sales,
	   lpad(yg.ycodecli,10,0) Sold_to_code,
	   lpad(yg.ycodecli,10,0) Customer_number,
	   '' Customer_txt,
	   replace(yg.yname,'.','') Customer_txt_2,
	   '6' Channel_Number,
	   sum(odt.ymontantfacttv) Gross_Sales,
	   lpad(yg.ycodecli,10,0) Ship_to_code
from meidbo.ygro$m yg,
	 meidbo.od$m od, 
	 meidbo.oddt$m odt,
	 meidbo.pr$m pr,
	 meidbo.prsk$m prs	 	   
where yg.YSTATUS=1000 and
	  yg.ycategory=2000 and
	  pr.yhistdata<>1 and
	  od.ordertype not in (5000,6000,8000) and     
	  od.yorigine in (500,1000,4000) 
	  and yg.mkey=od.ygrokey
	  and od.mkey=odt.odkey
	  and pr.mkey=odt.prkey
	  and pr.mkey=prs.PRKEY	   	        
                 and to_char(odt.yshipdate,'YYYYMM')=:sMoisParam1
group by
	   'FR04514',
	   '',
	   '10',
	   to_char(odt.yshipdate,'YYYYMM'),
	   '500000',
	   prs.sku,
	   'PCE',
	   '', 	   
	   lpad(yg.ycodecli,10,0),
	   lpad(yg.ycodecli,10,0),
	   '',
	   yg.yname,	   
	   '6',
	   lpad(yg.ycodecli,10,0)  
union
select 'FR04514' FRS_Company_Code,
	   '' FRS_Subunit_Code,
	   '10' Period_Type,
	   to_char(odt.yshipdate,'YYYYMM') Period,
	   '500000' Account_Code,
	   prs.sku Local_Material_Number,
	   'PCE' Unit_of_measure,	    	   
	   sum(odt.qtyship) Quantity,
	   '' Net_Sales,
	   lpad(yp.ycodecli,10,0) Sold_to_code,
	   lpad(yp.ycodecli,10,0) Customer_number,
	   '' Customer_txt,
	   replace(yp.yname,'.','') Customer_txt_2,
	   '6' Channel_Number,
	   sum(odt.ymontantfacttv) Gross_Sales,
	   lpad(yp.ycodecli,10,0) Ship_to_code  
from meidbo.ypla$m yp,
	 meidbo.od$m od, 
	 meidbo.oddt$m odt,
	 meidbo.pr$m pr,
	 meidbo.prsk$m prs 	 	   
where yp.YSTATUS=1000 and
	  od.ypladistkey<>'001000A20' and	 
      od.ordertype not in (5000,6000,8000) and
	  od.yorigine in(500,1000,2000,5000) and
	  pr.yhistdata<>1 and	  
	  yp.mkey=od.ypladistkey and
	  od.mkey=odt.odkey
	  and pr.mkey=odt.prkey
	  and pr.mkey=prs.prkey	   	        
                 and to_char(odt.yshipdate,'YYYYMM')=:sMoisParam2
group by
	   'FR04514',
	   '',
	   '10',
	   to_char(odt.yshipdate,'YYYYMM'),
	   '500000',
	   prs.sku,
	   'PCE',
	   '',	    	   
	   lpad(yp.ycodecli,10,0),
	   lpad(yp.ycodecli,10,0),
	   yp.yname,
	   '',
	   '6',
	   lpad(yp.ycodecli,10,0)   
order by Customer_number;

Le message d'erreur:

Le projet XXX.exe a déclenché la classe d'exception EdatabaseError avec le message 'Taille de champ incorrecte'

Merci pour ton aide.

**PpPool** · 14/04/2005, 12h56

Bonjour,

J'ai parcouru très vite ta requete, je m'y replongerai si besoin -)

j'essaierai déjà de remplacer (surtout pour des pbs de perfs)

Code :

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

1
2
 
to_char(odt.yshipdate,'YYYYMM'))=:sMoisParam

par

Code :

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

1
2
 
odt.yshipdate = TO_DATE( :sMoisParam,'YYYYMM')

car : la fonction TO_CHAR va inhiber un index éventuel sur ta colonne (hormis si tu as un Index Base Function dessus)

sous SQL*Plus, ta requete passe sans pbs ?

Essaie aussi d'enlever tes alias de colonnes dans tes requetes UNION (sauf la première)

@

**Frank** · 14/04/2005, 13h42

Envoyé par PpPool

Bonjour,

J'ai parcouru très vite ta requete, je m'y replongerai si besoin -)

j'essaierai déjà de remplacer (surtout pour des pbs de perfs)

Code :

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

1
2
 
to_char(odt.yshipdate,'YYYYMM'))=:sMoisParam

par

Code :

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

1
2
 
odt.yshipdate = TO_DATE( :sMoisParam,'YYYYMM')

car : la fonction TO_CHAR va inhiber un index éventuel sur ta colonne (hormis si tu as un Index Base Function dessus)

sous SQL*Plus, ta requete passe sans pbs ?

Essaie aussi d'enlever tes alias de colonnes dans tes requetes UNION (sauf la première)

@

Interressant.
Je vais voir ça.
Sous Toad, la requête passe sans souci, même si elle est un peu longue étant donné le nombre de lignes ramenées, et sutout la taille des tables sollicitées par la requête.
Merci en tout cas pour tes propositons.

**Frank** · 14/04/2005, 13h54

Bon, toujours la même erreur...

Est ce que cela pourrait venir du fait que cela soit une requête union ?
de la volumétrie que cela représente ?

**Rayek** · 14/04/2005, 14h04

Envoyé par Frank

Bon, toujours la même erreur...

Est ce que cela pourrait venir du fait que cela soit une requête union ?
de la volumétrie que cela représente ?

Code :

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

1
2
3
4
5
6
7
8
9
 
Try
  QryNPMR_Sales.Open;
Except on E:Exception do
  begin
    Showmessage(E.message);
   QryNpMR_Sales.SQL.SavetoFile(ExtractFilePath(Application.exeName) + '\SQLSave.txt');
  end;
end;

Essaie comme ca.
Dans le fichier SQLSave.txt tu trouveras la requete avec le paramètre changer puis teste la directement dans ton SQL ORACLE.

**Frank** · 14/04/2005, 14h23

Envoyé par Malatar

Envoyé par Frank

Bon, toujours la même erreur...

Est ce que cela pourrait venir du fait que cela soit une requête union ?
de la volumétrie que cela représente ?

Code :

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

1
2
3
4
5
6
7
8
9
 
Try
  QryNPMR_Sales.Open;
Except on E:Exception do
  begin
    Showmessage(E.message);
   QryNpMR_Sales.SQL.SavetoFile(ExtractFilePath(Application.exeName) + '\SQLSave.txt');
  end;
end;

Essaie comme ca.
Dans le fichier SQLSave.txt tu trouveras la requete avec le paramètre changer puis teste la directement dans ton SQL ORACLE.

Testé avec SQLPlus, cette fois ci.
Et elle s'execute encore plus vite qu'avec Toad.
Alors, pourquoi pas sous Delphi....

**Rayek** · 14/04/2005, 14h55

Teste ta requete uniquement avec une des parties de ta requete union, puis rajoute petit a petit les unions, car autant le drivers a du mal à suivre.

**PpPool** · 14/04/2005, 15h15

quelle est la version de ton Oracle net client ?

vérifie les clauses SIZE de tes paramétres

**Frank** · 14/04/2005, 15h29

Envoyé par PpPool

quelle est la version de ton Oracle net client ?

La base est patchée en 9.0.2 mais je l'attaque via un DSN fait avec un driver 9.0.1.
Mais je ne sais pas si cela répond vraiment à ta question...

Envoyé par PpPool

vérifie les clauses SIZE de tes paramétres

Les size des paramêtres sont à 6, le type ftstring

**Frank** · 14/04/2005, 15h41

Envoyé par Malatar

Teste ta requete uniquement avec une des parties de ta requete union, puis rajoute petit a petit les unions, car autant le drivers a du mal à suivre.

Testé avec le premier select uniquement et toujours le même message.

**Rayek** · 14/04/2005, 15h58

Envoyé par Frank

Envoyé par Malatar

Teste ta requete uniquement avec une des parties de ta requete union, puis rajoute petit a petit les unions, car autant le drivers a du mal à suivre.

Testé avec le premier select uniquement et toujours le même message.

Et sans la clause where ?

**PpPool** · 14/04/2005, 16h07

là franchement, je séche un peu :

je virerai d'abord tes paramétres, et je coderai en dur pour voir si çà passe, si oui, on sera certain que cela vient bien du coté du typage de tes paramètres

au niveau d'oracle, je pense qu'il n'y a aucun soucis. La volumètrie n'est pas un pb coté client. dans de très rares cas, tu as un wait event de type SQLNet Message From/To Client qui signale un dépassement de temps lors de la communication entre le processus utilisateur et le processus serveur. cela est plus souvent représentatif d'un pb réseau. Mais ce n'est pas ici ton cas :

@

**Philia** · 14/04/2005, 16h07

Salut,

En D7 via ADO il semble que la couche ADO utilise les paramètres systeme pour les dates, par contre Toad lui ne passe pas par ADO

En clair si Toad = YYYYMM je ferais MMYYYY dans Delphi

Pour valider ce comportement un simple select de date dans les deux environnements devrait suffire

**Frank** · 14/04/2005, 16h10

Envoyé par PpPool

là franchement, je séche un peu :

je virerai d'abord tes paramétres, et je coderai en dur pour voir si çà passe, si oui, on sera certain que cela vient bien du coté du typage de tes paramètres

au niveau d'oracle, je pense qu'il n'y a aucun soucis. La volumètrie n'est pas un pb coté client. dans de très rares cas, tu as un wait event de type SQLNet Message From/To Client qui signale un dépassement de temps lors de la communication entre le processus utilisateur et le processus serveur. cela est plus souvent représentatif d'un pb réseau. Mais ce n'est pas ici ton cas :

J'ai testé sans passer par un composant adoquery, mais en codant dans l'unit en créant dynamiquement le composant, et sans passer de paramêtres mais en utilisant une variable.
Même résultat...

@

**Frank** · 14/04/2005, 16h13

Envoyé par Philia

Salut,

En D7 via ADO il semble que la couche ADO utilise les paramètres systeme pour les dates, par contre Toad lui ne passe pas par ADO

En clair si Toad = YYYYMM je ferais MMYYYY dans Delphi

Pour valider ce comportement un simple select de date dans les deux environnements devrait suffire

Bonjour,
ton idée me fait penser au passage de date dans Access....

Cela pourrait avoir un sens, mais je viens de tester une autre requête, sans aucun paramêtre (de quelque type que ce soit) et j'ai encore la même erreur...

**PpPool** · 14/04/2005, 16h37

Envoyé par Frank

Bonjour,
ton idée me fait penser au passage de date dans Access....

Cela pourrait avoir un sens, mais je viens de tester une autre requête, sans aucun paramêtre (de quelque type que ce soit) et j'ai encore la même erreur...

Essaie de faire

Code :

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

1
2
 
alter session set nls_date_format='YYYYMM';

avant de lancer ta requete.

je soupçonne des pbs de variables d'environnement

L'installation d'Oracle a t-elle était réalisée en Français+Américain ?

Essaie aussi avec dbExpress, pour ma part je n'ai jamais rencontré de pbs pour attaquer ma base Oracle

[Delphi 2005/Oracle/ADO]Taille de champ incorrecte

Bases de données Delphi

Discussions similaires

Partager

Partager