access中如何获取文本框内容并查询

时间:2023-01-05 00:51:40
select * from A where ((NAME='" & Text10 & "') and ([业务日期] between ['" # Text11 # "'] and ['" # Text12 # "']


这条语句运行时提示:该操作需要由sql语句提供的参数。
请指教!

14 个解决方案

#1


这种SQL语句必须在窗体下运行

#2


是的,我是想现在有TEXT10,TEXT11,TEXT12三个文本框控件
其中text10 为姓名
    text11 为开始日期
    text12 为截止日期
然后新建一个命令按钮,在按钮的click事件中执行该条查询,请老师指教!

#3


完整代码

#4


【code=VBScript】Private Sub Command12_Click()
   DoCmd.RunSQL "select * from A where ((NAME='" & Text10 & "') and ([业务日期] between ['" # Text11 # "'] and ['" # Text12 # "']))"
End Sub[/code]  

#5


你是要获得记录集吧,
dim ff as recordset
set ff=currentdb.openrecordset("select   *   from   A   where   ((NAME='"   &   Text10   &   "')   and   ([业务日期]   between   ['"   #   Text11   #   "']   and   ['"   #   Text12   #   "']))")

#6


这样写是没错了,但是最终想实现查找出来的记录集要显示出来 怎么写代码呢?
Private Sub Command12_Click()
   Dim ff As Recordset
   Set ff = CurrentDb.OpenRecordset("select * from 发车业务 where 驾驶员姓名='" & Text10 & "'")
   Set DataGrid1.DataSource = ff
   DataGrid1.Refresh
End Sub
??

#7


你是在ACCESS中运行,还是还是其它环境?
在ACCESS中,子窗体的数据源设为上述SQL语句即可

#8


好像不行啊

#9


我很笨的
老师能不能说详细点

#10


运行环境?是ACCESS 还是其它语言连接MDB,如是ACCESS,上传MDB到www.access911.net/csdn
下午我看一下

#11


access   上传了  csdata

#12


我找到详细的参考文档了  谢谢WWWWA老师!!
可惜这里不能上传附件,要不可以上传一下

#13


你给出的仅仅是一个用VBA代码组合的SQL语句。

如果要给窗体设置记录源,可以直接设置:

Me.RecordSource=strSQL

#14


该回复于2008-05-04 10:00:22被版主删除

#1


这种SQL语句必须在窗体下运行

#2


是的,我是想现在有TEXT10,TEXT11,TEXT12三个文本框控件
其中text10 为姓名
    text11 为开始日期
    text12 为截止日期
然后新建一个命令按钮,在按钮的click事件中执行该条查询,请老师指教!

#3


完整代码

#4


【code=VBScript】Private Sub Command12_Click()
   DoCmd.RunSQL "select * from A where ((NAME='" & Text10 & "') and ([业务日期] between ['" # Text11 # "'] and ['" # Text12 # "']))"
End Sub[/code]  

#5


你是要获得记录集吧,
dim ff as recordset
set ff=currentdb.openrecordset("select   *   from   A   where   ((NAME='"   &   Text10   &   "')   and   ([业务日期]   between   ['"   #   Text11   #   "']   and   ['"   #   Text12   #   "']))")

#6


这样写是没错了,但是最终想实现查找出来的记录集要显示出来 怎么写代码呢?
Private Sub Command12_Click()
   Dim ff As Recordset
   Set ff = CurrentDb.OpenRecordset("select * from 发车业务 where 驾驶员姓名='" & Text10 & "'")
   Set DataGrid1.DataSource = ff
   DataGrid1.Refresh
End Sub
??

#7


你是在ACCESS中运行,还是还是其它环境?
在ACCESS中,子窗体的数据源设为上述SQL语句即可

#8


好像不行啊

#9


我很笨的
老师能不能说详细点

#10


运行环境?是ACCESS 还是其它语言连接MDB,如是ACCESS,上传MDB到www.access911.net/csdn
下午我看一下

#11


access   上传了  csdata

#12


我找到详细的参考文档了  谢谢WWWWA老师!!
可惜这里不能上传附件,要不可以上传一下

#13


你给出的仅仅是一个用VBA代码组合的SQL语句。

如果要给窗体设置记录源,可以直接设置:

Me.RecordSource=strSQL

#14


该回复于2008-05-04 10:00:22被版主删除