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:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:

procedure TForm2.FormCreate(Sender: TObject);
var n : smallint;
begin
  bordericons := bordericons - [biminimize];
  home := getcurrentdir;
  showmessage('HOME = ' + home);
  label1.Caption := 'Hier werden die Punkte  ( = Summe ) eingetragen ' + #13 +
                    '     [und evtl. neue Schüler]' + #13 + #13 +
                    '  zur Auswertung --> den Button  [weiter]  betätigen';
  opendialog1.Filter := 'DBDateien (*.dbf)|*.dbf';

  ADOConnection1.ConnectionString :=
        'Provider=MSDASQL.1;Persist Security Info=False;User ID=an;'+
        'Data Source=dBASE-Dateien;'+
        'Initial Catalog=G:\BundesjugendspieleD;';

  ADOConnection1.CursorLocation := clUseClient;
  ADOConnection1.Mode := cmReadWrite;
  ADOConnection1.Provider := 'MSDASQL';

  ADODataset1.Connection := ADOConnection1;
  ADODataset1.CursorLocation := clUseClient;
  ADODataset1.DataSource := DataSource1;

  ADOTable1.Connection := ADOConnection1;
  ADOTable1.CursorLocation := clUseClient;

  if not fileexists(concat(home, '\', 'schule.dbf')) then
  begin
    if opendialog1.Execute then
    begin
      ADOtable2.Active := false;
        ADOtable2.TableName := opendialog1.filename;
          //ADOtable2.DatabaseName := 'schuelertss';  //'';
        ADOtable2.readonly := false;
      ADOtable2.active := true;

      chdir(home);

      with ADOTable1 do
      begin
        Active := False;
        //DatabaseName := '';  // !!!
        TableName := concat(home, '\', 'schule.dbf');
        //TableType := ttDefault;  //ttDBase;
        FieldDefs.Clear;
        FieldDefs.Add('Name',       ftString,   25, False);
        FieldDefs.Add('Vorname',    ftString,   25, False);
        FieldDefs.Add('Klasse',     ftString,    5, False);
        FieldDefs.Add('Geschlecht', ftString,    1, False);
        FieldDefs.Add('Gebdat',     ftString,   10, False); //ftDate ??
        FieldDefs.Add('Punkte',     ftinteger);
        //CreateTable;
        active := true;
      end;

      ADOtable2.First;
      while not ADOtable2.Eof do
      begin
        ADOtable1.append;
        ADOTable1.fieldbyname('NAME').asstring :=       ADOtable2.fieldbyname('NAME').asstring;
        ADOTable1.fieldbyname('VORNAME').asstring :=    ADOtable2.fieldbyname('VORNAME').asstring;
        ADOTable1.fieldbyname('KLASSE').asstring :=     ADOtable2.fieldbyname('KLASSE').asstring;
        ADOTable1.fieldbyname('GESCHLECHT').asstring := ADOtable2.fieldbyname('Geschlecht').asstring;
        ADOTable1.fieldbyname('GEBDAT').asstring :=     ADOtable2.fieldbyname('gebdat').asstring;
        ADOTable1.fieldbyname('PUNKTE').asinteger :=    0;
        ADOtable1.Post;
        ADOtable2.Next;
      end;
      showmessage('Tabelle ' + ADOtable1.TableName + ' ist erzeugt im Verzeichnis:' + getcurrentdir);
    end
  end;

  with ADOTable1 do
  begin
    Active := False;
      //DatabaseName := '';  // !!!
      TableName := concat(home, '\', 'schule.dbf');
    active := true;
  end;
  showmessage('Tabelle ' + ADOtable1.TableName + ' ist geladen aus Verzeichnis:' + getcurrentdir);

                         /////// Hier kommt die Fehlermeldung!

  //datasource1.dataset := ADOtable1;
  form1.Label21.Caption := extractfilename(ADOtable1.TableName);  //opendialog1.filename;
  sanz := ADOtable1.recordcount;
  form1.Label22.Caption := home;

  for n := 0 to dbgrid1.FieldCount-1 do
    dbgrid1.Columns[n].ReadOnly := true;
  dbgrid1.Columns[5].ReadOnly := false;
  dbgrid1.PopupMenu := NIL;

  listbox1.ItemIndex := 2;
  stringgrid1.Cells[0,0] := 'Nr';
  stringgrid1.Cells[1,0] := 'Punkte';
  stringgrid1.Cells[2,0] := 'Geschlecht';
  stringgrid1.Cells[3,0] := 'Klasse';
  stringgrid1.Cells[4,0] := 'Name';
  stringgrid1.Cells[5,0] := 'Vorname';

end;

procedure Tform2.qq1(sender:tobject);
begin
  //ADOquery1.DatabaseName := ADOtable1.DatabaseName;
  ADOquery1.Close;
    ADOquery1.SQL.Text := format('select * from "%s" order by klasse, name, vorname', [ADOTable1.tablename]);
  ADOquery1.Open;
end;                    

1:

ADOquery1.SQL.Add('select * from '+ADOTable1.tablename+' order by klasse, name, vorname');