Discussion :

[dav999]

Salut,

je cherche à recevoir le retour d'info d'un sql query, dans mon appli j'appelle la liste des tables avec cette commande :

Code :

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

SELECT name, sql FROM sqlite_master WHERE type='table' ORDER BY name;

je voudrais savoir quelle propriété il faut que j'appelle pour récuperer le résultat de ma commande.

Je travaille avec les composants zeoslib (j'ai un tzquery et un tzconnection + tztable) sur une base SQlite3

Merci
David

[defluc]

Code :

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

1
2
3
SELECT name as Name, sql as Sql FROM sqlite_master WHERE type='table' ORDER BY name;
ShowMessage('Name = ' + SqlTable.FieldValues['Name'] + #13 +
            'Sql = ' + SqlTable.FieldValues['Sql']):

où SqlTable est le composant TZable ou TZQuery

[dav999]

ok je vais tester

merci
David

[dav999]

y a rien de plus à déclarer (variable dans ma procedure ou autre chose dans le genre) ?

parce que j'ai une belle erreur "Name" not found (il ne trouve pas la table "name")

Merci
David

[defluc]

Donnes un peu plus de détail.

Suivant ton code, le nom de la table est «sqlite_master» alors que «Type» est un nom de champs qui peut avoir comme valeur 'Table', ce qui prête à confusion.

Je suppose que ton code est bien

Code :

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

1
2
3
4
SqlTable.SQL.Text('SELECT name as Name, sql as Sql FROM sqlite_master WHERE type='table' ORDER BY name');
SqlTable.ExecSql;
ShowMessage('Name = ' + SqlTable.FieldValues['Name'] + #13 +
            'Sql = ' + SqlTable.FieldValues['Sql'])

[dav999]

Voiçi le code exact :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure Tfrm_depart.Button1Click(Sender: TObject);
begin
 
sql_query.SQL.Clear;
sql_query.sql.Add('SELECT name as Name, sql as Sql FROM sqlite_master WHERE type=''table'' ORDER BY name');
sql_query.ExecSQL;
 
ShowMessage('Name = ' + Sql_query.FieldValues['Name'] + #13 + 'Sql = ' + Sql_query.FieldValues['Sql']);
 
end;

et voiçi l'erreur renvoyée :



Dans mon code sql_query est un tzquery, j'ai également un tztable et un tzconnection (respectivement "table_ec" et "dbconnex")
j'ai essayé de mettre le sql dans le tztable mais je n'ai pas la propriété "table_ec.sql"

Lorsque je laisse uniquement Name dans la commande et que je supprime Sql as Sql j'ai la même erreur mais sur Name c'est pour ca que j'ai pensé à quelque chose de non déclaré, à savoir je suis sous linux et avec lazarus

Merci