Datensatz bearbeiten --> Felder werden nicht gefüllt

[Christian18]

Hallo,

hat jemand eine Idee warum folgendes nicht funktioniert???

Delphi-Quellcode:

Table1.Edit;
Form2.ComboBox1.Text:=Table1.FieldByName('Name').AsString;
Form2.ShowModal;

Diese Code Zeile führe ich aus, wenn ich einen Datensatz bearbeiten will. in der Acces Tabbelle ist auch in dem Feld was drinn geschrieben, aber er schreibt es nicht in das Feld rein. Was kann ich dagegen tun???

Hier die Tabelle:

SQL-Code:

Create Table Kunden
(
  ID Counter,
  Name VarChar(30),
  Vorname VarChar(30),

  Constraint pk Primary Key (Idx)
)

MFG Christian18

[Jelly]

Mit Table.edit setzt Du Dich nur in den Editzustand. Um die Änderungen in die DB einzuspielen musst Du noch ein Table.Post ausführen.

[mkinzler]

Was willst du eigentlich machen? Den ausgewählten wert der ComoBox in die Datenbank schreiben? dann mußt du die Zuweisung umkehren:
Table1.FieldByName('Name').AsString := Form2.ComboBox1.Text; Oder einen/alle werte der Datenbank in die ComboBox schreiben, dann ist dein Code aber auch falsch, dann müßte es so heißen:
Table1.Open;

Delphi-Quellcode:

while not Table1.EOF() do
begin
  Form2.ComboBox1.items.add( Table1.FieldByName('Name').AsString);
  Table1.Next;
end;
Form2.ComboBox.Text := Form2.ComboBox.items[0];
Form2.ShowModal;

[Christian18]

Hallo,

ja ist richtig die Tabelle soll doch auch in den Edit modus. wenn ich auf den button Bearbeiten klicke, dann soll auf Form2 die ComboBox gefüllt werden. Das funktioniert aber nicht.

MFG Christian18

[mkinzler]

Dann muß sie nicht in den Editmodus!!! In den Editmodus mußt du die Tabelle nur versetzen, wenn du sie auch editieren willst, zum Auslesen ist das nicht nötig.

[Christian18]

Hallo,

ich habe das gerade mal probiert, was du mir gesagt hast. funktioniert aber leider nicht. hier:

Delphi-Quellcode:

  if
    Table1.RecordCount > 0
  then
    begin
      Form2.Caption:='Bearbeiten';
      Form2.ComboBox1.Text:=Table1.FieldByName('Name').AsString;
      Form2.ComboBox2.Text:=Table1.FieldByName('Vorname').AsString;

      Form2.ShowModal;
    end
  else
    BitBtn1Click(Sender);  // macht fenster für neuen Datensatz auf

[mkinzler]

Ich verstehe immer noch nicht ganz, was du vorhast

Zitat von Christian18:

Delphi-Quellcode:

  if
    Table1.RecordCount > 0
  then
    begin
      Form2.Caption:='Bearbeiten';
      Form2.ComboBox1.Text:=Table1.FieldByName('Name').AsString;
      Form2.ComboBox2.Text:=Table1.FieldByName('Vorname').AsString;

      Form2.ShowModal;
    end
  else
    BitBtn1Click(Sender);  // macht fenster für neuen Datensatz auf

Also wenn es Datensätze gibt, setzt du den Text der CombBox ( Anzeige der Auswahl, nicht der Eintrage) zuerst auf den Namen und dann auf den Vornamen und dann zeigtst du das Fenster modal, was ist der Sinn?

[blawen]

Zitat von mkinzler:

Ich verstehe immer noch nicht ganz, was du vorhast

Dem kann ich mich irgendwie nur anschliessen.

Die ganze Zuweiserei hat mit Datenbanken nicht sehr viel zu tun.
Wie ich sehe, bist Du ein sehr aktives Mitglied. Vielleicht solltest Du die Probleme nicht in der Ferne suchen, sondern einfach wieder auf das einfache zurück kommen ? (Nicht böse gemeint!)