Discussion :

[defluc]

Bonjour

Le code

Code :

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

1
2
3
4
5
6
7
8
9
  RadicQuery.Sql.Clear;
  RadicQuery.Sql.Text := 'Insert Into "' + CurDir + 'Temp\TableRadicExpInd.Db" ' +
                         '(Radic, ExpInd) ' +
                         'Select Trim(Leading "0" from (SubString(Capakey from 7 for 4))) as Radic, ' +
                         'SubString(Capakey from 12 for 6) as ExpInd ' +
                         'From "' + CurDir + 'Temp\MergedCapa.Dbf"' +
                         'Where SubString(Capakey from 1 for 5) =  "' + CodeDiv + '" and ' +
                         'SubString(Capakey from 6 for 1) =  "' + Sect + '"';
  RadicQuery.Open;

génère l'erreur «Différence de type dans une expression».

Si j'exécute le «Select» sans «Insert into» pas de problème.
Et pourtant, il apparait que la table de destination contient bien les champs de type String «Radic» de longueur 4 et «ExpInd» de longueur 6.

Cela m'aiderait si quelqu'un pouvait me dire où se trouve mon erreur.

Merci d'avance

[SergioMaster]

Radic et Expind du Select ne sont pas expressement de la bonne taille, utilise un CAST .

Code :

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

1
2
3
4
 
CAST(Trim(Leading "0" from (SubString(Capakey from 7 for 4))) AS CHAR(4) ) as Radic
 
CAST(SubString(Capakey from 12 for 6) AS CHAR(6)) as Expind

nota : Fait à "l'arrache" , a tester , je m'y perds dans les parentheses

[defluc]

Je leur ai attribué la taille maximum.

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
procedure TMapForm.CreateTableRadicExpInd;
Begin
 if FileExists(CurDir + 'Temp\TableRadicExpInd.Db') then
 begin
   DeleteFile(CurDir + 'Temp\TableRadicExpInd.Db');
   DeleteFile(CurDir + 'Temp\TableRadicExpInd.Val');
 end;
 with TableRadicExpInd do
 begin
   Active := False;
   TableType := ttParadox;
   TableName := CurDir + 'Temp\TableRadicExpInd.Db';
   with FieldDefs do
   begin
     Clear;
     Add('Radic', ftString, 4, True);
     Add('ExpInd', ftString, 6, True);
   end;
   CreateTable;
 end;
end;

J'avais déjà essayé la méthode "Cast" mais le mot donne un message d'erreur à l'exécution de la requête.

[SergioMaster]

Je leur ai attribué la taille maximum.
J'avais déjà essayé la méthode "Cast" mais le mot donne un message d'erreur à l'exécution de la requête.

le mot CAST c'est quelle BDD

[Edit] après avoir "dormi dessus" puis-je te suggérer d'utiliser TBatchmove puisque à priori tu utilises BDE et que le Select fonctionne , quant au code pour effacer la table pourquoi ne pas faire DeleteTable plutot qu'effacer à la mano les fichiers DB et VAL

non obstant , je confirme pour avoir fait un petit jeu d'essai approximatif

Code :

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

1
2
3
INSERT INTO CAP2 (RADIC,EXPIND) 
Select CAST(Trim(Leading "0" from (SubString(UneCLE from 7 for 4))) AS CHAR(4)) as Radic,
CAST(SubString(UNECLE from 12 for 6) AS CHAR(6) )as ExpInd From CAP1

les casts fonctionne correctement

[defluc]

C'est une application que j'ai abandonnée un certain temps et selon mon souvenir, je faisais un delete des fichiers .Db et .Val parce qu'en cas de fermeture de l'application sur erreur, deletetable générait à son tour une erreur.

Via l'outil module base de données de Delphi 4, le seul ajout de «As Char» provoque le message

Utilisation incorrecte du mot clé

dans l'expression

Code :

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

Select (SubString(Capakey from 7 for 4)as Char(4)) as Radic,

.
A fortiori dans

Code :

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

Select CAST(Trim(Leading "0" from (SubString(Capakey from 7 for 4)as Char(4)) as Radic,

[SergioMaster]

C'est une application que j'ai abandonnée un certain temps et selon mon souvenir, je faisais un delete des fichiers .Db et .Val parce qu'en cas de fermeture de l'application sur erreur, deletetable générait à son tour une erreur.

interessant à savoir (j'ai jamais eu ce cas) je range cela dans un coin de mémoire .

Pour le cast c'est bizarre car j'ai fait le test avec l'outil module base de données de D3

nota : dans la première expression il manque la CAST , je pense que c'est une erreur de frappe