Problem mit zugriff auf dbf Dateien und bearbeiten.

[HolgerX]

Ich wollte ja auch nur die Details des Bugs nochmals angeben und dass dieser auch in der aktuellsten Version vorhanden ist.

Dann kann er die Source von seiner Version fixen und nochmals testen..

[Duffy Duck]

Hallo Ihr lieben,

sooo aktueller Stand
Delphi Deinstalliert und alles wieder neu Installiert sowie Tdbf 6.9.1 und siehe da... es läuft, es lässt sich alles verändern und wird sogar in der Kunden.dbf gespeichert

Jetzt muss ich mich nur noch mit dem Filter auseinander setzten...
Von Kunde bis Kunde auswählen, und Betrag einsetzen.

Vorest Danke an alle für eure mühe, tolle Gemeinschaft

[Duffy Duck]

Hallo allerseits

wollte nicht nochmals ein neues Thema eröffnen und fahre hier mit meiner frage fort...:
Das mit dem Filtern klappt leider nicht so ganz.

Was habe ich schon gemacht:

Habe auf der Form eine TQuery komponente gesetzt und im Inspektor Datasource Datasource1 ausgewählt.
Doppelklick auf den Button in der Form und folgender sql code eingegeben:

Code:

procedure TMainForm.Button2Click(Sender: TObject);
begin
    query1.sql.text:='select * from Kunden limit '+IntToStr(vonGast.Text)+', '+IntToStr(bisGast.Text);
end;

leider erscheint nach F9 folgende meldung:
was ist mit überladener Version gemeint? Kurz vor dem Ziel so etwas...

[nahpets]

Zitat von Duffy Duck:

Hallo allerseits

wollte nicht nochmals ein neues Thema eröffnen und fahre hier mit meiner frage fort...:
Das mit dem Filtern klappt leider nicht so ganz.

Was habe ich schon gemacht:

Habe auf der Form eine TQuery komponente gesetzt und im Inspektor Datasource Datasource1 ausgewählt.
Doppelklick auf den Button in der Form und folgender sql code eingegeben:

Code:

procedure TMainForm.Button2Click(Sender: TObject);
begin
    query1.sql.text:='select * from Kunden limit '+IntToStr(vonGast.Text)+', '+IntToStr(bisGast.Text);
end;

leider erscheint nach F9 folgende meldung:
was ist mit überladener Version gemeint? Kurz vor dem Ziel so etwas...

vonGast.Text ist eine Zeichenfolge und mit IntToStr kann man keine Zeichenfolge in eine Zeichenfolge verwandeln, sondern nur Integerwerte in Zeichenfolgen.

Entweder:

Delphi-Quellcode:

procedure TMainForm.Button2Click(Sender: TObject);
begin
  query1.sql.text := 'select * from Kunden limit ' + vonGast.Text + ', ' + bisGast.Text;
end;

oder

Delphi-Quellcode:

procedure TMainForm.Button2Click(Sender: TObject);
begin
  query1.sql.text:= Format('select * from Kunden limit %s, %s',[vonGast.Text,bisGast.Text]);
end;

wobei mir das entstehende SQL-Statement seltsam vorkommt:
select * from Kunden limit vonGast, bisGast also z. B.: select * from Kunden limit 10, 20
Hätte hier eher sowas erwartet:
select * from Kunden where kunr between vonGast and bisGast also z. B.: select * from Kunden where kunr between 10 and 20

[p80286]

Könnte es sein, daß vonGast.Text u.U. kein Integer ist?

Gruß
K-H

[Duffy Duck]

@nahpets

habe deinen code so übernommen und eingestzt, jetzt kommt zwar keine Fehlermeldung mehr aber es passiert auch nichts...

also vonGast.text und bisGast.text waren die Edit1.text und Edit2.text die umbenannt habe.

Zum verständniss:

Ich habe eine Dbgrid wo die kunden.dbf eingelesen wird, im Feld KUNR (Gast Nr.) habe ich z.B. 10 Kunden drin, beim einlesen der Tabelle werden alle 10 Kunden angezeigt. Jetzt möchte ich gerne einen Filter setzen, also zeige mir von Gast 1 bis Gast 5 an.
Dachte dass es mit einer sql abfrage möglich sein sollte...

[nahpets]

Was benutzt Du jetzt eigentlich in Deinem Programm?

TDBF oder TQuery?

TQuery benötigt die BDE.

mit query1.sql.text := Format('select * from Kunden where kunr between %s and %s',[vonGast.Text,bisGast.Text]); wird der Query ein Statement zugewiesen, mehr aber auch nicht.

Wenn Du möchtstes, dass es auch ausgeführt wird, solltest Du die Abfrage öffnen.

Delphi-Quellcode:

query1.Close;
query1.sql.text:= Format('select * from Kunden where kunr between %s and %s',[vonGast.Text,bisGast.Text]);
query1.Open;

[Duffy Duck]

Ich benutze die TDBF

brauche ich eigentlich die TQuery komponente? obwohl diese mit Datasource1 verbunden ist, kann ich Active nicht auf True setzten, da kommt: Query1: keine SQL Anweisung verfügbar
[Edit] jaaa lesen klar, TQuery benötigt die BDE.. also brauche ich die Tquery komponente gar nicht.[/Edit]

Sorry wenn ich evtl. nicht richtig ausdrucke, bin noch in der "lernphase" mit Delphi

Habe auch diesen code von Dir benutzt, mit der Anweisung zu öffnen... hmm leider "bewegt" also wird nichts gefiltert, es bleibt alles so wie es ist...