送：100 分！我想请问一下如何用 DELPHI 自带的控件或命令创建 ACCESS 当中的表！紧用！谢谢！(100分)

我想请问一下如何用 DELPHI 自带的控件或命令创建 ACCESS 当中的表！紧用！谢谢！

ADO创建access数据库和表的例子：
procedure Tform1.CreateDb(DbName: string);
var
Dbnew:OleVariant;
begin
if FileExists(DbName) then
begin
if MessageBox(Application.Handle,PChar('数据库 '
+ DbName + ' 已存在！'+ #13#10 +'是否覆盖？'),
'警告',MB_YESNO + MB_ICONWARNING) = idNo then exit;
if not DeleteFile(DbName) then
begin
MessageBox(Application.Handle,
PChar('不能删除数据库：' + DbName),
'错误',MB_OK + MB_ICONERROR);
exit;
end;
end;

dbnew:=CreateOleObject('ADOX.Catalog');
dbnew.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DbName);
//以上建库，以下建表
adoq1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+dbname+';Persist Security Info=False';
adoq1.Close;
adoq1.SQL.Clear;
adoq1.SQL.add('Create Table 测试2 (ID INT PRIMARY KEY not null,'
+'姓名 char(8) not null,年龄 INT not null)');
adoq1.ExecSQL;
adoq1.Close;
adoq1.SQL.Clear;
adoq1.SQL.add('Create UNIQUE Index IDIndex ON 测试2 (ID)');
adoq1.ExecSQL;
adoq1.Close;
adoq1.SQL.Clear;
adoq1.SQL.add('Create Index xmIndex ON 测试2 (姓名)');
adoq1.ExecSQL;
adoq1.Close;
adoq1.SQL.Clear;
adoq1.SQL.add('Create Index nlIndex ON 测试2 (年龄)');
adoq1.ExecSQL;
MessageBox(Application.Handle,
PChar('数据库：' + DbName+'创建完成'),
'OK',MB_OK + MB_ICONWARNING);
end;
动态创建、压缩Access数据库(*.MDB)

声明：这是前无古人，后无来者的解决方案(有点吹，但是我实在太激动了！)，希望各位能多多关照
创建Access数据库几乎是所有Delphi+Access所遇到的难题，我经过两头(昨天上午到现在)的艰苦奋战，终于将它全部解开，现在一一奉献给大家：

一、通过OLE方式创建
相信各位都用通过OLE方式访问Word、Excel文件的经历，具体我不说太多，直接把具体代码写出来就完了
在引用部分加入：
uses ComObj;
实现部分：
procedure TFormOffice.BitBtn1Click(Sender: TObject);
var
CreateAccess:OleVariant;
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/Aceco.mdb');
end;

说明：
1、在C:/下创建Aceco.mdb；
2、是Access2000格式，用Access97打不开；
3、系统需安装MDAC，这是好消息，客户不需安装Access也可以

二、通过DBEngine创建
这才是关键中的关键，是我一定要写出来的原因！
各位是否还记得安装Delphi的时候，如果你选择自定义安装(我一般用Delphi写控件，所以当然是越小越好)，会有很多安装选项，让你选择Access97或Access2000，还有MDAC等，问题就在这里！Delphi5.0中早就封装了现成的类，只是大家都没有注意而已它位于：
$Delphi5/Imports
目录下！
其中有DAO97.DCU文件，它是通过DAO350.DLL来完成的，其中的定义部分和DAO350.DLL如出一辙！OK，到现在，所有的一切都明白了(可惜我花了一天时间！)。那么具体实现起来就太方便了，具体过程如下：
在引用部分加入：
uses DAO97;
实现部分：
procedure TFormOffice.BitBtn4Click(Sender: TObject);
var
EngineBEngine;
begin
Engine:=CoDBEngine.Create;
Engine.CreateDatabase('c:/NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);
end;

请问一下大哥！adoq1 是哪个控件？谢谢！我正在线等您的回复！

不用了！不用了！我知道了！呵呵！多谢张大哥！送您老人家 100 分！