ADOQuery - SQLQuery ??

[xReva]

Hallo, Ich bin jetzt seit ca 2 Monaten dabei Informatik zu studieren allerdings geht es mir dort noch etwas zu langsame voran von daher mache ich ziemlich viel hobbymäßig alleine zuhause.

Nun zu meiner frage wollte mich mal mit Datenbankverbindungen ausprobieren und habe mir dafür eine Mysql datenbank angelegt und kann von dort auch daten auslesen überprüfen und anzeigen lassen.

Mein Problem liegt nun beim hinzufügen von daten. Ich habe es zum großteil mit ADOConnection und ADOQuery gemacht allerdings wenn ich daten hinzufügen möchte muss ich dies ja über parameter tun und diese kann ich bei einer ADOQuery ja gar nicht erst hinzufügen wenn ich das richtig verstanden habe.
Dann habe ich es mit einer SQLQuery versucht und habe auch alles ohne fehlermeldung hinbekommen bis zu dem Punkt das ich überhaupt nicht weiß wie ich die SQLQuery mit der Datenbank verbinde. Mit der ADOQuery habe ich es ja über die ADOConnection gemacht von daher gehe ich aus das auch irgendwie mit der SQLConnection zusammenhängt allerdings weiß ich nicht so recht wie ich das hinkriegen soll.
Sorry wenn das für die meisten wohl nach etwas wirrwarr klingt aber ich bin noch recht neu in dem bereich.

Ich hänge auch noch mal den Code ran da ich mir halt ziemlich unsicher in der ganzen Geschichte bin, ich hoffe mir kann hier weitergeholfen werden.

Mfg Lucas

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

SQLQuery1.Sql.Clear;
SQLQuery1.Params.Clear;
SQLQuery1.Params.CreateParam(ftString, 'Username', ptInputOutput);
SQLQuery1.Params.CreateParam(ftString, 'UserPass', ptInputOutput);
SQLQuery1.Params.CreateParam(ftString, 'UserPassSalt', ptInputOutput);
SQLQuery1.Params.CreateParam(ftString, 'email', ptInputOutput);
SQLQuery1.Params.CreateParam(ftInteger, 'AuthID', ptInputOutput);
SQLQuery1.Params.CreateParam(ftString, 'sIP', ptInputOutput);


SQLQuery1.ParamByName('Username').Text:=edit3.text;
SQLQuery1.ParamByName('UserPass').Text:=edit4.text;
SQLQuery1.ParamByName('UserPassSalt').Text:=edit5.text;
SQLQuery1.ParamByName('email').Text:=edit6.text;
SQLQuery1.ParamByName('AuthID').Value:='4';
SQLQuery1.ParamByName('email').Text:=edit7.text;

SQLQuery1.SQL.Text:='INSERT into taccounts (sUsername,sUserPass,sUserPassSalt,sEmail,nAuthID,sIP)' +
'Values (:sUsername,:UserPass,:UserPassSalt,:email,:AuthID,:sIP)' ;

SQLQuery1.ExecSQL();

SQLQuery1.SQL.Clear;
SQLQuery1.Params.Clear;

SQLQuery1.SQL.Text:='select last_insert_rowid() as nemid from taccounts';
SQLQuery1.Open;
nemid:=SQLQuery1.FieldByName('nemid').AsString;
SQLQuery1.Close;

[jobo]

Welche Delphi Version benutzt Du?

Dein Weg, die Connection herzustellen ist sicher falsch.

Schau mal hier:
http://docwiki.embarcadero.com/RADSt...SQL_Connection
bzw.
http://docwiki.embarcadero.com/RADSt...sing_TSQLQuery

Ich bin mir nicht sicher, aber braucht man nicht mindestens eine Professional Version dafür?

Ansonsten wüsste ich nicht, warum es nicht auch mit ADO gehen sollte:
http://docs.embarcadero.com/products...arameters.html

[DeddyH]

Müsste es bei ADO nicht eher so lauten?

Delphi-Quellcode:

SQLQuery1.Parameters.ParamByName('Username').Value := edit3.text;

[xReva]

Hallo, Danke für die Antwort ich benutze momentan zuhause die Testversion was der Enterprise entspricht und die selbe benutze ich auch in der Uni.


Wenn ich mit ADOQuery Parameter eingeben will sagt er immer Tstrings does not contain a member named 'Params'

Ich kenne auch leider nur den einen weg es mit Parametern zu machen bzw habe keinen anderen weg gefunden bis jetzt.

EDIT: Funktioniert das mit ADO Query dann im Prinzip gleich außer das es anders geschrieben wird bzw mit Parameters anstadt mit Params?



Mfg Lucas

[DeddyH]

Zumindest funktioniert es ähnlich. Sollte Dir die Delphi-Hilfe nicht zur Verfügung stehen, kannst Du auch die DP-Referenz verwenden, um genauere Informationen zu bestimmten Themen/Klassen/Methoden zu erhalten, z.B. zu TADOQuery.Parameters.

[HolgerX]

Hmm..

Hier mal eine (mit 'SQLQuery1' als TADOQuery) leicht bereinigte Version:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  SQLQuery1.ParamCheck := true;    // Bewirkt, dass die Parameter direkt 'initialisiert' = Erstellt werden!!

  SQLQuery1.SQL.Text:='INSERT into taccounts (sUsername,sUserPass,sUserPassSalt,sEmail,nAuthID,sIP) ' +
    'Values (:sUsername,:UserPass,:UserPassSalt,:email,:AuthID,:sIP)' ;

{ Brauchst Du nicht wegen SQLQuery1.ParamCheck := true
  SQLQuery1.Sql.Clear;
  SQLQuery1.Params.Clear;
  SQLQuery1.Params.CreateParam(ftString, 'Username', ptInputOutput);
  SQLQuery1.Params.CreateParam(ftString, 'UserPass', ptInputOutput);
  SQLQuery1.Params.CreateParam(ftString, 'UserPassSalt', ptInputOutput);
  SQLQuery1.Params.CreateParam(ftString, 'email', ptInputOutput);
  SQLQuery1.Params.CreateParam(ftInteger, 'AuthID', ptInputOutput);
  SQLQuery1.Params.CreateParam(ftString, 'sIP', ptInputOutput);
}


  SQLQuery1.ParamByName('sUsername').Value := edit3.text;      // Hier fehlte das 's', siehe dein SQL     Values (:sUsername
  SQLQuery1.ParamByName('UserPass').Value := edit4.text;
  SQLQuery1.ParamByName('UserPassSalt').Value := edit5.text;
  SQLQuery1.ParamByName('email').Value := edit6.text;
  SQLQuery1.ParamByName('AuthID').Value := '4';
  SQLQuery1.ParamByName('sIP').Value := edit7.text;            // Hier stand 'email' statt das 'sIP'

  if (SQLQuery1.ExecSQL() = 1) then begin                     // Prüfen, ob der Insert erfolgreich war

    SQLQuery1.SQL.Clear;
//  SQLQuery1.Params.Clear;   // Wird beim löschen des SQL-Befehls direkt wieder entfernt...

    SQLQuery1.SQL.Text:='select last_insert_rowid() as nemid from taccounts';
    SQLQuery1.Open;

    nemid := SQLQuery1.FieldByName('nemid').AsString;

    SQLQuery1.Close;
  end;
end;

[haentschman]

[meine Meinung]
Hallöle...:P

Zitat:

Ich kenne auch leider nur den einen weg es mit Parametern zu machen bzw habe keinen anderen weg gefunden bis jetzt.

...lieber nicht! Es gibt keinen Weg an Parametern vorbei. :warn:

kleiner Fehler:

Delphi-Quellcode:

SQLQuery1.ParamByName('sUsername').Value := edit3.text;
...
SQLQuery1.ParamByName('UNA').AsString := edit3.text; // besser
...
SQLQuery1.SQL.Clear; // braucht man nicht bei SQl.Text

1. Im Prinzip ist es egal... aber die Parameter (z.B. 3 stellig) als Kürzel sind von Feldnamen besser zu unterscheiden. Logischerweise müssen die Kürzel auch im SQL auftauchen.
2. nicht an @TE: Warum wird immer wieder .Value wenn keine Notwendigkeit auf den Cast besteht benutzt...Langeweile beim Debuggen?. As....für den exakten FeldTyp ist besser. Da erkennt man das man den falschen Typ übergibt. :zwinker:
3. In welchen Büchern steht sowas drin? :gruebel: Das SQl.Clear ist nicht notwendig da der komplette Text in der SQL Stringlist getauscht/aktualisiert wird.
[/meine Meinung]

[p80286]

Zitat:

Zitat von xReva (Beitrag 1368072)

Ich habe es zum großteil mit ADOConnection und ADOQuery gemacht allerdings wenn ich daten hinzufügen möchte muss ich dies ja über parameter tun und diese kann ich bei einer ADOQuery ja gar nicht erst hinzufügen wenn ich das richtig verstanden habe.

Zum einen, Du mußt nicht mit Parameteren arbeiten, aber es ist meist sinnvoll.
Z.B

Code:

update anytable (ID) values(nextkey.nextval)

kommt vollkommen ohne Parameter aus.
zum anderen mußt Du unter ADO

Delphi-Quellcode:

.Value:=Irgendwas;

nutzen vgl- #6 um die Werte zu übergeben und der Update wird mit

Delphi-Quellcode:

.ExecSQL

und nicht mit

Delphi-Quellcode:

.Open

abgeschickt

Gruß
K-H

@haentschmann
unter D7 geht kein weg an .Value vorbei, bei .asstring oder .asinteger bekommt der Compiler einen Schluckauf.
das .Asstring besser als das .Value wäre, darüber müssen wir nicht diskutieren.

[xReva]

Kann man das ganze eigentlich auch irgendwie ohne Parameter machen so in die richtung?

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

ADOQuery1.SQL('EMID').Values := '4';
ADOQuery1.SQL('Username').Text := edit3.Text;
ADOQuery1.SQL('UserPass').Text := edit4.Text;
ADOQuery1.SQL('UserPassSalt').Text := edit5.Text;
ADOQuery1.SQL('email').Text := edit6.Text;
ADOQuery1.SQL('AuthID').Values := '4';
ADOQuery1.SQL('sIP').Values := '127.0.0.1';


ADOQuery1.SQL.Text:='INSERT into taccounts (nEMID,sUsername,sUserPass,sUserPassSalt,sEmail,nAuthID,sIP)' +
'Values (:EMID,:Username,:UserPass,:UserPassSalt,:email,:AuthID,:sIP)' ;

ADOQuery1.ExecSQL();

[haentschman]

@p80286

Zitat:

unter D7 geht kein weg an .Value vorbei

...upps. :oops: Das hatte ich bei dir übersehen. Sorry.

Zitat:

Hallo, Danke für die Antwort ich benutze momentan zuhause die Testversion was der Enterprise entspricht

...er hat die aktuelle Version. Da sollte es möglich sein. :zwinker: