Problem beim schreiben in DB

[Pepsen]

VORSICHT ANFÄNGER!

hallo erstmal...

...ich hab eine kleine Adressdatenbank (Paradox 7) erstellt und greife mit einem Query auf sie zu! Nun will ich mit einem ButtonClick aus 3 Edit-Feldern (editName, editVorname, editOrt) in die Datenbank schreiben. Es kommt aber leider die Fehlermeldung:

Query1: Eine Datenmenge, die nur zum Lesen ist, kann nicht geändert werden!

der zugehörige Quellcode sieht so aus:

Delphi-Quellcode:

query1.Open;
    query1.Append;
    query1.FieldByName('name').asstring := editname.Text;
    query1.FieldByName('vorname').asstring := editvorname.Text;
    query1.FieldByName('ort').asstring := editort.Text;
    query1.post;

ist dies so überhaupt möglich oder muss ich hier mit SQL Anweisungen arbeiten? Da hab ich noch nicht so die Ahnung von!
Die Query-Eigenschaften sehn so aus:

Code:

object Query1: TQuery
    DatabaseName = '.\'
    DataSource = DataSource1
    RequestLive = True
    SQL.Strings = (
      'SELECT Vorname, Ort, Name'
      'FROM addyDB'
      'ORDER BY Name, Vorname, Ort')

muss ich da etwa was ändern?

[mkinzler]

-Erzeuge ein UpdateObject (TUpdateSQL)
-Füge die entsprechenden Abfragen ein ( z.B. über Editor)

[Maja Jessica]

Hi,

mit Requestlive kam ich nie so recht klar. Hatte es dann mit einer Table gemacht.

Zitat:

Table.Active := true;
Table.Append;
Table.FieldByName('name').asstring := editname.Text;
Table.FieldByName('vorname').asstring := editvorname.Text;
Table.FieldByName('ort').asstring := editort.Text;
Table.post;
Table.Active := false;

Schätze mal, das du mit Query.Open eine Abfragemenge bekommst, in die du dann nicht schreiben kannst.

Ansonsten ist die Sache mit SQL-Strings garnicht mal soo schwer.

Pseudocode:

Zitat:

Query.SQL.Clear;
Query.SQL.Add('Insert into Tabelle (Name,Vorname,Ort) Values ("Sprudel","Klara","Bonn")');
Query.ExecSQL;

[Pepsen]

danke für eure Antworten! Hab es jetzt ein wenig anders gelöst! Da war jmd schneller!
und zwar hab ich das "ORDER BY Name, Vorname, Ort" rausgenommen, weil es mir das "RequestLive = True" kaputt gemacht hat!
nun ist zwar die sortierung dahin aber das werd ich dann halt anders lösen!

Zitat von Maja Jessica:

Hi,

mit Requestlive kam ich nie so recht klar. Hatte es dann mit einer Table gemacht.

Zitat:

Table.Active := true;
Table.Append;
Table.FieldByName('name').asstring := editname.Text;
Table.FieldByName('vorname').asstring := editvorname.Text;
Table.FieldByName('ort').asstring := editort.Text;
Table.post;
Table.Active := false;

jo, mit TTable wäre das kein Prob gewesen! Hab nur halt leider die Auflage es mit nem Query machen zu müssen!

Zitat von Maja Jessica:

Schätze mal, das du mit Query.Open eine Abfragemenge bekommst, in die du dann nicht schreiben kannst.

Ansonsten ist die Sache mit SQL-Strings garnicht mal soo schwer.

Pseudocode:

Zitat:

Query.SQL.Clear;
Query.SQL.Add('Insert into Tabelle (Name,Vorname,Ort) Values ("Sprudel","Klara","Bonn")');
Query.ExecSQL;

das werd ich doch galtt mal ausprobieren! Kann ich denn bei VALUES auch einfach anstatt feste Werte editname.text eingeben?

[Maja Jessica]

Hi,

klar mit

Delphi-Quellcode:

Query.SQL.Clear;
Query.SQL.Add('Insert into Tabelle (Name,Vorname,Ort) Values ('+QuotedStr(EditName.Text)+',"Klara","Bonn")');
Query.ExecSQL;

MJ