"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;

[DeddyH]

Wieso legst Du denn 2 Datensätze an? Kombinier doch beides.INSERT INTO IP(ip,zeit) VALUES(ip-Variable,zeit-Variable)

[Tommy1988]

Darf ich mich blöd anstellen?

Delphi-Quellcode:

q_IP := 'INSERT INTO IP (ip, zeit) VALUES ('
+ QuotedStr(sEdit1.Text),
  QuotedStr(FormatDateTime('hh:mm:ss', now)) + ')';

Das funktioniert so leider nicht.

[guidok]

DeddyH hat recht, so wie du es machst fügst du ZWEI Datensätze in die Tabelle ein. Einmal einen in dem das Feld IP unbelegt ist und einmal einen in dem das Feld Zeit unbelegt ist.

In deinem Fall einfach EINEN KOMPLETTEN Datensatz in die Tabelle einfügen, siehe oben. Falls du wirklich einmal zwei Felder nicht in einem SQL Befehl packen kannst, dann musst du beim Einfügen eines neuen Datensatzes INSERT verwenden und beim Ändern UPDATE, wobei du dann noch eine eindeutige Datensatzidentifizierung brauchst (Key).

[DeddyH]

Delphi-Quellcode:

q_IP := Format('INSERT INTO IP (ip, zeit) VALUES (%s,%s)',
[QuotedStr(sEdit1.Text),QuotedStr(FormatDateTime('hh:mm:ss', now))]);

[xaromz]

Hallo,

Zitat von Tommy1988:

Darf ich mic blöd anstellen?

klar darfst Du, aber warum solltest du

Delphi-Quellcode:

IP := QuotedStr(sEdit1.Text);
Zeit := QuotedStr(FormatDateTime('hh:mm:ss', now));
q_IP := Format('INSERT INTO IP (ip, zeit) VALUES (%s, %s)', [IP, Zeit]);

Gruß
xaromz

[Jelly]

Zitat von Tommy1988:

Delphi-Quellcode:

q_IP := 'INSERT INTO IP (ip, zeit) VALUES ('
+ QuotedStr(sEdit1.Text),
  QuotedStr(FormatDateTime('hh:mm:ss', now)) + ')';

Das funktioniert so leider nicht.

Du hast schon eine Spalte ip und eine Spalte zeit in deiner Tabelle IP

[DeddyH]

Zitat von Jelly:

Du hast schon eine Spalte ip und eine Spalte zeit in deiner Tabelle IP

Er will ja nicht die Tabellenstruktur ändern, sondern einen Datensatz einfügen.