Problem mit zugriff auf dbf Dateien und bearbeiten.

[HolgerX]

Zitat von jaenicke:

Versuche es bitte einmal mit der aktuellsten TDbf Version. Da hat sich ja doch offenbar einiges getan, wenn auch auf den ersten Blick vor allem die Struktur der Verzeichnisse etc.

Ein Unterschied ist, dass du die Memo-Datei (.dbt) nicht mitgeliefert hattest. Dadurch haben wir die einfach ausgeklammert bzw. ich habe sie leer neu erstellt, aber es wäre möglich, dass das Problem genau dort liegt.

Ich werde es einmal in einem virtuellen PC mit Delphi 7 ausprobieren, das habe ich hier nicht mehr drauf und deshalb hatte ich Delphi 10 benutzt.

Hmm...

Hatte ich das nicht geschrieben (BugFix) ?

Ich hatte mir die V 6.9.1 und auch die neuste 7er Version herunter geladen, in beiden ist es zur AccessViolation gekommen, weil keine Memo-Datei dabei ist.

Deshalb einfach mal kurz im Source geachaut und den Bug gefixt:

in dbf_memo.pas in procedure TMemoFile.Open;

Delphi-Quellcode:

    // read header
    HeaderSize := 512;

    // determine version
    if (FDbfVersion = xBaseIII) and Assigned(Header) then
      PDbtHdr(Header)^.bVer := 3;
    VirtualLocks := false;

Da die Datei fehlt, wird hier versucht etwas zu öffnen, was nicht da ist (keine Fehlermeldung 'Fehlende Datei').
Jedoch ohne Datei auch keinen Header und somit kommt es zu der AccessViolation beim Zugriff auf den 'Header'.

Nach dem Fix lässt sich deine Datenbank-Datei wie beschrieben öffnen.

Ach ja, bei der 7er Version musste ich noch einige Zeilen in dbf_common.inc auskommentieren, da hier mein D6 meckerte.
Mit der 6.9.1 brauchte ich das nicht machen.

[jaenicke]

Zitat von HolgerX:

Hatte ich das nicht geschrieben (BugFix) ?

Ich meinte dich doch gar nicht.
Ich dachte, da du nicht den letzten Beitrag geschrieben hattest, muss ich das nicht extra dazu schreiben.

[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...