临时代码

var
  access, t: OleVariant;
  tmpQuery: TADOQuery;
  FTable: _Table;
  FCatalog: _Catalog;
  FIndex: _Index;
  I: Integer;
  pty: adox_tlb.Property_;
  pties: adox_tlb.Properties;
  vrs: _Recordset;
begin
  DeleteFile(‘s:\temp.mdb‘);

  FCatalog := CoCatalog.Create;
  FCatalog.Create(GetAdoAccConStr(‘s:\temp.mdb‘));

  FTable := CoTable.Create;
  FTable.ParentCatalog := FCatalog;
  FTable.Name := ‘test‘;

  FTable.Columns.Append(‘ISBN‘, adVarWChar, 50);
  FTable.Columns.Append(‘Price‘, adInteger, 4);
  FTable.Columns.Append(‘date‘, adDate, 0);
//  FCatalog.Tables[‘test‘].Columns[‘ISBN‘].Properties[‘‘]
  FTable.Columns[‘ISBN‘].Properties[‘Jet OLEDB:Allow Zero Length‘].Value := False;

  FIndex := CoIndex.Create;
  with FIndex do
  begin
    Name := ‘ISBN‘;
    PrimaryKey := True;
    Unique := True;
    Columns.Append(‘ISBN‘, adVarWChar, 50);
  end;

  FTable.Indexes.Append(FIndex, EmptyParam);
  FCatalog.Tables.Append(FTable);

  pties := FTable.Columns[‘date‘].Properties;

  for I := 0 to pties.Count - 1 do
  begin
    pty := pties.Item[I];
    Memo1.Lines.Add(  pty.Name + ‘-‘ + VarToStr(pty.Value));
  end;
  Exit;
  access := CreateOleObject(‘ADOX.Catalog‘);
  access.Create(‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=s:\temp.mdb‘);

  tmpQuery := TAdoQuery.Create(nil);
  try
    tmpQuery.ConnectionString :=
      ‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=s:\temp.mdb;Persist Security Info=True‘;
    with tmpQuery do
    begin
      Close;
      Sql.Clear;
      Sql.Add(‘CREATE TABLE T_test ‘);
      Sql.Add(‘( ‘);
      Sql.Add(‘t_a1 varchar(10), ‘);
      Sql.Add(‘t_a2 varchar(20) ‘);
      Sql.Add(‘)‘);
      ExecSql;
    end;
      //其实这里有 值的  ，和下面一样
    //下面一句 必须
    access.activeconnection :=
      ‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=s:\temp.mdb;Persist Security Info=True‘;

    access.Tables[‘T_Test‘].Columns[‘t_a1‘].Properties(‘Jet OLEDB:Allow Zero Length‘) := true;
    access := Null;

    MessageBox(HANDLE, ‘成功创建。‘, ‘提示‘, MB_OK or
      MB_ICONINFORMATION);
  finally
    tmpQuery.Free;
  end;
end;

procedure TFormLOrder.Button3Click(Sender: TObject);
var access, tbl:OleVariant;
  tmpQuery:TADOQuery;
begin
  DeleteFile(‘s:\temp.mdb‘);
  access := CreateOleObject(‘ADOX.Catalog‘);
  access.Create(‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=s:\temp.mdb‘);
  try

    tbl := createOleobject(‘ADOX.Table‘);
    tbl.Name := ‘T_Test‘;
    tbl.Columns.Append(‘t_a1‘);
    tbl.Columns.Append(‘t_a2‘);
    access.Tables.append(tbl);

    access.Tables[‘T_Test‘].Columns[‘t_a1‘].Properties(‘Jet OLEDB:Allow Zero Length‘):=true;
    access := Null;

    MessageBox(HANDLE,‘成功创建。‘,‘提示‘,MB_OK or MB_ICONINFORMATION);
  finally
    tmpQuery.Free;
  end;
end;