Einzelnen Beitrag anzeigen

Chewie

Registriert seit: 10. Jun 2002
Ort: Deidesheim
2.886 Beiträge
 
Turbo Delphi für Win32
 
#9
  Alt 19. Feb 2003, 17:31
So, mit frisch geduschtem und klaren Kopf gehts los:

Delphi-Quellcode:
var
  _connector: PMySQL;
  sqlresult: PMySQL_Res;
  sqlrow: PMySQL_Row;
  Host, Login, Password, Query: PChar;
begin
  //Parameter festlegen
  Host := 'localhost';
  Login := 'root';
  Password := nil;

  //Zugangskennung initialisieren
  _connector := mysql_init(nil);
  
  //Verbindung herstellen
  _connector := mysql_real_connect(_connector,Host,Login,Password,nil,3306,nil,0); if _connector = nil then
  begin
    WriteLn('Die Verbindung ist fehlgeschlagen');
    Exit;
  end;
  
  //aktuelles Datum abrufen
  Query := 'SELECT DAYOFMONTH(NOW()),MONTH(NOW()),YEAR(NOW())';
  mysql_real_query(_connector,Query,Length(Query));
  sqlresult := mysql_store_result(_connector);
  sqlrow := mysql_fetch_row(sqlresult);
  WriteLn('Tag',sqlrow[0]);
  WriteLn('Monat',sqlrow[1]);
  WriteLn('Jahr',sqlrow[2]);
  
  //Ergebniskennung freigeben und Verbindung schließen
  mysql_free_result(sqlresult);
  mysql_close(_connector);
end.
Ich habs jetzt nicht getestet, aber so sollte es gehen.
Ach ja, das hier muss in einem Konsolenprogramm stehen.

Edit: OK, zwei kleinere Fehler waren drin
Martin Leim
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind
  Mit Zitat antworten Zitat