Entwickler-Ecke :: Thema anzeigen - Datenbank als .db speichern?

Gorax - Do 04.09.08 16:44
Titel: Datenbank als .db speichern?

Hey Leute

Wie speichere ich eine paradox datenbank, die ich zur laufzeit erzeugt habe, als beispielsweise "Test.db" ab?

also das soll in ne Datenbankdatei (ist nur der Rohentwurf aus der Delphi hilfe):

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

if not Table1.Exists then begin

  with Table1 do begin

  { Die Table-Komponente darf nicht aktiv sein }
  Active := False;
  { Zuerst den Tabellentyp beschreiben und die Tabelle benennen }
  DatabaseName := 'DBDEMOS';
  TableType := ttParadox;
  TableName := 'testtable';


  { Dann die Felder in der Tabelle beschreiben }
  with FieldDefs do begin
    Clear;
      with AddFieldDef do begin
        Name := 'Field1';
        DataType := ftInteger;
        Required := True;
      end;

      with AddFieldDef do begin
        Name := 'Field2';
        DataType := ftString;
        Size := 30;
      end;

    end;

  { Dann alle Indizes beschreiben }
  with IndexDefs do begin
    Clear;
    { Der erste Index hat keinen Namen, denn er ist ein }
    { primärer Paradox-Schlüssel }
      with AddIndexDef do begin
        Name := '';
        Fields := 'Field1';
        Options := [ixPrimary];
      end;
      with AddIndexDef do begin
        Name := 'Fld2Indx';
        Fields := 'Field2';
        Options := [ixCaseInsensitive];

      end;
    end;
  { CreateTable-Methode zu Erzeugen der Tabelle aufrufen }
  CreateTable;
  end;
end;

ich hab schon so ziemilch alles durchsucht(vl. war ich auch zu blöd zum suchen...) und muss den teil des Projektes (wahr ursprünglich nicht mein teil...) schon morgen fertig haben.

Hab mich bisher noch ned mit dieser art von Datenbank beschäftigt.

Schon mal vielen Dank im voraus :D

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Narses - Do 04.09.08 19:47

Moin!

Hab das in einem alten Projekt gefunden:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

var
  Matrix: TTable;
//...
begin
  try
    with Matrix do begin
      Active := FALSE;
      TableType := ttParadox;
      TableName := DB_MATRIX;
      with FieldDefs do begin
        Clear;
        with AddFieldDef do begin
          Name := 'PROFIL';
          DataType := ftString;
          Size := 20;
          Required := TRUE;
        end;
        for i := 0 to FktDef.Count-1 do
          with AddFieldDef do begin
            Name := FktDef.Strings[i];
            DataType := ftString;
            Size := 1;
          end;
      end;
      CreateTable;
    end;
  except
    MessageDlg('Fehler beim Anlegen der Matrix-Tabelle!?',mtError,[mbOK],0);
  end;

Damals hat´s funktioniert... :nixweiss:

cu
Narses

Narses - Do 04.09.08 20:31

Moin!

Gorax hat folgendes geschrieben:

thx^^, meine nächste frage: Wie lasse ich ihn auf den Order anzeigen :D
Wie muss ich da schreiben?

Geht so: ;)

Delphi-Quelltext

1:
2:
3:

Filename := 'C:\Test\Tabelle.db';
Table.Databasename := ExtractFilePath(Filename);
Table.Tablename := ExtractFileName(Filename);

cu
Narses

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!