Office中国论坛/Access中国论坛
标题:
求教用docmdrunsql执行操作查询表的代码错误
[打印本页]
作者:
dxssxd
时间:
2009-2-7 01:05
标题:
求教用docmdrunsql执行操作查询表的代码错误
本帖最后由 dxssxd 于 2009-2-7 01:34 编辑
我要实现从文本框输入参数的多条件查询 操作的是名称为 “自定义查询”的查询表
以下是查询按钮的click事件
Private Sub Command9_Click()
Dim str As String
str = "SELECT * FROM 自定义查询 "
str = str & "WHERE [奶户编号] ='" & Me.奶户编号 & "'"
DoCmd.RunSQL (str)
DoCmd.OpenQuery (自定义查询)
End Sub
好久不接触了 忘光光了 大家帮我看看 哪有问题 为什么过不去
另外如果我的语句如果完全不对
那么从文本框取值(分别是姓名和2个限定时间段的日期框)(可空)来对“自定义查询”表进行操作的sql语句怎么写
通过click事件触发 然后打开 经过查询筛选后的“自定义查询表”
万分感谢
作者:
Henry D. Sy
时间:
2009-2-7 06:20
RunSQL
只能是动作查询,其并不还回记录集。
作者:
todaynew
时间:
2009-2-7 09:39
从代码的错误信息中看,你是想对窗体数据进行筛选。基于这个判断,代码于是乎应该这样写:
Me.窗体名称.Form.filter = [奶户编号] ='" & Me.奶户编号 & "'"
Me.窗体名称.Form.FilterOn = True
此外:不是卖的三鹿吧?
作者:
andymark
时间:
2009-2-7 10:05
临时创建查询
作者:
dxssxd
时间:
2009-2-7 12:33
其实这个功能可以用子窗体实现
但是我想用纯代码实现 可惜扔的太久了
谢谢大家
作者:
ACMAIN_CHM
时间:
2009-2-7 13:24
解决方案之一:
Public
Sub
test3()
CurrentProject.Connection.Execute "create view q1
as
select
* from t"
DoCmd.OpenQuery "q1"
CurrentProject.Connection.Execute "drop view q1 "
End
Sub
你可以用DAO中的querydef
******************
* 一切皆有可能 *
******************
.
同
一
贴
子
不
回
复
第
二
次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access
.
http://www.accessbbs.cn/bbs/index.php
.
http://www.accessoft.com/bbs/index.asp
.
http://www.access-programmers.co.uk/forums
.
http://www.office-cn.net
.
.
http://www.office-cn.net/home/space.php?uid=141646
.
作者:
Henry D. Sy
时间:
2009-2-7 19:57
动态定义查询也可以
欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)
Powered by Discuz! X3.3