从ADO / OleDb执行时,Access支持CREATE VIEW.此代码段有效,因为CurrentProject.Connection是一个ADO对象…
Dim strSql As String
strSql = "CREATE VIEW NHTrips AS" & vbCrLf & _
"SELECT TripID, TripName, StartLocation, State, Distance, MaxGrpSize, Type, Season" & vbCrLf & _
"FROM Trip" & vbCrLf & _
"WHERE State = 'NH';"
CurrentProject.Connection.Execute strSql
但是,尝试从DAO执行相同的语句会触发错误#3290“CREATE TABLE语句中的语法错误”. …
CurrentDb.Execute strSql ' CurrentDb refers to a DAO Database object
这意味着如果您尝试从查询设计器执行该语句,则会收到相同的错误,因为它使用DAO.
如果您可以使用CREATE VIEW之外的其他内容,请考虑使用CreateQueryDef方法使用SQL SELECT语句创建查询…
strSql = "SELECT TripID, TripName, StartLocation, State, Distance, MaxGrpSize, Type, Season" & vbCrLf & _
"FROM Trip" & vbCrLf & _
"WHERE State = 'NH';"
CurrentDb.CreateQueryDef "NHTrips", strSql