Question

用vb在access数据库中创建一个视图（就是创建个查询），代码怎么写？高手帮忙看下。谢谢！

Dim cmdText As String
cmdText = "CREATE VIEW Query4 AS SELECT AD_ORDER_DETAILS.CSV_CustomerName, AD_ORDER_DETAILS.CSV_OrderNumber, AD_ORDER_DETAILS.CSV_ItemNumber, AD_REPORT_DATA.PartType, AD_REPORT_DATA.PartWidth, AD_REPORT_DATA.PartLength, AD_REPORT_DATA.PartItemNumber, AD_REPORT_DATA.PartQuantity, AD_REPORT_DATA.SheetName, AD_REPORT_DATA.PK, AD_ORDER_DETAILS.ProductionComment, AD_ORDERS.JobName, AD_ORDER_DETAILS.CustomField1, AD_ORDER_DETAILS.CustomField2 FROM AD_ORDER_DETAILS INNER JOIN (AD_ORDERS INNER JOIN AD_REPORT_DATA ON AD_ORDERS.OrderID = AD_REPORT_DATA.OrderID) ON (AD_ORDERS.OrderID = AD_ORDER_DETAILS.OrderID) AND (AD_ORDER_DETAILS.PK = AD_REPORT_DATA.DetailID) ORDER BY AD_REPORT_DATA.PK DESC"
cn.Execute cmdText
我的代码有什么问题？执行了没反应。执行DROP VIEW没问题，其他代码应该没问题，就是语句不知道怎么写，高手指导下，谢谢！

Answer 1

你的“没反应”是什么意思呢？修改表结构本来就不会有返回值，你只要检查该查询是否建立就可以了。
如果你要执行该查询，在创建后用以下语句获取数据：
dim rs as adodb.recordset
rs.open "select * from query4"

追问

我执行之后，用access打开数据库，并没有创建成功。请高手指导啊

Answer 2

路子没什么问题。你一步一步的试验吧。
从 “CREATE VIEW Query4 AS SELECT * FROM AD_ORDER_DETAILS”开始。
一条一条的往上加，看看加谁会出错。