Ein Datum in meine Datenbank

[LogoPie]

Schönen guten Morgen.
Ich möchte mit Hilfe einer TDateTimePicker Komponente
ein Datum in meine Datenbank schreiben.
Ich arbeite mit Delphi 5 und Advantage Database Server.

[subw00fer]

Hallo!

Einfach Wert mit DateTimePicker1.Date auslesen und in Datenbank einfügen(Falls es ein String ist DateToStr() noch).

mfg subw00fer

[edit=sakura]Doppelpost eliminiert. Mfg, sakura[/edit]

[LogoPie]

Meine Form siet so aus(siehe Anhang).
Ich möchte das Datum aus der TDateTimePicker in meine
Datenbank Termin.adt in das Feld "Enddatum" schreiben.

[Sharky]

Zitat:

Zitat von LogoPie

Meine Form siet so aus(siehe Anhang).
Ich möchte das Datum aus der TDateTimePicker in meine
Datenbank Termin.adt in das Feld "Enddatum" schreiben.

Wenn ich deine Form so sehe denke ich mal das Du nur DB Objekte verwendest (DBEdit,DBMemo, usw).

Möglichkeit 1 wäre:

Bei einem ändern des Datums die Tabelle manuell in den Edit-Modus zu setzen und dann das Datum in das entsprechende Feld zu schreiben.

Delphi-Quellcode:

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
 Query1.Edit;
 Query1.FieldByName ('datum').AsDate := MonthCalendar1.date;
end;

Oder mal bei Torry nach einem DBMonthCalendar suchen.

[subw00fer]

Wo liegt denn das Problem beim Datum aulesen oder beim Insert?

[LogoPie]

Richtig ich verwende nur DBFelder.
Vorher hab ich das Datum auch über ein DBFeld eingegeben, lief super.
Nur jetzt dachte ich mir mit einer TDateTimePicker Komponente sieht es besser aus.
Das Datum kann ich auch auswählen nur in meiner Datenbank erscheint nüschts.

[Tonic1024]

Moin...

Du wirds wohl nicht umhinkommen uns mit ein paar Zeilen Code zu füttern...
So fällt mir ad nix zu ein...

bis denne...

[EDIT] Nur den Part wo du das Datum ausliest und weiterverarbeitest :wink: [/EDIT]

[LogoPie]

Genau da liegt ja mein Problem.
Wie und wo lese ich das Datum aus der TDateTimePicker Komponente aus und übergebe
es an die Datenbank ?

[Sharky]

Ich dachte ich hätte oben etwas geschieben?

Alternativ kannst du ja auch einfach im BeforePost Ereigniss den Wert auslesen.

[LogoPie]

Sorry hab ich übersehen.
Aber was meinst du mit Query1 ?
Was soll diese Zeile machen ?

[Sharky]

Zitat:

Zitat von LogoPie

Sorry hab ich übersehen.
Aber was meinst du mit Query1 ?
Was soll diese Zeile machen ?

Ich benutze halt meist TQuerys und keine TTable. Du musst das eine deine Komponente (TTable) anpassen.

[LogoPie]

Bekomme die fheler meldung Undefinierte Bezeichner 'AsDate'
Muss ich noch was in meine Uses Liste aufnehmen ?
Finde in der Delphi Hilfe keine Hilfe dazu.

[LogoPie]

So die Fehlermeldung is beseitigt aber ein Datum erscheint immer noch nicht in der
Datenbank. Hier mal mein Vollständiger Code

Delphi-Quellcode:

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DBCtrls, Mask, ComCtrls , db,DBTables;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBMemo1: TDBMemo;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label6: TLabel;
    DBEdit5: TDBEdit;
    DBNavigator1: TDBNavigator;
    Panel1: TPanel;
    DBEdit2: TDBEdit;
    DateTimePicker: TDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure TDateTimePicker1Click(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

uses datamodul;

{$R *.DFM}

procedure TForm2.Button1Click(Sender: TObject);
begin
     close;
end;

procedure TForm2.TDateTimePicker1Click(Sender: TObject);
begin
DM.TTermin.Edit;
DM.tTermin.FieldByName ('Enddatum').AsDateTime := DateTimePicker.date;
end;

end.

[Sharky]

Speicherst Du denn auch irgendwo/irgendwann deinen Änderungen?

[LogoPie]

Bis jetzt noch nicht, hab ja kein plan wie ich vorgehen muss.
Da fehlt es mir wohl sehr an Programmier erfahrung, wühle mich da ja
noch durch.