Thema: Delphi MySQL ohne Komponenten

Einzelnen Beitrag anzeigen

Knut

Registriert seit: 8. Aug 2003
38 Beiträge
 
Delphi 7 Personal
 
#42

Re: MySQL ohne Komponenten

  Alt 11. Mär 2004, 19:47
also ich mein prolem ist, dass ich eine fehlermeldung bekomme weil beii der abfrage nil in _myRes steht.
die meldung lautet wie folgt:
Commands out of sync; You can't run this command now was bedeutet das??
hier mein code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
    host, user, pass, db: PChar;
begin
   host := 'localhost';
   user := 'root';
   pass := nil;
   db := 'masternr1de_de_db';

   //jetzt wird _myCon initialisiert
   _myCon := mysql_init(nil);
   if _myCon = nil then
   begin
      ShowMessage('Nicht genug freier Speicher, um Verbindungsdeskriptor zu initialisieren');
      Exit;
   end;
   //anschließend wird die Verbindung hergestellt
   if mysql_real_connect(_myCon, host, user, pass, db, 3306, nil, 0) = nil then
   begin
      ShowMessage('Die Verbindung konnte nicht hergestellt werden. Ursache: ' +
      mysql_error(_myCon));
      Exit;
   end;
   ShowMessage('Verbindung hergestellt');
   //zum Schluss wird die Verbindung wieder geschlossen
   mysql_close(_myCon);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
   Posts: TPostEntries;
   idAuthor: String; //zum Zwischenspeichern der Verfasser-ID
   query: PChar;
   _myRes: PMySQL_Res; //hier wird der gesamte Ergebnissatz gespeichert
   _mySubRes: PMySQL_Res; //benötigt, um Autor zu ermmitteln
   _myRow: PMySQL_Row; //enthält den aktuellen Datensatz
   _mySubRow: PMySQL_Row; //benötigt, um Autor zu ermmitteln
   i: Integer;
begin
   query := 'SELECT * FROM sprueche';
   mysql_real_query(_myCon, query, Length(query));

   _myRes := mysql_store_result(_myCon); //alle Datensätze vom Server anfordern
   if _myRes = nil then
   begin
      ShowMessage('Es konnten keine Datensätze zurückgebenen werden. Ursache: ' +
         mysql_error(_myCon));
      Exit;
   end;
   mysql_free_result(_myRes);
end;
_myCon ist bei mir global kann es daran liegen???

Was nicht fliegen kann, kann auch nicht abstürzen
  Mit Zitat antworten Zitat