Paradox 7 + Combobox

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Hi,
ich hab folgendes vor:
Ich möchte, dass in einer DBCombobox alle Einträge des Feldes ID stehen. Bei OnChange (Also wenn ein Eintrag gewählt wurde) möchte ich die dazugehörigen Werte in anderen Feldern schreiben.
Wie stell ich das an?

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Ok, ich hab jetzt eine normale Combobox genommen und mit einem TQuery gearbeitet, funktioniert auch alles soweit wunderbar.
Bloß eine Frage hab ich noch:
Wie stell ich fest, ob in einem Feld der DB überhaupt ein Wert eingetragen wurde? Also wie stell ich fest, ob Query1['bla'] nicht leer ist?

hansa · Beiträge: 3079 Erhaltene Danke: 9

IsEmpty

_________________
Gruß
Hansa

kiwicht · Beiträge: 1021 Win 7, MacOS Delphi x, VBA, PHP, ...

oder, noch besser..

.....

Query1['bla'] nicht leer ist?

" Query1['1'] NOT 0 " ?

Ergo: if NOT Query['1'] = '' THEN ...

oder auch

if Query['1'] <> '' then ...

.... Mathematische Herleitung, Klasse 8 Wahlfpflicht Mathematik

mfg
kiwicht

hansa · Beiträge: 3079 Erhaltene Danke: 9

nene,

markieren

Quelltext

1:	if query1.IsEmpty then

Das bedeutet (falls true) Datenmenge leer.

_________________
Gruß
Hansa

kiwicht · Beiträge: 1021 Win 7, MacOS Delphi x, VBA, PHP, ...

Hm, ok, das ist sicherlich richtig, aber wollte er nicht nur den Inhalt eines Feldes überprüfen?

hansa · Beiträge: 3079 Erhaltene Danke: 9

IsNull für einzelne Felder.

@Kiwicht : brauchst Du das :?:

_________________
Gruß
Hansa

kiwicht · Beiträge: 1021 Win 7, MacOS Delphi x, VBA, PHP, ...

jupp, ab und an krieg ich z.B. Fehlermeldung, wenn ich den Inhalt eines leeren Feldes an sensible Variablen übergeben will, deshalb bau ich immer ne Sicherheitsabfrage ein...

hansa · Beiträge: 3079 Erhaltene Danke: 9

Was sind bei Dir "sensible Variable" ? Wenn Du einem integer ein boolean zuordnen willst, ja, das ist dann wirklich sensibel.

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Hi,
Query1['bla'].IsEmpty klappt leider nicht, das hatte den optimistischsten Eindruck gemacht.

markieren

Quelltext

1:
2:

  if not Query1['bla'].IsEmpty then
    Edit123.Text := Query1['bla'];

Klappt leider nicht, bei der If-Abfrage bekomm ich eine Exception von wegen "Ungültige Variant Operation" o.ä..
Ich möchte das prüfen, weil das Feld "bla" auch durchaus leer sein kann. Wenn es leer ist bekomm ich eine Exception, wenn ich es mit Query1['bla'] ansprechen will.

Und das mit Query1['bla'] <> '' oder not Query1['bla'] = '' klappt insofern nicht, da ich auch hin und wieder ein Integer habe, das quitiert Delphi auch mit einer Exception.

hansa · Beiträge: 3079 Erhaltene Danke: 9

papalapap:

Alibi hat folgendes geschrieben:

if not Query1['bla'].IsEmpty then
Edit123.Text := Query1['bla']; <----- und zwar ungefähr hier

Klappt leider nicht, bei der If-Abfrage bekomm ich eine Exception von wegen "Ungültige Variant Operation" o.ä..

Probier doch mal blabla.IsInteger oder blabla.IsString.....

Trotzdem besteht die Frage immer noch, ob das Dataset geprüft werdeb soll, oder das Feld :?:

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Hi,
ne, nur ob dieses eine bestimmte Feld einen Inhalt hat.

hansa · Beiträge: 3079 Erhaltene Danke: 9

Wahrscheinlich mußt Du beides überprüfen. Zuerst einmal, ob überhaupt irgendetwas da ist (mit IsEmpty). Falls ja, dann halt die Felder mit IsNull.

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Naja, ich krieg ja schon bei
Query1.['bla'].IsEmpty
eine Exception "Ungültige Variant-Operation" (Genauer Wortlaut). Es erscheint mir logisch, das müsste eigentlich gehen, bloß meint Delphi da was anderes.

Ahja, und danke schonmal soweit.

hansa · Beiträge: 3079 Erhaltene Danke: 9

wie sieht die Query denn überhaupt aus ?

ohne Quelltext geht wohl nix mehr. Welche DB überhaupt ?

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Das ist eine "normale" Paradox 7 Datenbank, wird ein Fahrtenbuch, bin kurz davor, auf MySQL umzusteigen, das macht weniger Ärger, das funktioniert ohne murren.

Momentan sieht die Procedure so aus:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
  SQL: String;
begin
  SQL := 'SELECT * FROM Standardfahrten WHERE id='+Copy(ComboBox1.Items[ComboBox1.ItemIndex],4,pos(':',ComboBox1.Items[ComboBox1.ItemIndex])-4);
  Query1.SQL.Clear;
  Query1.SQL.Add(SQL);
  Query1.Open;
  if not Query1['Abfahrtsort'].IsEmpty then
    DBEdit5.Text := Query1['Abfahrtsort'];
  {if not Query1['Ankunftsort'] = Unassigned then
    DBEdit6.Text := Query1['Ankunftsort'];
  if not Query1['Distanz'] = NULL then
    DBEdit7.Text := Query1['Distanz'];     }
end;

Das SQL Statement ist hier *ein wenig* unübersichtlich, aber ich bin mir absolut sicher, dass es funktionert, WENN Werte in den Feldern sind, dann funktioniert das.

Bloß kann der Fall eintreten, dass das Feld Distanz z.B. leer ist, deshalb will ich die If-Abfragen machen. Die partout nicht wollen.

hansa · Beiträge: 3079 Erhaltene Danke: 9

überprüfe mal im OI, ob die Query bei Active den Wert true oder false stehen hat und gebe Bescheid.

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

False, umstellen kann ich es dort nicht.

hansa · Beiträge: 3079 Erhaltene Danke: 9

Alibi hat folgendes geschrieben:

False, umstellen kann ich es dort nicht.

Das ist aber seltsam. Schreibe trotzdem direkt hinter das begin :Query1.close

_________________
Gruß
Hansa

Alibi · Beiträge: 458 Win2K SP3 Delphi 6 Ent

Bringt nix.

Wobei ich das auch als Fehlerquelle ausschließe, ich seh jedenfalls keinen Zusammenhang mit "Ungültige Variant-Operation".

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme