Delphi-PRAXiS - Delphi Einträge in DB ändern bzw. einfügen bei relationalen DB's

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Datenbanken (https://www.delphipraxis.net/15-datenbanken/)

- - Delphi Einträge in DB ändern bzw. einfügen bei relationalen DB's (https://www.delphipraxis.net/87700-eintraege-db-aendern-bzw-einfuegen-bei-relationalen-dbs.html)

Einträge in DB ändern bzw. einfügen bei relationalen DB's

Hallo,

ich arbeite jetzt mit einer MSSQL Datenbank und habe ein kleines Problem.

Ich habe eine Datenbank mit den Tabellen _person und _anrede. In der Datenbank _anrede gibt es die Felder a_id, a_bez wobei a_id der PK ist und über AutoInc. arbeitet. Tabelle _person enthält die Felder p_id, p_a_id, p_vorname, p_nachname.

Jetzt habe ich ein Formular auf dem alle Einträge von _person angezeigt werden. Jetzt möchte ich, eine DBComboBox machen, in der Herr, Frau, etc. steht und nicht die ID. Trotzdem soll bei einer Änderung nur die ID in die Tabelle _person geschrieben werden. Wie kann ich das realisieren ohne einen zusätzlichen Zugriff über ADOquery bzw. ADOConnection zu machen.

Geht das irgendwie "automatisch" oder muss ich immer den momentan aktiven Wert aus der DBCombobox Komponente abgreifen? Wäre etwas umständlich meiner Meinung nach.

Für ein kleines Beispiel wäre ich übrigens sehr sehr dankbar. Also nur wenn es "automatisch" geht. Sonst bitte einen kleinen Hinweis wie sich das eigentlich nennt, was ich machen möchte. Ich finde leider nirgends Informationen dazu.

lg
Mike

Re: Einträge in DB ändern bzw. einfügen bei relationalen DB'

Moin Mike,

DBLookupComboBox heißt das Control, welches deinen Vorstellungen entsprechen sollte. DataSource zeigt auf deine Personentabelle und ListSource auf die Adressen - indirekt natürlich. Wenn du alle Peroneneinträge anzeigst, dann vielleicht in einem DBGrid? In dem Fall öffnest du einfach den Tabellen-Editor durch Doppelklick auf die DataSet-Komponente (ADOTable, ADOQuery, ADODataSet) für die Personen und fügst alle anzuzeigenden Felder hinzu, setzt die Schlüsselfelder auf unsichtbar und definierst ein neues Lookup-Feld.

Grüße vom marabu

Re: Einträge in DB ändern bzw. einfügen bei relationalen DB'

Hallo marabu,

danke für die rasche Antwort. Ich habe das jetzt probiert. Es wird mir jetzt so angezeigt wie ich es gerne hätte. Aber..

Ich wollte ja mit dieser Componente auch die Möglichkeit haben das Feld zu ändern. (Also den Key in Tabelle 1). Sobald ich allerdings einen Wert einstelle (egal ob es derselbe Wert ist der bereits in der Tabelle gespeichert ist) bekomme ich folgende Fehlermeldung.

Zitat:

Im Projekt ITDB.exe ist eine Exception der Klasse EDatabaseError aufgetreten. Meldung: 'Feld 'a_id' kann nicht als Typ Variant angesprochen werden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.

bzw.

Zitat:

Feld 'a_id' kann nicht als Typ Variant angesprochen werden.

Sonst bin ich glücklich mit der Lösung. :lol:

lg
Mike

Re: Einträge in DB ändern bzw. einfügen bei relationalen DB'

Hallo,

ich habe den Fehler jetzt gefunden.

Ich habe meinen Fehler hier im Forum gesucht, leider ohne Erfolg. Danach habe ich über Google gesucht und bin auf einen Beitrag in diesem Forum gestoßen! :lol:

Also, mein Fehler war, dass mein Key bin "bigint" Feld war. Unter Delphi 7 funktioniert das anscheinend nicht. Ich habe den Feldtyp auf Integer geändert und jetzt funktioniert es.

Aber danke nochmal für die Hilfe :)

lg
Mike