Office中国论坛/Access中国论坛

标题: 求助:如何设计查询取同类字段的问题 [打印本页]

作者: RickyZjw-3721 时间: 2009-9-8 23:31
标题: 求助:如何设计查询取同类字段的问题
如附件,我想把表ExpnDTL10102中ActExp_Acct,ActExp_AcctDescription,PPExp_Acct和PPExp_AcctDescription4个字段去掉,用SQL代码只取"20"和"P20"开头的字段(当然不是直接把所有的字段拉进查询那么简单),如何改动查询10102ExpnDetail_SQLQry才能做到这点呢?谢谢!

作者: liwen 时间: 2009-9-8 23:50
搜一下动态更改查询的SQL语句的相关示例
dao:
qqrt="select count(*) from table1"
Set qry = CurrentDb.QueryDefs("qwer")
qry.SQL = QQRT

作者: RickyZjw-3721 时间: 2009-9-9 22:24
还是不太明白.上面语句中"qwer"代表什么含义呢?
我所需要的查询要通过DAO的方法才能达到吗?鉴于本人能力有限,写复杂的VBA语句可能有些吃力.有简单一些的吗?
再次感谢版主的热心指点!

作者: Henry D. Sy 时间: 2009-9-10 09:45
你的命名看起来晕。

作者: Henry D. Sy 时间: 2009-9-10 10:04

Private Sub Command0_Click()
Dim rs As New ADODB.Recordset
Dim qdf As DAO.QueryDef
Dim sSQL As String
Dim flds As String
Dim Bj As String
Dim i As Integer
With rs
.Open "ExpnDTL10102", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
For i = 0 To .Fields.Count - 1
Bj = Left(.Fields(i).Name, 2)
If Bj = "20" Or Bj = "P2" Then
flds = flds & "[" & .Fields(i).Name & "],"
End If
Next
.Close
End With
If Len(flds) <> 0 Then
flds = Left(flds, Len(flds) - 1)
sSQL = "select " & flds & " from ExpnDTL10102"
Set qdf = CurrentDb.QueryDefs("Q")
qdf.SQL = sSQL
qdf.Close
Set qdf = Nothing
DoCmd.OpenQuery "Q"
End If
Set rs = Nothing
End Sub

复制代码

作者: liwen 时间: 2009-9-10 13:00

还是不太明白.上面语句中"qwer"代表什么含义呢?
我所需要的查询要通过DAO的方法才能达到吗?鉴于本人能力有限,写复杂的VBA语句可能有些吃力.有简单一些的吗?
再次感谢版主的热心指点!
RickyZjw-3721 发表于 2009-9-9 22:24

"qwer"只是代表一个查询名称,你应该通过帮助查找QueryDefs的用法和相关信息,帮助中也有示例,看懂了示例也就了解了其参数是什么了.

如果你的字段名基本上是固定的,直接更改查询定义即可,如有规律的变动的字段,你先要获得字段名再分析有用的字段组成有效的SQl语句即可.

作者: RickyZjw-3721 时间: 2009-9-11 22:36
真的很感谢两位版主的热心解答，你们辛苦了！Henry D. Sy版主的VBA水平在下很是羡慕，学习了！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)