MySQL liefert keine Results

[faux]

Hallo!

Ich habe mir gerade Chewies MySQL Tutorial durchgelesen und auch gleich umgesetzt. Jedoch gibts da ein kleines Problem: Ich bekomme keine Results zurück.
Mein Code:

Delphi-Quellcode:

var
  Query: PChar;
  _myRes: PMySQL_Res;
  _myRow: PMySQL_Row;
begin
  // Select db.
  mysql_select_db(_myCon, MySqlLoginInfo.Database);
  // Get login information
  Query := PChar('SELECT * FROM users');
  // Execute query
  mysql_real_query(_myCon, Query, Length(Query));
  // Store result
  _myRes := mysql_store_result(_myCon);
  if _myRes = nil then
  begin
    MessageBox(0, PChar('Could not obtain data from server:' + #10 + mysql_error(_myCon)), 'Warning', MB_OK or MB_ICONWARNING);
  end;
  if mysql_num_rows(_myRes) > 0 then
  begin
    // Fetch result
    _myRow := mysql_fetch_row(_myRes);
    // Set variables
    StrPCopy(AInfo.Username, _myRow[0]);
    StrPCopy(AInfo.GroupName, _myRow[1]);
    StrPCopy(AInfo.RootDir, _myRow[2]);
    StrPCopy(AInfo.HomeDir, _myRow[3]);
    // Free result
    mysql_free_result(_myRes);
    Result := True;
  end
  else
  begin
    Result := False;
  end;
end;

Verbindung besteht, da sonst ein Fehler kommen würde (habe ich geteste). mysql_error liefert auch nichts. mysql_num_rows liefert immer 0. Daten befinden sich in der DB.

Grüße
Faux

[mkinzler]

Liefert mysql_num_rows nur 0 oder ist die Ergebnismenge wirklich leer?

[faux]

Zitat von mkinzler:

Liefert mysql_num_rows nur 0 oder ist die Ergebnismenge wirklich leer?

Naja wenn ich das if mysql_num_rows(_myCon) > 0 then weglasse und einfach ein Result fetche (_myRow := mysql_fetch_row(_myRes); ) gibts ne Exception.

Okay. Habe es gelöst. Es lag an einer alten libmySQL.dll.

Grüße
Faux