Die Felder einer Tabelle durchsuchen?

[smart]

Ich habe es jetzt so gemacht.

Delphi-Quellcode:

Form1.ABSTable1.IndexName := ComboBox1.Text;
Form1.ABSTable1.SetKey;
Form1.ABSTable1.Fields[ComboBox1.ItemIndex].AsString := Edit1.Text;
  if not Form1.ABSTable1.GotoKey then
    ShowMessage('nicht gefunden');

In ComboBox1.Text ist der Feldname.

Vielen Dank, an Euch alle!

[Sharky]

Hai Heike,

nur so am Rande. Ich würde an deiner Stelle mit Querys arbeiten und nicht mit den Tables. Ich finde diese wesentlich flexibler.

[smart]

Zitat:

Zitat von Sharky

Hai Heike,

nur so am Rande. Ich würde an deiner Stelle mit Querys arbeiten und nicht mit den Tables. Ich finde diese wesentlich flexibler.

Hallo Stephan!

Hätte ich gerne gemacht. Habe ich leider nicht hinbekommen. Immer so dumme Fehlermeldungen in der Art, wie „IndexFeld stimmt nicht über ein“. Ich habe ja noch nicht aufgegeben. Ich bin es weiter mit Querys am versuchen. Aber so hatte ich wenigstens schon ein kleinen Erfolg.

[mschaefer]

Moin, ohje ziemlich Spätmoin,

sag mal, mußt Du eigentlich mit der "Absolut Database" arbeiten. Irgendwie schleicht mich der Verdacht, das dieses System doch etliche Einschränkungen hat und erhlich gesagt weicht es auch in der Ansteuerung offensichtlch von den anderen Desktopdatenbanken soweit ab, dass unser Hilfestellung hier nicht wirklich existiert. Vielleicht könnten wir Dich überreden ein etwas erwachseneres System anzutesten?(!)?

Grüße bis morgen // Martin

[Sharky]

Hai Martin,

die ABD hat mit Locate keine Probleme ;-) Ich habe deinen Code aus dem anderen Thread oben mit ABD getestet.
Ausser das mir bei dieser Zeile:

Delphi-Quellcode:

ABSTable1.Locate(ABSTable1.Fields[0].DisplayName , VarArrayOf([Edit1.Text]),[loPartialKey]);

Ein Fehler an den Kopf geworfen wird :cry:

Zitat:

Im Projekt Project1.exe ist eine Exception der Klasse EABSException mit der Meldung 'Unsupported Variant Type 8204 - Native error: 30113' aufgetreten.

Wenn ich es so mache geht es:

Delphi-Quellcode:

ABSTable1.Locate(ABSTable1.Fields[0].DisplayName , Edit1.Text,[loPartialKey]);

Warum der Fehler kommt muss ich einmal prüfen.

[mschaefer]

Uhps ein Frühmorgenhai !

Hallo Stephan,

sieht fast so aus, als ob hier keine Arrayimplementierung vorhanden ist. Folglich könnte dann nur auf ein Feld gesucht werden.
Naja ich beobachte das heute mal. Habe leider Buchhaltungstach und da ist Delphi limitiert...

Grüße // Martin


{Edit: Lass das Compilerschwert man stecken...)

[Sharky]

Zitat:

Zitat von mschaefer

...Stefan,

Dafür habe ich schon Menschen getötet!

Zitat:

sieht fast so aus, als ob hier keine Arrayimplementierung vorhanden ist.

Ich werde mal den Support fragen. In der Hilfe zu ABD steht nämlich ein Beispiel:

OnlineHilfe

Delphi-Quellcode:

with CustTable do
  Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver','P']), loPartialKey);

Also sollte es wohl gehen.

[smart]

Zitat:

Zitat von Sharky

Wenn ich es so mache geht es:

Delphi-Quellcode:

ABSTable1.Locate(ABSTable1.Fields[0].DisplayName , Edit1.Text,[loPartialKey]);

Warum der Fehler kommt muss ich einmal prüfen.

Hi, guten morgen.

Klappt bei mir auch!