Tdbf , irgendwas mach ich falsch :D

[EugenE]

Hallo,

ich bin recht neu in der Programm-Entwicklung^^ von daher nicht sonderlich viel ahnung von Delphi / Pascal

Also ich habe mir das Tutorial http://wiki.lazarus.freepascal.org/Laza ... utorial/de" onclick="window.open(this.href);return false; durchgelesen und wollte sofort es versuchen^^ , aber geht irgendwie ned

Hier mein Quellcode, das Compilieren geht aber wenn ich jez auf den Button klicke gibts nen fehler:

Code: Alles auswählen

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Dbf,db, Dbf_Common,
  Buttons;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Dbf1: TDbf;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
{ Wir benötigen die folgenden Units im USES Abschnitt:       }
{ uses Dbf, db, Dbf_Common                                   }
{ Dbf wird automatisch eingetragen wenn TDbf auf einem Formular abgelegt }
{ wird...   aber sie benötigen db für das DataSet Objekt und }
{ Dbf_Common für Dinge wie die Feldtyp Definitionen          }
begin
  Dbf1 := TDbf.Create(nil);
  try
    { benutzen sie relative Pfade zum "data" Verzeichnis}
    Dbf1.FilePath := 'C:\data\';
    { wir wollen Visual dBase VII kompatible Tabellen benutzen }
    Dbf1.TableLevel := 7;
    Dbf1.Exclusive := True;
    Dbf1.TableName := 'customers.dbf';
    With Dbf1.FieldDefs do begin
      Add('Id', ftAutoInc, 0, True);
      Add('Name', ftString, 80, True);
    End;
    Dbf1.CreateTable;
    Dbf1.Open;
    Dbf1.AddIndex('custid', 'Id', [ixPrimary, ixUnique]);
    { fügt einen sekundären Index hinzu }
    Dbf1.AddIndex('custname','Name', [ixCaseInsensitive]);
    Dbf1.Close;
  finally
    Dbf1.Free;
  end;
end;
 
initialization
  {$I unit1.lrs}
 
end.

Was habe ich falsch gemacht?

MfG,
Eugen

[monta]

Schreib mal bitte noch hin, was für ein Fehler kommt

[EugenE]

hm habe jez ma die .exe außerhalb des editors geöffnet , da steht jez das es die datei nicht gibt , im Editor kamen nur "#12343452342" unso^^ , hm wie erstelle ich jez so eine datei

und

ist es normal dass das compilieren so lange dauert?

[monta]

zu erstens: gibts dein \data\ verzeichnis schon, oder könnte es daran liegen?

zu 2.: ja, das kompilieren unter Windows dauert recht lange, da kam man nicht viel machen.
(unter Linux läufts allerdings schneller)

[EugenE]

hm jop es was das mit dem ordner , ich dachte der den erstellen^^ , aber naja falsch gedacht , kann man mit Lazarus auch auf Access Datenbanken zugreifen? wen ja wie?

[Christian]

Kann man über odbc.

[EugenE]

Habt ihr vllt ein Tutorial wie man es über odbc macht?^^ , weil ich habe null plan (ich weiß das hört man ständig )

[EugenE]

so langsam habe ich jede database ausprobiert und alle gehen nicht , hat nicht jemand ein tutorial dafür? , bitte antworten

EDIT:
hat sich erledigt werde es anfangen mir selbst beizubringen , btw sqlite geht *freu*

[ralli]

Hallo EugenE,

ich habe lediglich im OnCreate Verzeichnis der Form folgendes eingetragen:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
begin
 
Pfad := ExtractFilePath(Application.ExeName);
 
end;

und die globale Variable Pfad gesetzt, zu Testen damit die neue dbf in dem Verzeichnis gespeichert wird, aus dem das Programm aufgerufen wurde. Und weil ich unter Linux arbeite.

Code: Alles auswählen

public
    { public declarations }
 
    Pfad : String;

Dann natürlich folgene Zeile in Deinem Quellcode geändert:

von

Code: Alles auswählen

Dbf1.FilePath := 'C:\data\';

in

Code: Alles auswählen

Dbf1.FilePath := Pfad;

Und siehe da, alles funktioniert einwandfrei, die Datenbank customers.dbf samt Index Datei wurden erstellt. Warum so schnell aufgeben ?

Schau Dir mal den dbmaker an, den ich für Windows und Linux für unsere Community erstellt habe. Es ist ein komplettes Datenbankfrontend für die Komponente TDBF und kann auf meiner Homepage http://www.rgsoftware.de" onclick="window.open(this.href);return false; samt Quellcode gedownloaded werden. Das Programm wurde auch hier im Forum vorgestellt unter der Rubrik Programme.

Viel Spaß

Ralli

[EugenE]

Hey Danke für den Tipp =)

Ich habe jez versucht alle datenreihen nach einander ausgeben damit ich die auswahlliste füllen kann doch das programm zeigt mir nur den ersten Wert also die erste zeile an und die rest lichen werden nicht angezeigt

[ralli]

Hallo EugenE,

Wenn Du magst, häng das Projekt mit Quellcode an Dein Posting, dann schau ich mir das an. Ohne Sourcen kann ich Dir leider nicht weiterhelfen.

Ralli

[EugenE]

Habe es angehängt