Discussion :

[dnode57]

Salut tout le monde,

Ma question est d'une simplicité déconcertante, cependant je n'ai toujours pas de solution , la voici donc :

Est-ce que quelqu'un sait comment utiliser les fonctions GetTableNames et GetFieldNames du composant TOdbc ???

Personnellement j'ai à chaque fois une erreur du type

Project xxx raised exception class 'External : SIGSEGV'.

Je suis bien connecté à la base via le composant ODBC, j'arrive à faire des requêtes, à récupérer les informations etc..., mais pas moyen d'utiliser ces fonctions. Ceci est bien dommage car c'est tout de même plus pratique que d'aller bidouiller dans les tables systèmes de la base pour trouver l'info.

D'avance merci pour vos infos.

@+

Ci joint le programme de test... Pour info, je mettais les fichiers DSN dans le répertoire ODBC. J'ai effectuer le test sur une base Sybase, MySQL et DB2. Pas moyen de récupérer les champs ou les tables via les fonctions prévues à cet effet.

[chris37]

Décidément ,

La réponse est dans la classe TODBCConnection

Code :

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

1
2
3
4
5
function TODBCConnection.GetSchemaInfoSQL(SchemaType: TSchemaType;  SchemaObjectName, SchemaObjectPattern: string): string;
begin
  Result:=inherited GetSchemaInfoSQL(SchemaType, SchemaObjectName,  SchemaObjectPattern);
  // TODO: implement this
end;

Voila, cela veux dire que cela ne fonctionnera pas en ODBC

Pour mysql, cela fonctionne bien avec le composant natif de Lazarus car la fonction de gestion du schema est implémentée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function TConnectionName.GetSchemaInfoSQL(SchemaType: TSchemaType;
  SchemaObjectName, SchemaPattern: string): string;
 
begin
  case SchemaType of
    stTables     : result := 'show tables';
    stColumns    : result := 'show columns from ' + EscapeString(SchemaObjectName);
  else
    DatabaseError(SMetadataUnavailable)
  end; {case}
end;

La solution dans votre cas est de faire votre propre fonction avec les commandes SQL appropriées et cela fonctionnera même en passant par ODBC

Bon courage

[dnode57]

Salut Chris37,

Merci pour la réponse, je dois dire que je la connaissais déjà, ou du moins je m'en doutais. Cependant j'avais reporté ce bug au niveau du bug tracker de Free Pascal, bug qui a été clos et marqué comme résolu, donc j'espérais....

Enfin tant pis, je vais continuer à taper dans les tables systèmes des bases de données, ou voir pour basculer sur QT, peut être que cela fonctionnera mieux...

@+

[chris37]

Alcatiz est en train de récupérer l'ensemble de mon wiki Lazarus donc si certain d'entre vous veulent l'aider, ce serait cool pour lui....car il m'a vraiment aider a découvrir la grande et belle famille de DVP ! Merci à lui

Hum ! no comment sur QT mais je viens d'intégrer l'équipe de DVP de cette section


Donc à bientôt

PS : Jean-Luc ! ne sorts pas ton fusil stp je ne change pas de camp mais juste de palier dans l'immeuble

[thierrybo]

Décidément ,

La réponse est dans la classe TODBCConnection

Code :

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

1
2
3
4
5
function TODBCConnection.GetSchemaInfoSQL(SchemaType: TSchemaType;  SchemaObjectName, SchemaObjectPattern: string): string;
begin
  Result:=inherited GetSchemaInfoSQL(SchemaType, SchemaObjectName,  SchemaObjectPattern);
  // TODO: implement this
end;

Voila, cela veux dire que cela ne fonctionnera pas en ODBC

Bonjour,

pourtant dans la version 2.4.0 on a pas ça :

Code :

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

1
2
3
4
5
6
7
8
9
function TODBCConnection.GetSchemaInfoSQL(SchemaType: TSchemaType; SchemaObjectName, SchemaObjectPattern: string): string;
begin
  if SchemaObjectName<>'' then
    Result := SchemaObjectName
  else
    Result := ' ';
  if not (SchemaType in [stNoSchema, stTables, stColumns, stProcedures]) then
    DatabaseError(SMetadataUnavailable);
end;

mais ce n'est peut-être pas suffisant.

[chris37]

Bonsoir Thierry,

Effectivement dans cette version, les choses ont l'air de bouger mais c'est dans les appels plus profond que ca ce complique apparemment car il manque deux notions essentielles

N'oublions pas que c'est le dsn qui connait le type de base de données et non Lazarus lors de l'utilisation d' ODBC