在程序中怎样生成Access数据库文件，和怎样生成表字段？急

Question

在程序中怎样生成Access数据库文件，和怎样生成表字段？急

Answer 1

procedure CreateAccessFile(const FileName:string);
var cAccess:variant;
    ok:Boolean;
begin
  try
    if FileExists(filename) then deletefile(filename);
    CAccess := CreateOleObject('ADOX.Catalog');
    CAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+filename);
    ok:=True;
  except
     ok:=False;
  end;
  if ok then ShowMessage('成功')
  else ShowMessage('失败');
end;
创建Access数据库
可以使用Adoquery组件
SQL 建表命令:='CREATE TABLE mylogintable
   ( 
    date_in datetime,
    user_id int,
    myuser_name AS USER_NAME()
   )'
创建表
CREATE TABLE mylogintable
   ( 
    date_in datetime,
    user_id int,
    myuser_name AS USER_NAME()
    first_name char(5)
   )