Delphi - ZEOS MySQL - доступ запрещен

Ваш сервер MySQL из Интернета?

• Прежде всего: позволяет ли ваш интернет-провайдер получить прямой доступ к базе данных MySQL с помощью соединения «канал / сокет»? Обычно интернет-провайдер не разрешает этого из соображений безопасности. (Они могут открыть для этого специальный IP / порт, если вы их спросите).

• Во-вторых: у вас была возможность получить грант? это может вызвать проблемы с компонентом ZEOS.

  ПРЕДОСТАВЛЯЙТЕ ИСПОЛЬЗОВАНИЕ . TO 'root' @ '%'

  ПРЕДОСТАВЛЯЙТЕ ВСЕ ПРИВИЛЕГИИ НА _1 _. * 'Root' @ '%' С ОПЦИЕЙ GRANT

Если я хорошо помню, после того, как я изменю привилегию, как это работает. это было с сервером mysql локальной сети (с протестированным EasyPHP и WAMP).

Я бы также посоветовал вам подключиться с помощью строки DSN: проверьте ниже способ подключения:

http://synopse.info/forum/viewtopic.php?id=1547

var
  dsn : string;
begin
  dsn := 'zdbc:mysql://192.168.2.60:3306/world?username=root;password=dev';

Вы можете использовать его для инициализации ZEOSConnexion, а также будьте осторожны с используемой кодировкой: iso-8859-1, iso-8859-15, utf-8, ansi. Потому что Delphi 7 использует ANSI, а интернет-серверы часто используют другие, например UTF-8.

в любом случае я вижу ошибку в вашем коде:

zq.SQL.Text:='SELECT field FROM database.TABLE where id='+inttostr(x)+';';
zq.ExecSQL;

ExecSQL используется для команд UPDATE, INSERT, DELETE, обычно для команды select, которая возвращает записи, удобнее использовать команду open:

zq.Close;
zq.SQL.Text:='SELECT field FROM database.TABLE where id='+inttostr(x)+';';
zq.Open;

Я даю много путей для исследования, надеюсь, это поможет.

Я думаю, что вы должны добавить какую-то строку в свойствах вашего компонента TZConnection:

перед открытием соединения с вашим компонентом TZConnection попробуйте следующее:

function openConnection(BD, User, Host, Pass: string; DBConnection: TZConnection): boolean;
begin
    Result:= false;
    if DBConnection = nil then exit;

    DBConnection.HostName := Host; // Host name to connect
    DBConnection.Protocol := 'mysql-5';
    DBConnection.Port     := 3306; //default port
    DBConnection.Database := DB; // your database name
    DBConnection.User     := User;
    DBConnection.Password := Pass;
    DBConnection.Properties.clear;
    DBConnection.Properties.Add('CLIENT_MULTI_STATEMENTS=1');
    DBConnection.Properties.Add('controls_cp=GET_ACP');

    try
        DBConnection.Connect;
        Result:= DBConnection.Connected;    
    except
        On e:Exception do
        begin
            Result:= false;
            ShowMessage(e.Message);
        end;
    end;
end;