Changeset 21 for trunk/DbEngines/UEngineMySQL.pas

Timestamp:

Mar 23, 2018, 3:06:47 PM (7 years ago)

Author:

chronos

Message:

• Modified: Allow to create and remove tables for XML backend.

File:

• trunk/DbEngines/UEngineMySQL.pas (modified) (3 diffs)

trunk/DbEngines/UEngineMySQL.pas

@@ -19 +19 @@
   public
     SqlDatabase: TSqlDatabase;
-    procedure Query(DbRows: TDbRows; Text: string); override;
+    procedure Query(Text: string; DbRows: TDbRows = nil); override;
     constructor Create; override;
     destructor Destroy; override;
@@ -87 +87 @@
       if DbRows2.Count > 0 then begin
         TypeName := TDictionaryStringString(DbRows2[0]).Values['Name'];
-        NewField.DataType := Table.DbClient.ClientType.DataTypes.FindByName(TypeName);
+        NewField.DataType := Table.DbClient.ClientType.DataTypes.SearchByName(TypeName);
         if not Assigned(NewField.DataType) then
-          NewField.DataType := Table.DbClient.ClientType.DataTypes.FindByType(ftString);
+          NewField.DataType := Table.DbClient.ClientType.DataTypes.SearchByType(ftString);
       end else begin
         // Use string as default
-        NewField.DataType := Table.DbClient.ClientType.DataTypes.FindByType(ftString);
+        NewField.DataType := Table.DbClient.ClientType.DataTypes.SearchByType(ftString);
       end;
       Table.Fields.Add(NewField);
@@ -125 +125 @@
 end;
 
-procedure TDatabaseMySQL.Query(DbRows: TDbRows; Text: string);
+procedure TDatabaseMySQL.Query(Text: string; DbRows: TDbRows = nil);
 begin
   SqlDatabase.Query(DbRows, Text);