Example - Server Create
...
with TMySQLServer.Create(nil) do
try
Host := 'localhost'
Username := 'root';
Password := '';
DatabaseName := 'mysql';
LoginPrompt := False;
Connected := True;
...
ExecSQL('GRANT SELECT, INSERT, UPDATE, DELETE, RELOAD ON *.* TO 'Admin'@'%'');
...
CreateDatabase('Test');
DropDatabase('Test');
...
GetDatabaseNames(List);
GetTableNames('mysql',List);
GetFieldNames('mysql','user',List);
...
...
finally
Free;
end;
...