"Now" in Datenbank speichern

[Tommy1988]

// AddIPToDataBase

Delphi-Quellcode:

procedure TForm1.AddTimeToDataBase;
begin
// Schreiben
 if assigned(FResult) then begin
    if FMysql.Status<>MYSQL_STATUS_READY then
      // ShowMessage('Ein Ergebnis wurde unvollständig gelesen!');
      FreeAndNil(FResult);
  end;
q_Time := 'INSERT INTO IP (zeit) VALUES ('
+ QuotedStr(FormatDateTime('hh:mm:ss', now)) + ')';

caption := FormatDateTime('hh:mm:ss', now);

  FResult := FMysql.query(q_Time, true, ex);
  if assigned(FResult) then
  begin
    // ShowMessage('Query: OK - Ergebnis gespeichert')
  end else
    if ex then
    begin
      // ShowMessage('Query: OK - ausgeführt')
      end else
      begin
      // ShowMessage('Query fehlgeschlagen: '+FMysql.LastError);
      end;  
//
end;

Delphi-Quellcode:

// AddTimeToDataBase
procedure TForm1.AddIPToDatabase;
begin
// Schreiben
 if assigned(FResult) then begin
    if FMysql.Status<>MYSQL_STATUS_READY then
      // ShowMessage('Ein Ergebnis wurde unvollständig gelesen!');
      FreeAndNil(FResult);
  end;
q_IP := 'INSERT INTO IP (ip) VALUES ('
+ QuotedStr(sEdit1.Text) + ')';

  FResult := FMysql.query(q_IP, true, ex);
  if assigned(FResult) then
  begin
    // ShowMessage('Query: OK - Ergebnis gespeichert')
  end else
    if ex then
    begin
      // ShowMessage('Query: OK - ausgeführt')
      end else
      begin
      // ShowMessage('Query fehlgeschlagen: '+FMysql.LastError);
      end;  
//
end;