ACCESS数据库修改自动编号的ID值

针对ACCESS数据库,有时候因删除内容导致ID跳号,或者其他原因,想修改自动编号的ID,怎么操作呢?

以下是我的修改方法,是可行的,与大家分享一下:(操作之前,一定要备份数据库,防止意外发生,呵呵)

  1. 备份ACCESS数据库(这个是必须的)

  2. 打开数据库,右键点击要修改ID值的表A,打开“设计视图”,将ID字段的数据类型由“自动编号”改为“数字”,关闭保存。

  3. 然后打开表A,修改ID值,也可以修改已存在的其他数据。修改完毕后关闭表。(此刻ID字段是不能改回“自动编号”数据类型的)

  4. 右键单击表A,选择“复制”,然后右键点一下空白处,选择“粘贴”,表名随便写,如“AA”,下面选择“只粘贴结构”,然后点确定生成新表AA。

  5. 选中表AA,打开“设计视图”。把ID字段的数据类型改为“自动编号”,关闭保存。(此刻表AA是没有数据的,所以可以修改成功)

  6. 右键单击表A,选择“复制”,然后右键点一下空白处,选择“粘贴”,表名写刚生成的新表“AA”,下面选择“将数据追加到已有的表”,最后点确定。

  7. 然后将原表A改名为A111,将表AA改名为A。这样就实现了用新表替换旧表,仅ID值修改,其他内容不变。(提示:原来的表A可以不用改名,直接删除。但是我建议先改名作为备份,等新表测试成功后再删除)

此操作可以举一反三,不仅可以改ID值,也可以改其他数据类型,大家自由发挥

http://xcecd.blog.163.com/blog/static/6796675200873051556147/

ASP中RegExp对象正则表达式语法

ASP正则表达式,RegExp对象提供简单的正则表达式支持功能。

RegExp对象的用法:
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ’ 建立变量。
Set regEx = New RegExp ’ 建立正则表达式。
regEx.Pattern = patrn ’ 设置模式。
regEx.IgnoreCase = True ’ 设置是否区分字符大小写。
regEx.Global = True ’ 设置全局可用性。
Set Matches = regEx.Execute(strng) ’ 执行搜索。
For Each Match in Matches ’ 遍历匹配集合。
RetStr = RetStr & Match found at position
RetStr = RetStr & Match.FirstIndex & . Match Value is ’
RetStr = RetStr & Match.Value & ’. & vbCRLF
Next
RegExpTest = RetStr
End Function

MsgBox(RegExpTest(is., IS1 is2 IS3 is4))  Continue reading