|
Datenbank: Access • Version: office 16 • Zugriff über: OLEB Provider Microsoft Jet
Datenbank-Programmierung mit UPDATE (SQL)
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo :)
bin neu hier, deswegen entschuldige ich mich im Vorfeld, falls ich hier etwas schreibe, was schon tausend mal nachgefragt wurde. Zudem entschuldige ich mich, falls ich hier etwas falsch einstelle ..:lol: Ich muss derzeit für die Schule ein Projekt erarbeiten mit Delphi 7 Enterprise und habe mich für ein Quiz entschieden. Nun möchte ich, dass der Admin bereits bestehende Fragen (aus meiner Datenbank) ändern kann. Die Fragen lasse ich in einer DBGrid darstellen, bestehend aus folgenden Spalten: ID Fach Schwierigkeit Frage L1 L2 L3 Lösung Ich hab es folgend programmiert. Fehlermeldung kommt keine mehr! Allerdings wird die Änderung nicht ausgeführt und nicht in meiner Datenbank geändert. Die Art und Weise wie ich programmiere, hab ich so in der Schule gelernt. Zudem muss ich noch sagen, dass mir programmieren einfach nicht liegt und ich es auch nicht sonderlich mag. Bin aber trotzdem sehr stolz auf das bisher erreichte. :-D Im Anhang hab ich noch ein Bild vom Formular eingefügt, zum besseren Vorstellen. Die erste Zeile hab ich provisorisch so eingegeben, um zu testen.
Delphi-Quellcode:
procedure TFormbearb.ButtonbearbClick(Sender: TObject);
var antw:integer; query:ANSIstring; begin if (EditID.Text='') and (EditFach.Text='') and (EditSchw.Text='') and (Editfr.Text='') and (Editl1.Text='') and (Editl2.Text='') and (Editl3.Text='') and (Editlr.Text='') then begin application.MessageBox('Bitte alle Felder ausfüllen','Fehler'); end else begin antw:= MessageDlg('Frage wirklich bearbeiten? ',mtConfirmation,[mbyes,mbNo],0); //Message mit Fragezeichen, Möglk. Ja/Nein Datamodule1.ADOQuery4.SQL.Clear; if antw = mrYes then //mrYes - Benutzer auf yes begin //Frage bearbeiten query:= 'UPDATE Fragen SET Fach=' +quotedstr(Editfr.Text)+ ', Schwierigkeit='+quotedstr(Editschw.Text)+', Frage='+quotedstr(Editfr.Text)+', L1='+quotedstr(Editl1.Text)+', L2='+quotedstr(Editl2.Text)+', L3='+quotedstr(Editl3.Text)+', Lösung='+quotedstr(Editlr.Text)+' '+ 'WHERE ID= :ID'; Datamodule1.ADOQuery4.SQL.Add(query); Datamodule1.ADOQuery4.ExecSQL; application.MessageBox('Frage wurde überarbeitet!','Meldung'); end else begin application.MessageBox('Frage wird nicht überarbeitet!','Meldung'); end; end; end; |
AW: Datenbank-Programmierung mit UPDATE (SQL)
Die Bedingung welches Feld ein update erfahren soll, wo wird :ID mit einem Wert belegt?
Delphi-Quellcode:
Grüße
Datamodlule1.ADOQuery4.Parameters.ParamByName('ID').Value := 123;
Klaus |
AW: Datenbank-Programmierung mit UPDATE (SQL)
Hab es so gemacht:
Datamodule1.ADOQuery4.Parameters.ParamByName('ID') .Value:= Editid.Text; nun kommt als Fehlermeldung: EDatabaseError, 'AdoQuer4: Parameter 'ID' nicht gefunden'. Und nun? Kann ja die ID im Quelltext nicht vorher festschreiben, wenn die Datenbank ja "feste" ID vorgibt.. |
AW: Datenbank-Programmierung mit UPDATE (SQL)
Statt
Zitat:
Delphi-Quellcode:
Nach dem Setzten der Abfrage werden die Parameter neu erzeugt.
Datamodule1.ADOQuery4.SQL.Text := 'UPDATE Fragen SET Fach=' +quotedstr(Editfr.Text)+ ', Schwierigkeit='+quotedstr(Editschw.Text)+', Frage='+quotedstr(Editfr.Text)+', L1='+quotedstr(Editl1.Text)+', L2='+quotedstr(Editl2.Text)+', L3='+quotedstr(Editl3.Text)+', Lösung='+quotedstr(Editlr.Text)+' '+
'WHERE ID= :ID'; Datamodule1.ADOQuery4.Parameters.ParamByName('ID') .Value:= Editid.Text; |
AW: Datenbank-Programmierung mit UPDATE (SQL)
Zitat:
Delphi-Quellcode:
Datamodule1.ADOQuery4.Parameters.ParamByName('ID') .Value:= strtoInt(Editid.Text);
|
AW: Datenbank-Programmierung mit UPDATE (SQL)
es kommt zwar keine Fehlermeldung mehr, aber es wird trotzdem nicht gespeichert.. :(
|
AW: Datenbank-Programmierung mit UPDATE (SQL)
Moin...:P
Zitat:
Delphi-Quellcode:
Datamodule1.ADOQuery4.SQL.Text := 'UPDATE Fragen SET Fach = :FA, Schwierigkeit = :SW, Frage = :FR, L1 = :L1, L2 = :L2, L3 = :L3, Lösung = :LO WHERE ID = :ID'; // besser keine Umlaute in den Feldern verwenden
Datamodule1.ADOQuery4.Parameters.ParamByName('FA').AsString := Editfr.Text; // ist das richtig? ...doppelt? Datamodule1.ADOQuery4.Parameters.ParamByName('SW').AsString := Editschw.Text; Datamodule1.ADOQuery4.Parameters.ParamByName('FR').AsString := Editfr.Text; Datamodule1.ADOQuery4.Parameters.ParamByName('L1').AsString := EditL1.Text; Datamodule1.ADOQuery4.Parameters.ParamByName('L1').AsString := EditL2.Text; Datamodule1.ADOQuery4.Parameters.ParamByName('L3').AsString := EditL3.Text; Datamodule1.ADOQuery4.Parameters.ParamByName('LO').AsString := EditLr.Text; Datamodule1.ADOQuery4.Parameters.ParamByName('ID').AsInteger := StrToInt(Editid.Text); // besser aus der geladenen Datenmenge holen Datamodule1.ADOQuery4.ExecSQL; |
AW: Datenbank-Programmierung mit UPDATE (SQL)
Zitat:
Delphi-Quellcode:
procedure TFormbearb.ButtonausClick(Sender: TObject);
var query:ANSIstring; begin datamodule1.ADOQuery3.SQL.Clear; if lb.ItemIndex >=0 then begin query:= 'SELECT Fr.ID, Fr.Fach, Fr.Schwierigkeit, Fr.Frage, Fr.L1, Fr.L2, Fr.L3, Fr.Lösung FROM Faecher Fa, Fragen Fr '+ 'WHERE Fa.Fach = Fr.Fach and '+ 'Fr.Fach = ' +#39+lb.Items.Strings[lb.ItemIndex]+#39 + 'ORDER BY Fr.ID '; Datamodule1.ADOQuery3.SQL.Add(query); Datamodule1.ADOQuery3.Open; TStringGrid(DB2).ColWidths[1]:=30; TStringGrid(DB2).ColWidths[2]:=60; TStringGrid(DB2).ColWidths[3]:=30; TStringGrid(DB2).ColWidths[4]:=220; TStringGrid(DB2).ColWidths[5]:=150; TStringGrid(DB2).ColWidths[6]:=150; TStringGrid(DB2).ColWidths[7]:=150; TStringGrid(DB2).ColWidths[8]:=20; end else begin application.MessageBox('Auswahlfehler!','Fehler'); end; end; |
AW: Datenbank-Programmierung mit UPDATE (SQL)
Zitat:
wenn ich das so mache, dann kommt "undefinierter bezeichner Asstring und Asinteger"... |
AW: Datenbank-Programmierung mit UPDATE (SQL)
:gruebel: Ado kennt auch Parameter mit "Asxxxx". Ich weiß schon warum ich ADO nicht mag. :?
Im Zweifelsfalle "Value". Da muß die Query aber die Parameter "casten". Asxxxc hast du gleich den Wert. Das ist besser. Zitat:
Nachtrag: Recherche: Zitat:
|
| Alle Zeitangaben in WEZ +1. Es ist jetzt 07:34 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz