关于用VBA实现ACCESS动态查询的问题

leitingzhinu

如附件中的表我想把TCH最短恢复时间改成不同的值，然后通过查询功能把数据变成这样
MOD CELLCHMGAD: IDXTYPE=BYIDX, CELLIDX=0,DLINTERFQUALLIMIT=70;语句其中DLINTERFQUALLIMIT后边的值就是表中我要改的值，CELLID就是表中的小区索引。
第二次我还是通过相同的办法的到这样的语句MOD CELLCHMGAD: IDXTYPE=BYIDX, CELLIDX=0,TCHBUSYTHRES=50；其中TCHBUSYTHRES就是表中的TCH话务忙门限(%)
也就是我每次通过查询改的东西不一样，相应的输出的语句也要该表。我怎样通过VBA实现这种功能那？

leitingzhinu

上边打错字了，是改变
“如附件中的表我想把TCH最短恢复时间改成不同的值，然后通过查询功能把数据变成这样
MOD CELLCHMGAD: IDXTYPE=BYIDX, CELLIDX=0,DLINTERFQUALLIMIT=70;语句其中DLINTERFQUALLIMIT后边的值就是表中我要改的值，CELLID就是表中的小区索引。
第二次我还是通过相同的办法的到这样的语句MOD CELLCHMGAD: IDXTYPE=BYIDX, CELLIDX=0,TCHBUSYTHRES=50；其中TCHBUSYTHRES就是表中的TCH话务忙门限(%)
也就是我每次通过查询改的东西不一样，相应的输出的语句也要改变。我怎样通过VBA实现这种功能那？”

leitingzhinu

没人能解决这个问题吗？

styhs

看附件的查询，在设计中没有设置任何条件，即是返回整个记录集；请问根据动态语句返回的记录集是需要输出到什么地方？是Access 的表或是窗体。

leitingzhinu

要返回表中，其实我的目的就是把那些语句添加到我修改的数据中，去我们公司的数据库执行~

海婷

打开全是乱码

leitingzhinu

我在VBA中定义
Private Sub Text_Click()
Dim dteStart As Date
dteStart = #3/31/2006#
Dim strSQL As String
Dim qdf As QueryDef
strSQL = "SELECT "MOD CELLCCBASIC: IDXTYPE=BYIDX,CELLIDX=" & [呼叫控制数据]![小区索引号] & ", SAMULFRM=" & [呼叫控制数据]![SACCH复帧数(SACCH周期(480毫秒))] & ";" AS [SACCH复帧数(SACCH周期(480毫秒))] FROM 呼叫控制数据;"
Set qdf = CurrentDb.CreateQueryDef("创建的查询", strSQL)
DoCmd.OpenQuery qdf.Name
End Sub
提示错误，这是为什么啊

styhs

原帖由 leitingzhinu 于 2010-6-25 15:55 发表
要返回表中，其实我的目的就是把那些语句添加到我修改的数据中，去我们公司的数据库执行~

见附件

leitingzhinu

非常感谢，可以了，高手啊~~~