在访问和/或 DAO 中创建检查约束

Question

我正在尝试在访问（jet？）表上创建检查约束。

因此，我使用访问权限打开 .mdb 文件，进入查询 -> 在设计视图中创建查询， 输入 esc，然后菜单->视图->查询，最后输入

create table X ( 一个数字， 检查（a>20） ）

但访问认为我有“字段定义中的语法错误”。然而，我不这么认为。因此我的问题是：是否可以创建具有访问权限的检查约束。如果是这样：如何。

此外，我想使用 dao/vba 创建约束，而不是在 GUI 上。这可能吗？

最后，稍微相关一点：如何在 access 中输入 sql 语句。我无法想象我必须使用查询 - >设计视图 - >查询 - >视图路线才能做到这一点。我习惯了Oracle的SQL*Plus，我非常喜欢它，并且我希望也有类似的访问功能。

感谢您的任何意见 雷内

Answer 1

这里有一些注意事项。

您可以为 Oracle 创建传递查询（选择菜单“查询”>“SQL 特定”>“传递”）

从 Access 2003 开始​​，您可以选择 SQL Server 兼容语法 (ANSI 92) (http://office.microsoft.com/en-us/access/HA010345621033.aspx)

使用 VBA / DAO 的验证规则

''Reference: Microsoft DAO x.x Object Library

Dim tdf As TableDef
Dim db As Database

Set db = CurrentDb

Set tdf = db.TableDefs("Table1")

tdf.Fields("aDouble").ValidationRule = "<10"
tdf.Fields("aDouble").ValidationText = "Must be less than 10"

使用 ADO / VBA 的约束。请参阅 [中级 Microsoft Jet SQL for Access 2000](http ://msdn.microsoft.com/en-us/library/aa140015(office.10).aspx)

''Reference: Microsoft ADO Ext. x.x for DDL and Security

Dim cn As ADODB.Connection 'For action queries
Dim rs As ADODB.Recordset  'For select queries
Dim s As String
Dim RecordsAffected As Long

Set cn = CurrentProject.Connection

''You can store sql in a table
s = DLookup("SQLText", "sysSQL", "ObjectName='q1'")
''Result: CREATE TABLE tblCreditLimit (LIMIT DOUBLE)
cn.Execute s, RecordsAffected
Debug.Print RecordsAffected

''You can run queries from VBA
s = "INSERT INTO tblCreditLimit VALUES (100)"
cn.Execute s, RecordsAffected
Debug.Print RecordsAffected

s = "CREATE TABLE tblCustomers (CustomerID COUNTER, CustomerName Text(50))"
cn.Execute s, RecordsAffected
Debug.Print RecordsAffected

s = "INSERT INTO tblCustomers VALUES (1, 'ABC Co')"
cn.Execute s, RecordsAffected
Debug.Print RecordsAffected

s = "ALTER TABLE tblCustomers " _
   & "ADD COLUMN CustomerLimit DOUBLE"
cn.Execute s, RecordsAffected
Debug.Print RecordsAffected

''You can add contraints using ADO like so:
s = "ALTER TABLE tblCustomers " _
   & "ADD CONSTRAINT LimitRule " _
   & "CHECK (CustomerLimit <= (SELECT LIMIT " _
   & "FROM tblCreditLimit))"
cn.Execute s, RecordsAffected
Debug.Print RecordsAffected

s = "UPDATE tblCustomers " _
   & "SET CustomerLimit = 200 " _
   & "WHERE CustomerID = 1"
''Error occurs here
cn.Execute s, RecordsAffected

s = "UPDATE tblCustomers " _
   & "SET CustomerLimit = 90 " _
   & "WHERE CustomerID = 1"
cn.Execute s, RecordsAffected
Debug.Print RecordsAffected

''Clean up
''You cannot do this through the database window,
''because of the constraint.
s = "ALTER TABLE tblCustomers DROP CONSTRAINT LimitRule "
cn.Execute s, RecordsAffected
Debug.Print RecordsAffected

s = "DROP TABLE tblCustomers "
cn.Execute s, RecordsAffected
Debug.Print RecordsAffected

s = "DROP TABLE tblCreditLimit "
cn.Execute s, RecordsAffected
Debug.Print RecordsAffected

Answer 2

列上有验证规则。
您可以使用 VB for Access。这里没有 SQL*Plus...
您始终可以使用 SQL Express 作为数据源 - 具有真正 sql server 的所有优点，并且仅将访问用作前端。

Answer 3

要在 Access 中执行此操作，您需要首先打开界面进入 ANSI-92 查询模式。我已经测试了您的 SQL DDL 代码：它工作正常并创建了一个 FLOAT （双精度）类型的列。

使用 DAO 无法做到这一点，但可以使用 ADO。长话短说：在 Jet 4.0 时代，当访问团队偏爱 ADO 时，CHECK 约束被引入到引擎中。从 Access2007 开始，Access 团队重新开始青睐 DAO，但尚未堵塞 DAO 中的 Jet 4.0“漏洞”。因此，对于大多数 Jet 4.0 独有的功能（可压缩数据类型、固定长度文本数据类型、快速外键等），您需要使用 ADO。

Answer 4

您不能在查询生成器中使用标准 ANSI，除非您将数据库设置为 sql ansi 兼容。如果您确实更改了此设置，那么您可以像您一样在查询生成器中使用 sql。但是，我不建议更改现有数据库的此设置。

如果你这样做，你可以输入：

CREATE TABLE z1 
       (id int IDENTITY , FirstName CHAR, LastName CHAR, SSN INTEGER ,
check (id < 20),  
constraint Mypk primary key (id) )

In you don't need to save the sql in the query builder, and just 想输入 sql，然后简单地敲击 ctrl-g 来获取访问命令行提示符，然后你就可以然后输入：

currentproject.Connection.Execute "CREATE TABLE
    z1(id int IDENTITY , FirstName CHAR, LastName CHAR, SSN INTEGER ,
    check (id < 20),
    constraint Mypk primary key (id) )"

上面的内容将在一行中输入。因此，如果需要，您可以使用命令行提示符。