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:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer; s: string;
  function getAccessType(fd: TFieldDef): string;
  var ft: TFieldType;
  begin
      memo1.Visible:=True;
      FoundFiles.Visible:=false;

      ft := fd.DataType;
    case ft of
      ftAutoInc: Result := 'COUNTER';
      ftString: Result := 'TEXT(' + IntToStr(fd.Size) + ')';
      ftSmallint: Result := 'SMALLINT';
      ftInteger: Result := 'INTEGER';
      ftWord: Result := 'WORD';
      ftBoolean: Result := 'YESNO';
      ftFloat: Result := 'FLOAT';
      ftCurrency: Result := 'CURRENCY';
      ftDate, ftTime, ftDateTime: Result := 'DATETIME';
      ftBlob, ftGraphic: Result := 'LONGBINARY';
      ftMemo, ftFmtMemo: Result := 'MEMO'
    else
      Result := 'MEMO'
    end
  end;
begin

  Table1.TableName := dbfname;
  Table1.FieldDefs.Update;
  s := 'CREATE TABLE ' + Table1.TableName + ' (';
  with Table1.FieldDefs do begin
    for i := 0 to Count - 1 do begin
      s := s + ' ' + Items[i].Name; s := s + ' ' + getAccessType(Items[i]);
      s := s + ','
    end;
    s[Length(s)] := ')'
  end;
  Memo1.Clear; Memo1.Lines.Add(s);
  button2.Enabled := true;
  AccessTabelleinDatenbankerstellen1.Enabled:=true;
  StatusBar.SimpleText:='SQL Anweisung erfolgreich erzeugt'
  end;                    

1:

CREATE TABLE ARTIKEL ( ARTNR TEXT(25), MATCH TEXT(36), ARTBEZ1 TEXT(50), ARTBEZ2 TEXT(50), KURZ TEXT(3), ERSATZ TEXT(16), EINHEIT TEXT(10), WGR TEXT(10), HERSTELLER TEXT(25), LIEFERANT TEXT(20), SYMBOLNR TEXT(3), SYMBOLDAT TEXT(2), MAKRO TEXT(16), BESTAND FLOAT, MBESTAND FLOAT, X FLOAT, Y FLOAT, Z FLOAT, ZEIT FLOAT, LOHNK FLOAT, MWST FLOAT, EK FLOAT, VK FLOAT, KNG TEXT(3), LAGERORT TEXT(10), LAND1 TEXT(50), LAND2 TEXT(50), LAND3 TEXT(50), LAND4 TEXT(50), LAND5 TEXT(50), ARTBEZ3 TEXT(50), MATKEY TEXT(30), MKZ TEXT(1), GEWICHT FLOAT, WAEHRUNG TEXT(3), ZUSARTNR TEXT(5), TEILEART TEXT(1), PRODUKTGR TEXT(3), BEMERKUNG TEXT(20), STATUS TEXT(1), STATNR TEXT(11), ERFASSER TEXT(20), ERFDAT DATETIME, AENDERNAME TEXT(20), AENDERDAT DATETIME, DOKVERW TEXT(80), BESTANDKZ TEXT(3), GEWICHTKZ TEXT(1), ENTSPRICHT TEXT(16), BAUFORM TEXT(20), TECHDAT TEXT(20), TDAT MEMO)                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    ADOCommand1.CommandText := 'DROP TABLE ' + combobox1.text;
    ADOCommand1.Execute
  except
  end;
  ADOCommand1.CommandText := Memo1.Text;
  ADOCommand1.Execute;
  button3.Enabled := true;
  DatenKopieren1.Enabled:=true;
  StatusBar.SimpleText:='Tabelle wurde erstellt';
  end;                    

1:

ftFloat: Result := 'FLOAT';                    

1:

ftFloat: Result := 'DOUBLE';                    

1:

CREATE TABLE ARTIKEL ( ARTNR TEXT(25))                    

1:

CREATE TABLE ARTIKEL ( MATCH TEXT(25))                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender: TObject);

var   cmd : TAdoCommand;
begin
  ADOConnection1.Connected := True;
  cmd := TAdoCommand.Create (nil);
  cmd.Connection := ADOConnection1;

  cmd.CommandText := 'create table test ([MATCH] text(25))';
  cmd.CommandType := cmdText;
  cmd.Execute; 
end;