access找不到输入表或者dual_sql – MS Access中的无桌面UNION查询(Jet/ACE)

你没有忽视任何东西。 Access“数据库引擎将允许单行SELECT而不使用FROM数据源。但是，如果要连接UNION或UNION ALL多行，则必须包括FROM …即使您没有引用该数据源的任何字段。

我创建了一行，并添加了一个检查约束，以保证它总是只有一行。

Public Sub CreateDualTable()

Dim strSql As String

strSql = "CREATE TABLE Dual (id COUNTER CONSTRAINT pkey PRIMARY KEY);"

Debug.Print strSql

CurrentProject.Connection.Execute strSql

strSql = "INSERT INTO Dual (id) VALUES (1);"

Debug.Print strSql

CurrentProject.Connection.Execute strSql

strSql = "ALTER TABLE Dual" & vbNewLine & _

vbTab & "ADD CONSTRAINT there_can_be_only_one" & vbNewLine & _

vbTab & "CHECK (" & vbNewLine & _

vbTab & vbTab & "(SELECT Count(*) FROM Dual) = 1" & vbNewLine & _

vbTab & vbTab & ");"

Debug.Print strSql

C