InputQuery Abfrage

[robby3]

Hallo zusammen, :-D
Ich brauche Hilfe :wall:
Ich habe 2 Datenbänke zusammengefasst, nun möchte ich mit einer InputQuery abfrage mein letzter Filter setzen Stuecklisten.Znr = InputQuery ich bekomme immer eine Fehlermeldung.
„Merkmal nicht verfügbar“

Und wie kann ich die Query Datenbank in den Editier Modus bringen um Daten ändern zu können
Ich Freue mich schon auf eure Hilfe
Robby
Hier mein Code: :gruebel:

Delphi-Quellcode:

var
stName,text_t:string;
begin
stName:='';
 text_t:='Bitte Stücklistennummer  eingeben';
if InputQuery(text_t,'',stName)then

Query.sql.Text:='Select lager.* From stueckliste inner join lager on stueckliste.pos = lager.pos and stueckliste.znr =  Quotedstr(stName)';
Query.active:=true;
end;

[berndberndbernd5b]

hi


du musst vor dem quatedstring nen + setzen

ich würd das mit dem Filter, tabellen zusammenführen .... mit SQL machen

[Union]

Entweder so:

Delphi-Quellcode:

Query.sql.Text:= 'Select lager.* From stueckliste inner join lager on stueckliste.pos = lager.pos and stueckliste.znr = '+Quotedstr(stName); 
Query.active:=true;

Oder so:

Delphi-Quellcode:

Query.sql.Text:= 'Select lager.* From stueckliste inner join lager on stueckliste.pos = lager.pos and stueckliste.znr = :stName'
Query.ParamByName('stName').AsString := stName;
Query.active:=true;

[robby3]

Hei bin wieder da,war auf dem Martinsmarkt
Der Tipp war prima und wie bekomme ich jetzt die Datenbank aus dem nur Lesemodus raus mit Query .Edit geht das nicht. :gruebel:
Robby

[Union]

Eine Query, die Joins enthält, ist immer readonly. Wenn Du mit einer temporären Tabelle arbeitest (mit select into erstellt) musst Du darauf achten, RequestLive auf true zu setzen.

[robby3]

ich habe den RequestLive auf true gesetzt, aber ich kann meine Query Datenbank nicht ändern.
Robby
:gruebel:

[Union]

Nochmal: Deine Query enthält einen JOIN. Deshalb ist die Query immer readonly. Behelfen kannst Du Dir, indem Du die Query in eine Temporäre Tabelle schreibst (select into). In dieser führst Du dann Änderungen durch und zum Schluss machst Du über die ID ein Update auf die eigentliche Tabelle. Was möchstest Du denn in Deinem Besipiel ändern? "Stückliste" oder "Lager"?

[robby3]

Ich möchte die Datenbank Lager ändern.
Robby

[Union]

Direkt in "Lager" ändern kannst Du nur so (ungetestet):

SQL-Code:

select * from lager where lager.pos in (select stueckliste.pos from stueckliste where stueckliste.pos = lager.pos and stueckliste.znr = :stname)

[robby3]

Ich habe dein Code getestet: :-D
Ich bekomme die Fehlermeldung „Table2 : das Feld ‚stname’ Wurde nicht gefunden“
Robby
:gruebel:

[Union]

Es war auf den Teil vorher bezogen mit Deiner InputQuery. Das SQL muss in den SQL.Text Deiner Query und den Parameter stName musst Du wieder mit Parambyname füllen.

[robby3]

Kannst Du mir ein Beispiel geben, ich stehe auf dem Schlauch :gruebel: :gruebel:
Robby :-D

[Union]

Delphi-Quellcode:

var
   stName,text_t:string;
begin
   stName:='';
   text_t:='Bitte Stücklistennummer  eingeben'; 
   if InputQuery(text_t,'',stName) then
   begin
      Query.sql.Text:= 'select * from lager where lager.pos in (select stueckliste.pos from stueckliste where '+
                       'stueckliste.pos = lager.pos and stueckliste.znr = :stname)';
      Query.ParamByName('stName').AsString := stName; 
      Query.active:=true;
   end;
end;

[robby3]

Ich kann aber die Datenbank Lager immer noch nicht ändern :?: :?:
Hilfe :wall:
Robby

[Union]

Sorry, da hatte ich nicht nachgedacht. Du könntest dann eine zweite Query auf "Lager" nur für die Änderungen erzeugen, oder wie bereits erwähnt über eine temporäre Tabelle.

[robby3]

und wie :?: :?: :?: :?: :?:
robby :-D