我的课程设计就要交了，可是我还有几个重要问题没解决，大家帮帮我啊！之一 (100分)

谁能告诉我怎么在DELPHI中创建ACCESS表，

最好写出程序段，我对这方面的知识知道的急少，越详细越好！

一下程序段是创建一个字段的，由一个按钮触发，编译无误，但在执行时我没有看到新创建
的字段，而且连原有的字段也没了，那位高手可以帮我看看这段程序应该怎么改，或者改哪
个控件的属性？ 该程序段不但可以创建PARADOX表，在ACCESS中也适用，谢谢大家帮忙！

以下是我对这几条语句的理解，请指教。
with table1 do
begin
active:=false;
databasename:='D:/';// 这条语句是不是创建表的路径
tabletype:=ttparadox; // 这条语句是不是创建表的表的类型
tablename:='custinfo'; // 这条语句是不是创建表的创建表的名字，
// 可是我在D:/为什么找不到CUSTINFO这个文件
if not table1.exists then // 如果TABLE1不存在就执行下面的语句，
// 为什么将TABLE1改为TABLE2就编译出错？
begin
with fielddefs do
begin
clear;
with addfielddef do //创建字段
begin
name:='field1'; //定义字段名为FIELD1
datatype:=ftinteger; //定义字段类型
required:=true; //这条语句不知道什么意思！
end;
with addfielddef do
begin
name:='field2';
datatype:=ftstring;
size:=30;
end;
end;
with indexdefs do
begin
clear;
with addindexdef do
begin
name:='';
fields:='field1';
options:=[ixprimary]; //同上！
end;
with addindexdef do
begin
name:='fld2indx';
fields:='field2';
options:=[ixcaseinsensitive]; //同上
end
end;
end;
//如果在这里加上个active:=true;为什么运行出错？

end;
//加上CRETEABLE；创建的表也是一个空表啊，没有字段！

end;
end.


如果真的对这个问题很清楚的高手可以给我EMAIL一个学籍管理系统的例子，只看原程序是不
可能知道里面每一个控件的具体属性的，我认为我的要求很简单啊！我的同学用VB 都可以
解决的问题我不相信用DELPHI不能解决，我只不过要做一个可以实现班级录入，课程录入，
学生录入，成绩录入，班级课程设置的简单程序罢了，希望大家帮个忙，程序运行成功
马上付分，谢谢！

我的EMAIL ：ymmmz@163.com

PARADOX和ACCESS根本是两回事，怎么能通用？
用SQL语句创建一个空表，再逐个字义和添加字段！
我没试过，相当然的想法：）

Delphi本身帮助中就有如何建表

sql:='create table t1(id integer not null,
name varchar(10) not null,
grade varchar(10) )';
adoconnection.exec(sql);

你的语句里
在最后缺少了一句 createtable;
所以，打开（active:=true）时当然要出错了，而且也没有生成表

我想知道的关键是怎样在使用ACCESS作为数据库的程序在运行时创建表，并可根据需要修
改表的字段，我是个DELPHI新手，那里写的不明白请留言，答复请尽可能的详细写，

虽然我没有的到答案但朋友的回答给我我些启发，谢谢！