Query aus DBEdit-Fledern bauen...

[eXpli]

Hallo zusammen!

Ich habe 2 TDBEdit-Felder und möchte die wörter, welche dort eingetragen werden, über ein Query in die DB schreiben (via Buttonclick). ADO-Connection ist bereits erstellt. Aber ich bekomme das irgendwie nicht gebacken!

Hier mein Versuch:

Delphi-Quellcode:

procedure TvocabEingabe.Button1Click(Sender: TObject);
begin
 QRY_InsertVocab.SQL.Add(INSERT INTO TabVokabeln (Vok_Deutsch, Vok_Englisch) VALUES ('+Vok_Deutsch2+', '+Vok_Englisch2+')');
end;

MFG eXpli

[grenzgaenger]

Zitat:

Zitat von eXpli

Hallo zusammen!

Ich habe 2 TDBEdit-Felder und möchte die wörter, welche dort eingetragen werden, über ein Query in die DB schreiben (via Buttonclick). ADO-Connection ist bereits erstellt. Aber ich bekomme das irgendwie nicht gebacken!

Hier mein Versuch:

Delphi-Quellcode:

procedure TvocabEingabe.Button1Click(Sender: TObject);
begin
 QRY_InsertVocab.SQL.Add(INSERT INTO TabVokabeln (Vok_Deutsch, Vok_Englisch) VALUES ('+Vok_Deutsch2+', '+Vok_Englisch2+')');
end;

MFG eXpli

das muss in etwa so aussehen (je nach kompo. kann es abweichungen geben)

Delphi-Quellcode:

[pre]
procedure TvocabEingabe.Button1Click(Sender: TObject);
begin
 QRY_InsertVocab.SQL.Add('INSERT INTO TabVokabeln (Vok_Deutsch, Vok_Englisch) VALUES ('+quotedstr(Vok_Deutsch2.text)+', '+quotedstr(Vok_Englisch2.text)+');');
end;
[/pre]

[mkinzler]

Delphi-Quellcode:

QRY_InsertVocab.SQL.Text := 'INSERT INTO TabVokabeln (Vok_Deutsch, Vok_Englisch) VALUES ( :Vok_Deutsch2, Vok_Englisch2);'; 
...
QRY_InsertVocab.ParamByName( 'Vok_Deutsch2').Value := Vok_Deutsch2;
QRY_InsertVocab.ParamByName( 'Vok_Englisch2').Value := Vok_Englisch2;
QRY_InsertVocab.ExecSQl;

[Edit: Tippfehler entfernt]

[grenzgaenger]

sollte doch so heissen:

Zitat:

Zitat von mkinzler

Delphi-Quellcode:

QRY_InsertVocab.SQL.Text := 'INSERT INTO TabVokabeln (Vok_Deutsch, Vok_Englisch) VALUES ( :Vok_Deutsch2, Vok_Englisch2);'; 
...
QRY_InsertVocab.ParamByName( 'Vok_Deutsch2').Value := Vok_Deutsch2.text;
QRY_InsertVocab.ParamByName( 'Vok_Englisch2').Value := Vok_Englisch2.text;
QRY_InsertVocab.ExexSQl;

der pointer bringt wohl nicht so viel, ausser hier liegt 'ne standardeigentschaft bei... sonst auch mit parametern ok.

[mkinzler]

Zitat:

sollte doch so heissen:...

Je nach dem ob es Strings oder Edit-Kompos o.ä. sind

[eXpli]

Muss ich jetzt den:

Delphi-Quellcode:

QRY_InsertVocab.SQL.Text := 'INSERT INTO TabVokabeln (Vok_Deutsch, Vok_Englisch) VALUES ( :Vok_Deutsch2, Vok_Englisch2);';

oder den Code nehmen?:

Delphi-Quellcode:

QRY_InsertVocab.ParamByName( 'Vok_Deutsch2').Value := Vok_Deutsch2.text;
QRY_InsertVocab.ParamByName( 'Vok_Englisch2').Value := Vok_Englisch2.text;
QRY_InsertVocab.ExexSQl;

Habe bisher nur ADO-Connection und die QRY komponenten im einsatz... Brauch ich noch andere kompos dafür?

[mkinzler]

Beides. Oben setzt du die Abfrage mit Parametern.
Im unteren Teil setzt du die Parameter und fühsrt die Abfrage mit deren Werten aus.

[raiguen]

ähm... nur so am Rande:

SQL-Code:

QRY_InsertVocab.SQL.Text := 'INSERT INTO TabVokabeln (Vok_Deutsch, Vok_Englisch) VALUES ( :Vok_Deutsch2, :Vok_Englisch2);';

sieht irgendwie besser aus ;) nicht, dass sich jmd wundert, dass der 2.Parameter nicht gefunden wurde/wird/unbekannt ist :wink: also nix für ungut @mkinzler... is sicher 'n kleiner Flüchtigkeitsfehler ... kann ja jedem mal unterlaufen, gell?

[Die Muhkuh]

Und dann bitte noch ExecSQL und nicht ExexSQL ;-)

[eXpli]

Ist's eigentlich egal, ob ich die Werte über DBEdit oder normale Edit-Boxen reingeb?