Einzelnen Beitrag anzeigen

Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#1

MySQL liefert keine Results

  Alt 26. Mai 2006, 00:09
Datenbank: MySQL • Version: 5.0.15 • Zugriff über: MySQL-C-API (libmySQL.dll)
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
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian
  Mit Zitat antworten Zitat