使用参数查询

hongxing56

SELECT 表名.记录年, count(记录年) AS num
FROM 表名

GROUP BY 记录年
ORDER BY 记录年;


想在窗体中做一个组合框，用组合框选择表，然后执行查询。请教如何能实现？在sql里面，表名可以作为参数吗？

如果只能用vb，能写写代码吗，我不会vb。

gaoqiwen

Dim strSQL as String
strSQL= "SELECT 表名.记录年, count(记录年) AS num " _
      & "FROM " & 组合框.Value _
      & " GROUP BY 记录年 " _
      & "ORDER BY 记录年; "


将strSQL赋值给窗体或子窗体的数据源属性,Requery窗体或子窗体的数据即可![em04]

[此贴子已经被作者于2005-12-21 13:46:17编辑过]

hongxing56

能否做成，在组合框中选择公司后，点击一个按钮，就执行一个查询，弹出查询结果（象普通的查询一样）。

gaoqiwen

可以的!

如下:

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

不执行。有编译错误，在Dim ADO As New ADODB.Command

另外，能给程序配个说明吗？

非常感谢！

gaoqiwen

在VB编辑器中;

工具-->引用

Microsoft ActiveX Data Objects 2.X Library

hongxing56

出现问题

“运行时错误  only simple select queries are allowed in views”

到调试页面后  ADO.Execute为高亮

gaoqiwen

精简一下你的文件,上传上来帮你调试一下吧!

wuaza

gaoqiwen 是个高手。，

hongxing56

对  对  传个文件

希望是  在窗体中选择要做统计的公司  然后点击按钮  执行查询  统计年份（即表中的‘记录年’）