如果只能用vb，能写写代码吗，我不会vb。作者: gaoqiwen 时间: 2005-12-21 21:28
Dim strSQL as String
strSQL= "SELECT 表名.记录年, count(记录年) AS num " _
& "FROM " & 组合框.Value _
& " GROUP BY 记录年 " _
& "ORDER BY 记录年; "
Private Sub Command0_Click()
Dim OBJ As AccessObject
For Each OBJ In CurrentData.AllQueries
If OBJ.name = "ABC" Then DoCmd.DeleteObject acQuery, OBJ.name
Next
Dim strSQL As String
strSQL = "CREATE VIEW ABC AS " _
& "SELECT 表名.记录年, count(记录年) AS num " _
& "FROM " & 组合框.Value _
& " GROUP BY 记录年 " _
& "ORDER BY 记录年; "
Dim ADO As New ADODB.Command
ADO.ActiveConnection = CurrentProject.Connection
ADO.CommandText = strSQL
ADO.Execute
DoCmd.OpenQuery "ABC"
End Sub作者: hongxing56 时间: 2005-12-21 23:35
不执行。有编译错误，在Dim ADO As New ADODB.Command
另外，能给程序配个说明吗？
非常感谢！作者: gaoqiwen 时间: 2005-12-21 23:41
在VB编辑器中;
工具-->引用
Microsoft ActiveX Data Objects 2.X Library作者: hongxing56 时间: 2005-12-21 23:55
出现问题
“运行时错误 only simple select queries are allowed in views”