Obtenir des noms de Colonne avec Delphi (Dbexpress)

Je suis à l'aide de cette commande sql pour obtenir les noms des colonnes :

select COLUMN_NAME from 
INFORMATION_SCHEMA.COLUMNS 
where TABLE_NAME = 'MyTableName'

mais je ne sais pas comment puis-je utiliser le SQL exécuté résultats de la commande !

par exemple , de cette façon ne fonctionne pas pour extraire les noms de colonne comme une chaîne de valeur et j'ai eu cette erreur = Opération Non prise en charge :

  for i := 1 to Qry1.RecordCount do
  begin

  end;
InformationsquelleAutor Kermia | 2010-07-22
  1. 4

    Quelque chose de ce genre pour un TADOQuery (pas sûr si c'est différent pour dbExpress):

    Qry1.Open;
while not Qry1.Eof do begin
    //do whatever with Qry1.Fields[0].AsString here
    Qry1.Next;
end;
Qry1.Close;
    InformationsquelleAutor Blorgbeard
  2. 4

    Une autre façon vous pouvez faire est d'interroger la table elle-même pour obtenir un dataset vide, et ensuite une boucle à travers les champs de dataset.

    Une requête de ce sera le retour de la structure de la table sans les enregistrements qu'il contient:

    Qry1.SQL.Text := 'SELECT * FROM MyTableName WHERE 1<>1';
Qry1.Open;

    Et une boucle de ce genre de itérer sur chaque champ

    for I := 0 to Qry1.FieldCount-1 do
begin
  X := Qry1.Fields[I].FieldName;
  //and do whatever you want with X
end;
    • X aurait toujours la première ligne de la valeur. pas de .Prochain appel il
    • Non, X aura le nom de la colonne. C'est ce que l'original de la question posée.
    InformationsquelleAutor Rob McDonell
  3. 2

    De ce que je comprends, vous êtes incapable de récupérer la retults.

    Qry1.First;

while not Qry1.Eof do
begin
    X := Qry1.FieldByName('column_name').AsString;

    Qry1.Next;
end;

    C'est un morceau de code qui a toujours travaillé pour moi

    Ou vous pouvez lire ce lien qui explique pourquoi l'exception est levée lors de l'appel .RecordCount (http://edn.embarcadero.com/article/28494)

    Pour résumer, il indique que votre requête est sensible à la casse et vous devriez probablement vérifier le nom de la table (MyTableName)

    InformationsquelleAutor zz1433
  4. 1

    d'accord avec Rob McDonell, dans l'ordre de la liste le nom de la colonne d'un champ, je vais utiliser ça
    comme dans mon code que j'ai écrit quelque chose comme cela

    Procedure blablabla;
var i:integer;
begin
..... {some code here}

SQLQuery1.Open;
  for i := 0 to SQLQuery1.FieldCount-1 do
    begin;
    Memo1.Lines.Append(SQLQuery1.Fields[i].DisplayName);
    end;
  SQLQuery1.Close;


.... {some code here}

end;
    InformationsquelleAutor Toni Tegar Sahidi