求个 lazarus 连接 mysql 的dome

MiniKerry

求个 lazarus 连接 mysql 的dome

cuibq

用zeos连接：

  if ZConnection1.Connected = true then
    ZConnection1.Connected := false;

  ZConnection1.Protocol := 'mysql-5';
  ZConnection1.HostName := 'localhost';
  ZConnection1.User := 'username';
  ZConnection1.Password := 'password';
  ZConnection1.Port := 3306;
  ZConnection1.LibraryLocation := ExtractFilePath(ParamStr(0)) + '\libmysql.dll';  //把相应版本mysql驱动文件复制过来
  ZConnection1.Database := 'testdb';
  ZConnection1.ClientCodepage:='UTF8';

  try
    ZConnection1.Connected:=true;
    showmessage('连接成功。');
  except
    on E: Exception do
    begin
      showmessage(E.Message);
    end;
  end;  

bugxiong

社区里有很多，楼主可以找