Delphi/ADO:如何获得Execute()的结果？

Question

我已声明AdoConnection : TADOConnection; 并成功连接到默认的"mysql"数据库(因此,无需传递该代码).

现在,采取婴儿步骤学习,我想AdoConnection.Execute('SHOW DATABASES', cmdText); 这似乎工作正常,从某种意义上说,它不会抛出异常,但我是一个n00b,我不知道我怎么能检查结果命令: - /

HALP!

Answer 1

@mawg,该SHOW DATABASES命令返回一个名为"Database"的列的数据集,因此您可以使用该TADOQuery组件来读取数据.

试试这段代码.

var
  AdoQuery : TADOQuery;
begin
   AdoQuery:=TADOQuery.Create(nil);
   try
    AdoQuery.Connection:=AdoConnection;
    AdoQuery.SQL.Add('SHOW DATABASES');
    AdoQuery.Open;
    while not  AdoQuery.eof do
    begin
      Writeln(AdoQuery.FieldByname('DataBase').AsString);
      AdoQuery.Next;
    end;
   finally
   AdoQuery.Free;
   end;


end;