Discussion :

[Zacheus]

Bonjour,

j'ai une requête de création de table traduite automatiquement d'une base MySQL vers une base SQLite, donc une constante 'un peu' longue. Comment peut-on la déclarer dans le code Delphi ?

Code :

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

1
2
3
4
5
CREATE TABLE "users"( "id" NVARCHAR(20)  UNIQUE  NOT NULL , "nom" NVARCHAR(30), "prenom" NVARCHAR(30), "abrev" NVARCHAR(5), "droits" NVARCHAR(3), "login" NVARCHAR(30), "passwd" NVARCHAR(30), "stamp" NVARCHAR(17)  UNIQUE  );
CREATE INDEX keynom ON "users" ( "nom" );
CREATE INDEX keyprenom ON "users" ( "prenom" );
CREATE UNIQUE INDEX "uninom" ON "users" ( "nom","prenom" );
CREATE UNIQUE INDEX "unilogin" ON "users" ( "login","passwd" );

Code :

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

1
2
const
  csCREATEusers : string = 'CREATE TABLE "users" [...]';

ne passe pas [Chaîne trop longue]
Découper la chaîne en plusieurs morceaux re-concaténés dans une var est une solution si on veut : Découper une chaîne pour la rassembler ensuite est intellectuellement 'énervant'.

C'est une limite de Delphi ou une des nombreuses miennes ?

Merci. Zac

[Roland Chastain]

Bonjour !

Et comme ça ?

Code :

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

1
2
3
4
5
const
  csCREATEusers : string =
    'CREATE TABLE "users" [...]' +
    '[...]' +
    '[...]';

[foetus]

Je vois 2 solutions:

1) La classe TStringList et sa propriété Text


2) Faire un tableau de wchar_t ou char (<- *) et utiliser l'api pour faire des copies avec ajout de valeurs de variables si nécessaire.
En C/ C++, c'est possible. Par contre je ne sais pas si cela est possible en Delphi


* Je pense d'ailleurs, mais peut-être à tord, que SQLite demande un tableau/ chaîne de caractères.

[Zacheus]

Bonjour,
Merci pour vos réponses.

Foetus, la vraie déclaration (ie manuelle) sera en réalité plus proche de

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
CREATE TABLE IF NOT EXISTS [users] (
  [usID] CHAR(20) NOT NULL, 
  [usNOM] VARCHAR(30), 
  [usPRENOM] VARCHAR(30), 
  [usABREV] VARCHAR(5), 
  [usDROITS] CHAR(3), 
  [usLOGIN] VARCHAR(30), 
  [usPASSWORD] VARCHAR(30), 
  [xxCREAT] CHAR(17), 
  [xxUSER] VARCHAR(20), 
  [xxPOSTE] VARCHAR(20), 
  [xxSTAMP] CHAR(17), 
  CONSTRAINT [] PRIMARY KEY ([usID]));
CREATE INDEX IF NOT EXISTS [kPRENOM] ON [users] ([usPRENOM]);
CREATE UNIQUE INDEX IF NOT EXISTS [uNOM] ON [users] ([usNOM], [usPRENOM]);
CREATE UNIQUE INDEX IF NOT EXISTS [uLOGIN] ON [users] ([usLOGIN], [usPASSWORD]);

Ma 'codification' est peut-être un peu inhabituelle et je dois vérifier un vague 'souvenir' sur le traitement des clés composites.
Si j'ai une clé sur (A,B,C) alors une recherche SELECT * WHERE A='' ou SELECT * WHERE A='' AND B='' utilise la clé. Mais si ma requête porte sur la droite des clés déclarées SELECT * WHERE B='' AND C='' , je crois me souvenir que la clé composite ne sert à rien et qu'il faut alors déclarer une clé (B, C) en plus.

Roland, tu as raison : je pensais qu'on ne pouvait pas utiliser un + dans une const : puisque c'est une constante, on n'effectue pas de 'calculs' , enfin c'est comme cela dans d'autres langages. Mais l'usage de '+' ne me déclare aucune erreur => adopté !

Merci à tous les deux. Zac.

[ShaiLeTroll]

Des requêtes très longues, je les stockes dans un fichier SQL que je lie via un fichier RC et que j'utilise via un TResourceStream
En particulier pour les CREATE

[Zacheus]

Des requêtes très longues, je les stockes dans un fichier SQL que je lie via un fichier RC et que j'utilise via un TResourceStream
En particulier pour les CREATE

Bonjour,

intéressant comme approche. Je stocke déjà plein de choses dans mes ressources (son, icône,...) mais jamais je n'ai pensé à stocker des requêtes.

Merci pour le conseil. Zac.