德尔福/ADO : how to get result of Execute()?

Question

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

现在，逐步学习，我想 AdoConnection.Execute('SHOW DATABASES', cmdText); 这似乎工作正常，因为它不会抛出异常(exception)，但我是个新手，我不知道如何检查命令的结果:-/

住手!

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;