ADOQuery - SQLQuery ??

[xReva]

Ich habe das ganze jetzt so gemacht und es treten auch keine Probleme auf allerdings wird in der Datenbank auch nichts verändert.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

ADOQuery1.SQL.Text := 'Select * from taccounts';
ADOQuery1.Open;
ADOQuery1.Append; //ein leerer Datensatz hinzu
ADOQuery1.FieldByName('nEMID').AsInteger := 4;
ADOQuery1.FieldByName('sUsername').AsString := 'Hallo';
ADOQuery1.FieldByName('sUserPass').AsString := 'Hallo1';
ADOQuery1.FieldByName('sUserPassSalt').AsString := 'Hallo1';
ADOQuery1.FieldByName('sEmail').AsString := 'Hallo1';
ADOQuery1.FieldByName('nAuthID').AsInteger := 4;
ADOQuery1.FieldByName('sIP').AsString := '127.0.0.1';
ADOQuery1.Post; //abschicken
ADOQuery1.ExecSQL;

end;

[p80286]

Weil ein "Select" Daten von einer DB holt,
und ein "Insert" oder "Update" Daten(Änderungen) in sie schreibt.
(vgl #16 )

Gruß
K-H

[xReva]

oh man ja ergibt sinn aber wie muss ich das dann schreiben? so?

Delphi-Quellcode:

ADOQuery1.SQL.Text := 'Insert into * from taccounts';
ADOQuery1.Open;
ADOQuery1.Append; //ein leerer Datensatz hinzu
ADOQuery1.FieldByName('nEMID').AsInteger := 4;
ADOQuery1.FieldByName('sUsername').AsString := 'Hallo';
ADOQuery1.FieldByName('sUserPass').AsString := 'Hallo1';
ADOQuery1.FieldByName('sUserPassSalt').AsString := 'Hallo1';
ADOQuery1.FieldByName('sEmail').AsString := 'Hallo1';
ADOQuery1.FieldByName('nAuthID').AsInteger := 4;
ADOQuery1.FieldByName('sIP').AsString := '127.0.0.1';
ADOQuery1.Post; //abschicken
ADOQuery1.ExecSQL;

[Olli73]

Nein, das Erste (#18) war schon richtig. Nur das ExecSQL ist zuviel.

Evtl. fehlt noch ein ADOQuery1.Connection.CommitTrans;

[xReva]

So gibt er ne Fehlermeldung aus : No Transaction active

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

ADOQuery1.Connection.CommitTrans;
ADOQuery1.SQL.Text := 'Select * from taccounts';
ADOQuery1.Open;
ADOQuery1.Append; //ein leerer Datensatz hinzu
ADOQuery1.FieldByName('nEMID').AsInteger := 4;
ADOQuery1.FieldByName('sUsername').AsString := 'Hallo';
ADOQuery1.FieldByName('sUserPass').AsString := 'Hallo1';
ADOQuery1.FieldByName('sUserPassSalt').AsString := 'Hallo1';
ADOQuery1.FieldByName('sEmail').AsString := 'Hallo1';
ADOQuery1.FieldByName('nAuthID').AsInteger := 4;
ADOQuery1.FieldByName('sIP').AsString := '127.0.0.1';
ADOQuery1.Post; //abschicken



end;

[Olli73]

Zitat von xReva:

So gibt er ne Fehlermeldung aus : No Transaction active

Das muss natürlich ans Ende. Aber ob ADO überhaupt standardmäßig automatisch Transaktionen startet weiß ich nicht.

[xReva]

Am ende hatte ich das schon er sagt immer das keine Transaction aktiv ist. Ohne das Command funktioniert es zwar fehlerfrei allerdings wird auch kein Db eintrag hinzugefügt.


Mfg Lucas

Delphi-Quellcode:

ADOQuery1.SQL.Text := 'Select * from taccounts';
ADOQuery1.Open;
ADOQuery1.Append; //ein leerer Datensatz hinzu
ADOQuery1.FieldByName('nEMID').AsInteger := 4;
ADOQuery1.FieldByName('sUsername').AsString := 'Hallo';
ADOQuery1.FieldByName('sUserPass').AsString := 'Hallo1';
ADOQuery1.FieldByName('sUserPassSalt').AsString := 'Hallo1';
ADOQuery1.FieldByName('sEmail').AsString := 'Hallo1';
ADOQuery1.FieldByName('nAuthID').AsInteger := 4;
ADOQuery1.FieldByName('sIP').AsString := '127.0.0.1';
ADOQuery1.Post; //abschicken
ADOQuery1.Connection.CommitTrans;

[HolgerX]

Hmm..

ADO braucht BeginTrans..
Ein ComitTrans brauchst DU auch nur machen, wenn Du bei ADO vorher ein BeginTrans gemacht hast.

Aber, wieso gehst Du denn nun den Weg mit Append/Post?

Ein Insert ist immer performanter, außer, Du hast die Datenmenge bereits zur Anzeige in z.B. eines DBGrids offen.

In meinem ersten post (#6) habe ich Dir eine korrigierte und lauffähige Lösung aufgezeigt.
Schade, dass Du sie nicht verwendest.

Hast Du überhaupt Schreibrechte auf die MySQL-DB?

Mit der Zeile
  if (SQLQuery1.ExecSQL() = 1) then begin // Prüfen, ob der Insert erfolgreich war hättest Du auch eine Prüfung, ob der Insert erfolgreich gewesen ist.