Wie greife ich mit einer ComboBox auf eine Datenbank zu ????

[UrmeldieMurmel]

Hallo,

ich habe folgendes Problem. Ich möchte mir einer ComboBox auf eine Datenbank zugreifen, nur funktioniert das nicht. In der Normalrechnung ohne ComboBox geht es. Hier ist der Quellcode, vielleicht kann mir jemand helfen.

Delphi-Quellcode:

   Case Combobox2.ItemIndex of
  -1: ShowMessage('Bitte wählen Sie das Geschlecht aus.');
   0: weiblich :=StrToInt(db.DBEdit4.Text);
   1: maennlich :=StrtoInt(db.DBEdit3.text) ;
   end;

   Case Combobox3.ItemIndex of
  -1: ShowMessage('Bitte wählen Sie aus, ob sie Raucher sind!');
   0: Ja:=StrtoInt(db.DBEdit2.Text);
   1: Nein:=StrtoInt(db.DBEdit1.Text);
   end;

   Case Combobox4.ItemIndex of
  -1: ShowMessage('Bitte wählen Sie die Zahlungsart aus!');
   0: monatlich:=StrtoInt(db.DBEdit5.Text);
   1: halbjaehrlich:=StrtoInt(db.DBEdit6.Text);
   2: jaehrlich:=StrtoInt(db.DBEdit7.Text);
   end;

   Case Combobox6.ItemIndex of
  -1: ShowMessage('Bitte wählen Sie die Fond-Art aus!');
   0: sicherheitsorientiert:=StrToInt(db.DBEdit9.Text);
   1: chancenorientiert:=StrToInt(db.DBEdit8.Text);
   end;

    Case Combobox8.ItemIndex of
  -1: ShowMessage('Bitte wählen Sie das Todesfallkapital aus!');
   0: Sechzig:=StrToInt(db.DBEdit10.Text);
   1: Einhundert:=StrToInt(db.DBEdit11.Text);
   2: Zweihundert:=StrToInt(db.DBEdit12.Text);
   end;

  G:= Combobox2.ItemIndex;
  R:= Combobox3.ItemIndex;
  Z:= Combobox4.ItemIndex;
  F:= Combobox6.ItemIndex;
  T:= Combobox8.ItemIndex;


EK:=G*R+Z+F+T;
kapital.edtest.Text:=InttoStr(EK);

Mit EK soll ein Endbetrag für ein Kapital errechnet werden.

[mkinzler]

Wenn die anzuzeigenden Daten aus einer Datenbank stammen würde ich eine DBLookupComoboBox nehmen.

[UrmeldieMurmel]

Wie kann ich mit diesen auf DBEdit-Felder auf einer anderen Datenbank zugreifen, da ich bei "DataSOurce" nur eine Quelle finde, wenn ich auf derselben Form bin.

Geht das überhaupt ?

[mkinzler]

Nimm die andere Form in die Uses auf, dann findet er auch DataSets auf dieser.