如何动态创建Access数据库及表？

Question

创建数据库有些眉目了，我用ADOX OLE对象创建库成功，但如何再见表呢？？具体实现出问题了。请指教。

Answer 1

具体实现不了，看过VC++的例子（ADO帮助里）不懂，麻烦给谢谢看看吧，谢谢！

Answer 2

用DDL SQL语句，直接Create Table就很方便。

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  CreateAccess: OleVariant;
begin
  if fileExists('c:\access2000.mdb') then
    showmessage('该文件已经存在')
  else
  begin
    CreateAccess := CreateOleObject('ADOX.Catalog');
    CreateAccess.create('Provider=Microsoft.Jet.OleDB.4.0;data source=c:\access2000.mdb;Jet OLEDB:Database Password=''mypiip''');
    showmessage('创建成功');
  end;
end;end.

Answer 4

同意zhuimengrencn(影子) 
创建表用:"create table tablename (field1 byte,....);"

Answer 5

procedure TForm1.BitBtn6Click(Sender: TObject);
var
  DirStr:String;
begin
  DirStr:='C:\数据库上机';
  if not DirectoryExists(DirStr) then
    if not CreateDir(DirStr) then
    raise Exception.Create('Cannot create '+DirStr);
  CreateDb(DirStr+'\教学管理.mdb');
end;

Answer 6

连上库，用SQL建表不就OK了！

Answer 7

yousoft(悠游在线) 说的对！