Discussion :

[Patrick25300]

Bonjour à tous

Pour la gestion d'une impression, je cherche le moyen de récupérer dans les colonnes la longueur maximal de caractères que cette colonne a.
En utilisant IBExpert et cette requête

Code :

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

1
2
3
 
SELECT MAX(CHAR_length(Nom.Colonne))
FROM NomTable

J'ai bien le résultat qui s'affiche.
Ma question comment avec Delphi récupérer la valeur de la requête ci-dessus?.
Avec une procédure stocké, ça marcherai super bien, mais sans procédure stockée?

• j'utilise les outils d'interbase dans mon programme et Turbo Delphi 2006

Si vraiment qu'une procédure stockée est utilisable, comment modifier la base de données sans passer par IBExpert, avec un fichier .bat par exemple (ou autre).

Merci de vos réponses

[ShaiLeTroll]

Dans Delphi :

ajoute un alias pour éviter tout soucis

Code :

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

1
2
SELECT MAX(CHAR_length(Nom.Colonne)) as MaxColonne
FROM NomTable

Ce SQL dans un TQuery (celui de ta lib) :

Code :

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

Valeur := Query.FieldByName('MaxColonne').AsInteger;

Dans un BAT, faudrait voir les outils de ligne de commande de FireBird, on peut penser qu'il fourni un SQL en mode texte utile lors d'un accès à un serveur distant via une console Putty

[Ph. B.]

Bonjour,

Ma question comment avec Delphi récupérer la valeur de la requête ci-dessus?.
Avec une procédure stocké, ça marcherai super bien, mais sans procédure stockée?

Ça marcherait aussi bien avec l'une qu'avec l'autre. cf. le tuyau de @ShaiLeTroll

Si vraiment qu'une procédure stockée est utilisable, comment modifier la base de données sans passer par IBExpert, avec un fichier .bat par exemple (ou autre).

Interbase est doté d'un outil interactif (=en ligne de commande) pour se connecter et passer des instructions au moteur : ISQL.
Firebird and InterBase® command-line utilities : ISQL
A Quick Guide to ISQL's Switches and Commands for Firebird/InterBase

[Patrick25300]

Bonjour

Merci ShaiLeTroll et Ph. B.

Ta requete est beaucoup plus simple et direct que celle que j'avais fais ci-dessous

Code :

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

1
2
3
4
 
IBQueryLongMaxiChamp.SQL.Add('SELECT * FROM NomLATable A');
IBQueryLongMaxiChamp.SQL.Add('WHERE CHAR_LENGTH(a.'+NomDuchamp+')= (SELECT MAX(CHAR_length('+NonDuchamp+'))');
IBQueryLongMaxiChamp.SQL.Add('FROM NomLATable)');

• De plus il me fallait avoir tous les champs d' IBQuery de la table définits dans l'application.
• La requete m'envoyait le texte le plus long du "NomChamp" et il fallait compter le nombre de caractère de ce champ.

Avec ta requete, il ne faut pas avoir definit tous les champs de IBQuery de la table dans l'application, ce qui permet d'avoir qu'un IBQuery général pour connaitre la longueur maxi des caractères des colonnes de différentes tables par exemple.