在access下创建视图(create view)，用vb的函数/过程(function)

Function CreateViewAdo()
    Dim cn As ADODB.Connection
    Dim strSql As String

    strSql = "CREATE VIEW MyTableView AS SELECT * FROM TimeRecord;"
    Set cn = CurrentProject.Connection
    cn.Execute strSql

    Debug.Print "MyTableView created"
    Set cn = Nothing
End Function

 

如果以上出现问题，在vb中选择“工具”-》“引用”，然后悬赏ado相关