以编程方式创建“自动编号”字段并将其“新值”属性设置为“随机”

时间:2008-10-07 12:05:20  来源:第二电脑网上收集  作者:

  第二电脑网导读:(.mdb)。 概要本文阐明如何以编程方式在 Microsoft Access 表中创建一个“自动编号”字段,并将该字段的新值属性设置为随机。 更多信息
  正文:
适用于
中级用户:要求具备基本的宏、编码和互操作技能。

本文仅适用于 Microsoft Access 数据库 (.mdb)。

概要

本文阐明如何以编程方式在 Microsoft Access 表中创建一个“自动编号”字段,并将该字段的新值属性设置为随机

更多信息

要以编程方式创建一个“自动编号”字段并将该字段的新值属性设置为随机,请按照下列步骤操作:
  1. 启动 Microsoft Access。
  2. 文件菜单上,单击新建。在新建文件任务窗格中,单击空数据库。键入该数据库的路径和文件名,然后单击创建
  3. 视图菜单上,指向数据库对象,然后单击模块。单击新建
  4. 将下面的示例代码键入到新模块中:
    Sub CreateRandomAutonumber()' Create database, tabledef, and field objects.Dim db As DAO.DatabaseDim td As DAO.TableDefDim f As DAO.Field' Set the database object to the current database.' Set the tabledef object to a new table named Table1.' Set the f (field) object to a new field in Table1 named MyAutoNumber.Set db = CurrentDbSet td = db.CreateTableDef("Table1")Set f = td.CreateField("MyAutoNumber")' Set the type and auto-increment properties for the Table1 field named ' MyAutoNumber.f.Type = dbLongf.Attributes = dbAutoIncrField' Append the MyAutoNumber field to Table1.td.Fields.Append f' Create a new text field in Table1.Set f = td.CreateField("MyTextField")' Set the type property for MyTextField.f.Type = dbText' Append the MyTextField field to Table1.td.Fields.Append f' Append the Table1 tabledef to the database.db.TableDefs.Append td' Set the default value for MyAutoNumber to a random number function.td.Fields("MyAutoNumber").DefaultValue = "GenUniqueID()"' Refresh the database window.Application.RefreshDatabaseWindowEnd Sub					
此示例代码将执行以下任务:
  • 将字段的 Type 属性设置为 dbLong,并将字段的 Attributes 属性设置为 dbAutoIncrField
  • 将新的 TableDef 追加到 TableDefs 集合中。
  • 将字段的 DefaultValue 属性设置为 GenUniqueID()

参考

有关本文中使用的方法的更多信息,请在 Visual Basic 编辑器中,单击帮助菜单中的 Microsoft Visual Basic 帮助,在 office/ target=_blank class=infotextkey>Office 应答向导助理中键入下列主题之一:
  • createtabledef 方法
  • createfield 方法
  • append 方法
然后,单击搜索查看该主题。

"以编程方式创建“自动编号”字段并将其“新值”属性设置为“随机”"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/2977.html


关键字:

关于《以编程方式创建“自动编号”字段并将其“新值”属性设置为“随机”》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td