Inhalt eines Dataset zur Laufzeit ändern

[Raffigator]

Moin Leute,

folgendes Problem:

Ich möchte in meinem Programm den Inhalt einer ComboBox abhängig machen vom Inhalt einer TextBox. Also beim Verlassen der TextBox wird der Inhalt der TextBox genommen und damit nach Einträgen in der Datenbank gesucht.

Konkret: Zu einer Bankleitzahl gibt es die jeweilige Bank in verschiedenen Orten. Die möglichen Orte möchte ich dann über eine ComboBox auswählen können. Das klappt soweit auch schon für die erste BLZ die ich in die Textbox tippe. Wenn ich dann aber eine andere eingebe, bleibt die ComboBox hinterher leer.

Hier mein

Delphi-Quellcode:

procedure LSFormFINANZAMT.TBBLZ_Leave(sender: System.Object; e: System.EventArgs);
var
  BLZ : string;
begin

  BLZ := (Sender as Textbox).Text;

  BdpDataAdapBANKNAME.Active := FALSE;
  if BLZ <> '' then begin
    with BdpDataAdapBANKNAME.SelectCommand do begin
      if Connection.State = System.Data.ConnectionState.Closed then
        Connection.Open;
      CommandText := 'SELECT ORT FROM LUG.S_BLZ WHERE BLZ = ' + BLZ + ' ORDER BY ORT';
      ExecuteNonQuery;
      Connection.Close;
    end;
  end;
  BdpDataAdapBANKNAME.Active := TRUE;


end;

Welchen Fehler mache ich?

Gruß,
Raphael

[bttb930]

evtl. ist das connection.close schuld.

[Raffigator]

Nein, das ist es leider nicht...

[uwewo]

Klammere mal das
Connection.Close; aus, mir scheint es auch so als wäre das der Fehler.

Keine Verbindung, keine Daten.

[Raffigator]

Ich habe das ja inzwischen ausgeklammert, aber das scheint es nicht so sein.
Und wenn ich es drinne lasse, klappt das ja auch mit der ersten BLZ, aber wenn ich die dann ändere, also eine zweite eingebe, dann gehts eben nicht mehr...

[uwewo]

Ändere mal diese Zeile
CommandText := 'SELECT ORT FROM LUG.S_BLZ WHERE BLZ = ' + QuotedStr(BLZ) + ' ORDER BY ORT';

[JohannesK]

Warum arbeitest Du nicht mit einer Master-Detailbeziehung und lässt beide Tabellen offen statt bei jeder Anpassung der BLZ die Tabelle zu öffnen und zu schliessen?

SQL-Code:

SELECT BLZ FROM BLZ_Tab ORDER BY BLZ
SELECT ORT FROM ORT_Tab

Über die Master-Detailbeziehung werden dann alle die Orte angezeigt deren BLZ dem Wert der BLZ-Tabelle entspricht.

[uwewo]

Oder Du könntest auch nur einen Filter für die Tabelle setzen.

[Raffigator]

Zitat von uwewo:

Ändere mal diese Zeile
CommandText := 'SELECT ORT FROM LUG.S_BLZ WHERE BLZ = ' + QuotedStr(BLZ) + ' ORDER BY ORT';

Das liefert die selben Ergebnisse...

Zitat von JohannesK:

Warum arbeitest Du nicht mit einer Master-Detailbeziehung und lässt beide Tabellen offen statt bei jeder Anpassung der BLZ die Tabelle zu öffnen und zu schliessen?

SQL-Code:

SELECT BLZ FROM BLZ_Tab ORDER BY BLZ
SELECT ORT FROM ORT_Tab

Über die Master-Detailbeziehung werden dann alle die Orte angezeigt deren BLZ dem Wert der BLZ-Tabelle entspricht.

Hier sind aber Ort und BLZ in einer Tabelle abgelegt (leider nicht normalisiert)...oder verstehe ich da jetzt was falsch?
Die BLZ Tabelle bleibt ja unverändert. Der Nutzer tippt ja eine BLZ in die TextBox ein und erst dann durchsuche ich die BLZ-Tabelle, in welchen Orten diese Bank vorhanden ist.

[JohannesK]

In diesem Fall etwas konkreter:

Dass beide Informationen in einer Tabelle stehen spielt m.E. keine Rolle, Du öffnest ja zwei verschiedene Abfragen und damit zwei verschiedene Datasets, etwa so:

SQL-Code:

SELECT DISTINCT BLZ FROM Tabelle ORDER BY BLZ
SELECT DISTINCT ORT FROM Tabelle

Dass die Daten physisch in der gleichen Tabelle stehen spielt keine Rolle.

Bei der Auswahl der BLZ kannst Du auch eine DBCombobox einsetzen, damit kann der Benutzer auswählen statt eingeben.