在DELPHI里怎么创建ACCESS数据表？请各位帮个忙

Question

多谢！

Answer 1

创建Access数据库
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()
   )'
Adoquery.close;
Adoquery.sql.clear;
adoquery.sql.add(SQL 建表命令)
adoquery.execsql;

Answer 2

CREATE TABLE mylogintable
   ( 
    date_in datetime,
    user_id int,
    myuser_name AS USER_NAME()
    first_name char(5)
   )

Answer 3

procedure TForm1.Button2Click(Sender: TObject);
var
  SL: TStrings;
  index: Integer;
  bHas:Boolean;
begin
  SL := TStringList.Create;
  ADOConnection2.GetTableNames(SL, False);
  bHas:= False;
  for index := 0 to (SL.Count - 1) do
  begin
    if AnsiUpperCase(SL[index])=AnsiUpperCase ('operatorhistory') then
    begin
      bHas  := True;
      application.MessageBox(pchar('数据表operatorhistory已存在！'),'错误！',MB_OK+MB_ICONERROR);
      break;
    end;
   end;
   if not bHas then
   begin
      adocommand1.commandtext :='create table operatorhistory(LineNum counter primary key ,CardNum string(8)  ,ClientNum int,CardType string(1) ,Name string(20) , '
                    +'Sex string(3) ,IDNO string(32) ,IDType string(1),Address string(64) ,ComputerNO string(8) ,Balance currency,BeginTime datetime, '
                    +'Endtime datetime,Expenditure currency )';
      adocommand1.execute;
      application.MessageBox(pchar('数据表operatorhistory创建完成！'),'信息！',MB_OK+MB_ICONINFORMATION);
   end;
end;
原码送上,谢谢各位