Registriert seit: 8. Aug 2003
38 Beiträge
Delphi 7 Personal
|
Re: MySQL ohne Komponenten
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
|
|
Zitat
|