[Paradox]FindKey auf einem Rechner ja, auf anderem nicht?

[Thanatos81]

Hi Leute!

Folgendes Phänomen: auf meinem Rechner funktioniert der FindKey wunderbar, bei einer anderen Station nicht. Die Datenbank liegt im Netz, wir greifen also auf die selben Tabellen zu. Und ich kanns mir nicht erklären. Anbei mal das Codeschnipsel.

Delphi-Quellcode:

      dm.adressen.active := true;
      dm.adressen.Filter := '';
      dm.adressen.Filtered := false;
      dm.adressen.indexname := '';

      if timer1.enabled
        then timer1.enabled := false;
      dm.rekopf.indexname := 'Datum';
      dm.rekopf.first;

      while not(dm.rekopf.Eof) do
        begin
          dm.adressen.first;
          if dm.adressen.findkey([dm.rekopf.fieldbyname('adressnummer').asinteger]) then
            s := dm.adressen.fieldbyname('nummer').asstring + '  ' + dm.adressen.fieldbyname('krz').asstring
          else
            s := dm.rekopf.fieldbyname('adressnummer').asstring + ' wurde nicht gefunden!';

Bei dem zweiten Rechner springt er zu ca. 90% in die else. Hab ich irgendwie ein Brett vorm Kopp?

Schönen Gruß,

[SubData]

Passiert das wenn beide gleichzeitig drauf zugreifen? Dann haste wahrscheinlich einfach nur Kollision (Die aktuelle Zeile ist gesperrt).

[Thanatos81]

Ne, ist völlig unabhängig. Passiert auch, wenn Rechner 2 als einziger angemeldet ist.

[SubData]

Ich glaube zwar nicht, dass es daran liegt aber korrigier mal das hier:

Delphi-Quellcode:

      dm.rekopf.first; 

      while not(dm.rekopf.Eof) do 
        begin 
          dm.adressen.first;      <= das kann weg...

Oder mach aus dem FindKey mal n SetRange...

[Thanatos81]

Zitat von SubData:

Ich glaube zwar nicht, dass es daran liegt aber korrigier mal das hier:

Delphi-Quellcode:

      dm.rekopf.first; 

      while not(dm.rekopf.Eof) do 
        begin 
          dm.adressen.first;      <= das kann weg...

Da haste recht, daran liegts nicht. Hatte ich testweise eingebaut, um zuschauen obs hilft

Zitat von SubData:

Oder mach aus dem FindKey mal n SetRange...

Das wird gleich mal getestet!

[Thanatos81]

Das scheint besser zu funktionieren, danke!

Müsste eigentlich auch schneller sein, oder? Da spart er sich ja (eigentlich) das durchwühlen.

[SubData]

Ich bin der Meinung gelesen zu haben es ist schneller, aber für die Aussage übernehm ich jetzt keine Garantie -g-
Da du aber das dm.adressen.first; rausnehmen kannst, wenn du SetRange nimmst, dürfte es auf jedenfall schneller sein