Question

我想尝试使用MySQL应用程序与Delphi数据库建立连接。我使用dbXpress组件TSQLConnection。

当我尝试使用Graphic组件并测试它是否可以连接数据库时。它与使用对象检查器选项相关联。

但是当我尝试使用代码时，我收到的错误是未知的MYSQL服务器主机＆＃39; ServerName＆＃39;（11001）。

我无法从谷歌叔叔那里得到正确的解决方案。

有谁能告诉我我的代码有什么问题？

以下是我的代码。

      Conn := TSQLConnection.Create(nil);
  try
    conn.DriverName:= 'MySQL';
    conn.Params.Add('HostName=127.0.0.1');
    conn.Params.Add('Database=test1');
    conn.Params.Add('UserName=root');
    conn.Params.Add('Password=test');
    conn.LoginPrompt := false;
    try
    conn.Connected := true;
    ShowMessage('Database connected');
    Except
      on E:exception do
       ShowMessage(E.Message);
    end;
  finally
   if Conn.Connected then
     Conn.Connected :=  false;
   FreeAndNil(Conn);
  end;

如果需要更多信息，请告诉我。

提前致谢。

Answer 1

conn.Params列表已使用预先存在的值进行传播。因此，您不应.add()对其进行配置，而应更改当前的Params。

所以，而不是使用

conn.Params.Add('HostName=127.0.0.1'); // wrong - should update, not add
conn.Params.Add('Database=test1'); // wrong - should update, not add
conn.Params.Add('UserName=root'); // wrong - should update, not add
conn.Params.Add('Password=test'); // wrong - should update, not add

使用

conn.Params.Values['HostName'] := '127.0.0.1';
conn.Params.Values['Database'] := 'test1';
conn.Params.Values['UserName'] := 'root';
conn.Params.Values['Password'] := 'test';

未知的MYSQL服务器主机＆＃39; ServerName＆＃39;（11001）

1 个答案: