Filter in einer dBase Tabelle - Fortsetzung -

[EDatabaseError]

Die selbe Frage doch noch ne TATSACHE ENN MAN DIE HILFE DURCHLIEST!!!

Zitat:

Zitat von F1

Feldervergleiche werden nicht bei lokalen Tabellen (Paradox, dBASE, Access, FoxPro) unterstützt.

d.H. F1 <= F2 GEHT NET!!! :!:

[r_kerber]

Dann wirst Du wohl die TTable durch eine TQuery ersetzen müssen und die Abfrage mit einem SQL-Befehl ausführen:

SQL-Code:

SELECT * FROM tabelle WHERE F1 <= F2;

[EDatabaseError]

Und was muss ich da genau machen??? Diese Zeile in Filter schreiben???

[EDatabaseError]

jetzt hilft mir doch mal BITTE, BITTE, BITTE einer. :(

[marabu]

Du ziehst statt der TTable die Komponente TQuery auf deine Form. Anstelle der Eigenschaft TableName arbeitest du dann mit der Eigenschaft SQL.

Delphi-Quellcode:

  Query.SQL.Text := 'SELECT * FROM tabelle WHERE f1 <= f2';

Grüße vom marabu

[EDatabaseError]

Ich habe mir jetzt son Query Obijekt gemacht hab als DataSource die DataSource mit der dBase Tabelle angegeben hab dBase als DatabaseName eingestellt in einem DB Grid ein DataModul mit dem Query Obijekt und ich seh NICHTS! was mach ich falsch :wall: :gruebel: :coder2:

[marabu]

Andersrum - du gibst in deiner DataSource die Query anstelle deiner Table an. Wenn du dann die Query noch auf Active setzt, dann siehst du deine Daten im Grid.

marabu

[EDatabaseError]

FEHLER: Keine SQL Anweisung verfügbar.

Und jetzt muss ich ne Benutzername und Passwort eingeben.

[EDatabaseError]

Jetzt kommt kein Fehler mehr und auch keine Abfrage. Dafür zeigt er wieder einfach NIX an!

[kiar]

hallo,

wenn du nicht zeigst, wie dein Zugriff an Hand der Query ist, ist es schwer den Fehler oder das nicht erscheinen der Daten, zu analysieren.

raik

[EDatabaseError]

Quellcode der Unit:

[marabu]

Alles was du bei Query1 in die Eigenschaft DataSource eingetragen hast - weg damit: so werden nur Master-Tabellen aufgeschaltet. Den Eintrag bei Filter auch wegnehmen. Bei SQL trägst du das hier ein:

SQL-Code:

SELECT num_lager, num_regal, num_art, art_stueck, art_produc, 
       art_name, art_num, art_descr, art_min_st
FROM lsoft
WHERE art_stueck <= art_min_st

Lese doch mal in der Online-Hilfe, was da zu den Eigenschaften wie DataSource steht, bevor du sie einfach benutzt.

Grüße vom marabu

[EDatabaseError]

aha ich weiß soviel wie vorher kannst du mir so wi du es meinst hochladen? bitte.

[marabu]

Bist du ganz sicher, dass dein Projekt nicht ein paar Nummern zu groß für dich ist?

marabu

[EDatabaseError]

Nein bin fast fertig z.Zt 20 Units wenns fertig ist stell ichs in Freeware zum Testen. Es ist eine Lagerverwaltung.

[EDatabaseError]

[MUELL]AHHHHHH tausende Fehler! Welches DElphi hast du?[/MUELL] :angel2:

[kiar]

Hallo

ich denke er hat D 7 arch. Sieht man an seinen Einstellungen :zwinker:

Vielleicht, solltest du besser deinen Code hier reinstellen, mit welchem du Probleme hast.

Raik

[Sharky]

Zitat:

Zitat von EDatabaseError

AHHHHHH tausende Fehler! Welches DElphi hast du?

Steht doch in seinem Profil.

Und dein "AHHHHHH" trägt auch nicht dazu bei dir weiter helfen zu können/wollen.

[EDatabaseError]

:oops: ja gut aber was in aller welt ist ein:
Stream-Read-Fehler???

@kiar die unit is online s.o.

[kiar]

Zitat:

Zitat von EDatabaseError

@kiar die unit is online s.o.

Warum soll ich mir die ganze Unit ziehen, habe gar kein Delphi an. Wollte eigentlich den Codeabschnitt hier sehen. Wie viele die unit gezogen haben siehst du ja . Einer und das war marabu.

raik

[EDatabaseError]

das Problem ist nicht in der Unit sondern am Objekt
in der Unit steht nur:

...
Tabelle.Open;
Query1.Open;
...

[kiar]

sorry,

aber ich klinke mich aus.


raik

[marabu]

Sorry, aber ich hatte vergessen, dass du D3 hast. Hier der Quelltext von Unit4.dfm mit der korrigierten Query-Komponente. Übernimm nur was du unter D3 brauchst.

Delphi-Quellcode:

object DataModule4: TDataModule4
  OldCreateOrder = True
  OnCreate = DataModule4Create
  Left = 569
  Top = 266
  Height = 205
  Width = 215
  object Tabelle: TTable
    TableName = 'lsoft'
    TableType = ttDBase
    Left = 22
    Top = 10
    object TabelleNUM_LAGER: TSmallintField
      DisplayLabel = 'Lager'
      DisplayWidth = 6
      FieldName = 'NUM_LAGER'
    end
    object TabelleNUM_REGAL: TSmallintField
      DisplayLabel = 'Regal'
      DisplayWidth = 6
      FieldName = 'NUM_REGAL'
    end
    object TabelleNUM_ART: TSmallintField
      DisplayLabel = 'Artikel'
      DisplayWidth = 7
      FieldName = 'NUM_ART'
    end
    object TabelleART_STUECK: TFloatField
      DisplayLabel = 'Stück'
      DisplayWidth = 6
      FieldName = 'ART_STUECK'
    end
    object TabelleART_PRODUC: TStringField
      DisplayLabel = 'Hersteller'
      DisplayWidth = 20
      FieldName = 'ART_PRODUC'
      Size = 40
    end
    object TabelleART_NAME: TStringField
      DisplayLabel = 'Artikel'
      DisplayWidth = 40
      FieldName = 'ART_NAME'
      Size = 50
    end
    object TabelleART_NUM: TStringField
      DisplayLabel = 'Artikel-Nummer'
      FieldName = 'ART_NUM'
    end
    object TabelleART_DESCR: TStringField
      DisplayLabel = 'Beschreibung'
      DisplayWidth = 50
      FieldName = 'ART_DESCR'
      Size = 100
    end
    object TabelleART_MIN_ST: TFloatField
      DisplayLabel = 'Min.-Stück'
      FieldName = 'ART_MIN_ST'
    end
  end
  object DataSource1: TDataSource
    Left = 24
    Top = 66
  end
  object Query1: TQuery
    DatabaseName = 'dBASE-Dateien'
    SQL.Strings = (
      
        'SELECT num_lager, num_regal, num_art, art_stueck, art_produc, ar' +
        't_name, art_num, art_descr, art_min_st'
      'FROM lsoft'
      'WHERE art_stueck <= art_min_st')
    Left = 104
    Top = 10
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 102
    Top = 66
  end
end

marabu

[EDatabaseError]

danke