Entwickler-Ecke :: Thema anzeigen - Standardwert in Datenbank mit TField.DefaultExpression

Talbot - Do 08.09.05 10:38
Titel: Standardwert in Datenbank mit TField.DefaultExpression

Ich habe eine ADO Datenbank in mein Projekt eingebaut. Die meisten Felder werden über ein DBGrid vom Benutzer gefüllt. Jedoch soll ein Feld automatisch vom Programm gefüllt werden. Dazu setze ich zur Laufzeit die Eigenschaft 'DefaultExpression' des entsprechenden Feldes auf den Wert. Ich habe sowohl versucht, den Wert in '' also auch ohne '' anzugeben. Wenn ich aber zur Laufzeit einen neuen Datensatz anlege träft das Programm gar nichts ins Feld ein. Der Benutzer selber soll von der eingabe gar nichts mitbekommen.

Hat jemand ne Idee warum das nicht funktioniert? Oder eine andere Lösung für das Problem?

Talbot - Do 08.09.05 14:16

Hab das Problem bereits selber gelöst:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.tbl_sdaEMBeforePost(DataSet: TDataSet);                        // Before Post Event der ADOTable
  var sname : String;
begin
  if NOT ( (DataSet.State = dsEdit) OR (DataSet.State = dsInsert) ) then begin  // Prüfung ob Datensatz editiert werden kann
        DataSet.Edit;                                                           // Ansonsten Editiermodus einleiten
  end;
                        
  DataSet.FieldByName('Benutzer').AsString := sName;                            // Feld mit Wert belegen.

end;

Moderiert von raziel: Code- durch Delphi-Tags ersetzt.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!