mysql - 如何通过 TDBXReader 获取数据库大小？

Question

我正在尝试通过 TDBXReader 获取我的数据库的大小。我的命令 SQL 返回两行，我的数据库大小和所有数据库大小的总和。

我正在尝试使用 Reader.Value[0] 来获取数据库总和的值并得到错误 TDBXTypes.BCD 值类型无法作为 TDBXTypes.Doubletype 访问。

如果我使用 Reader.Value[1] 得到 'Invalid Ordinal = 1'

函数:

function ChangeBD() : double;
var
  Con : TDBXConnection;
  Cmd : TDBXCommand;
  Reader :  TDBXReader;
begin
  Result:= 0;
  Con := TDBXConnectionFactory.GetConnectionFactory.GetConnection('mydb', 'root', 'root');
  Cmd := Con.CreateCommand;
  Cmd.Text := 'SELECT Sum(data_length + index_length) / 1024 / 1024 "BDsize" FROM information_schema.tables WHERE table_schema = '+quotedstr('mydb');

  Reader := Cmd.ExecuteQuery;

  if Reader.Next then
    begin
      Result:= Reader.Value[0].GetDouble;
    end
  else

  Con.Free;
  Cmd.Free;
  Reader.Free;

end;

Answer 1

• 当您只放置一个数据字段 ("BDsize") 以供处置时，您如何期望获得第二个值 (Reader.Value[1])？
• 使用GetAsDouble
• 做一个测试if Reader.Value[3].AsString >'' 你不能将一个empty值转换成double
• 使用 if Reader.Next then，您只会从许多行中得到 1 行!使用 while 代替

---

通过以下 SELECT，您将获得 4 列

• 表名，[0]
• 数据长度，[1]
• index_length , [2]
• 总大小 [3]

---

var
sum : double;

[...]

Cmd := Con.CreateCommand;
Cmd.Text := 'SELECT table_name, '+
            'round( data_length / ( 1024 *1024 ) , 2 ) data_length, '+
            'round( index_length / ( 1024 *1024 ) , 2 ) index_length, '+
            'round( round( data_length + index_length ) / ( 1024 *1024 ) , 2 ) total_size '+
            'FROM information_schema.TABLES '+
            'WHERE table_schema = ''mydb'' ';

Reader := Cmd.ExecuteQuery;

获取双倍

function ChangeBD() : double;
[...]
while Reader.Next do
   begin
    if Reader.Value[3].AsString > '' 
       then sum := sum + Reader.Value[3].GetAsDouble;
   end
Result:= sum;

或者自己求和；

function ChangeBD() : double;
[...]
while Reader.Next do
   begin
    if Reader.Value[3].AsString > '' 
       then sum := sum + StrToFloat(Reader.Value[3].AsString) ;
   end
Result:= sum;