Office中国论坛/Access中国论坛
标题:
在ACCESS代码中写查询语句不能运行
[打印本页]
作者:
ruizhang
时间:
2012-6-28 13:42
标题:
在ACCESS代码中写查询语句不能运行
我在ACCESS的代码中写了一个简单的查询语句,如下:sql=“select * from test ” DoCmd.RunSQL sql
不能运行。
然后我写sql=“select * into test2 from test ” DoCmd.RunSQL sql 就能运行成功。
为什么查询语句不能运行呢?
本人做了一个窗体,想在代码中写查询语句,在查询语句中有日期变量,想直接从窗体的单元格中直接读取变量。
但是代码又不能运行查询语句,请大家支招。谢谢!
作者:
roych
时间:
2012-6-29 15:45
RunSQL只针对操作查询。应该新建一个查询,然后通过指定SQL来修改:
Function GetSQL()
Dim Swhr As String, ssql As String
Swhr = "True"
'条件1
If Not IsNull(Me.Emp_ID) Then
Swhr = Swhr & " And Emp_ID like '*" & Me.Emp_ID & "*'"
End If
'条件2
'可增加条件3、条件4……条件N。
If Not IsNull(Me.C_Name) Then
Swhr = Swhr & " And C_Name like '*" & Me.C_Name & "*'"
End If
'日期条件
ssql = Swhr & " And ResignDate Between #" & Me.SDate & "# And #" & Me.EDate & "#"
'获取SQL语句。
GetSQL = "select * from Tbl_Employ_Resign Where " & Right(ssql, Len(ssql) - 9)
End Function
'****************************************************************************************************
'更新查询的SQL语句,并更新子窗体的源对象。
'在按钮单击事件或者窗体加载事件上直接调用即可。
'如:
'Private Sub CmdQuery_Click()
'OpenQry
'End Sub
'*****************************************************************************************************
Sub OpenQry()
'子窗体查询为已建立的查询。
CurrentDb.QueryDefs("子窗体查询").SQL = GetSQL()
Me.子窗体.SourceObject = "子窗体查询"
End Sub
复制代码
作者:
top_sf
时间:
2014-11-13 10:55
DoCmd不能用来执行返回结果集吧
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3