select * from A where ((NAME='" & Text10 & "') and ([业务日期] between ['" # Text11 # "'] and ['" # Text12 # "']
这条语句运行时提示:该操作需要由sql语句提供的参数。
请指教!
14 个解决方案
#1
这种SQL语句必须在窗体下运行
#2
是的,我是想现在有TEXT10,TEXT11,TEXT12三个文本框控件
其中text10 为姓名
text11 为开始日期
text12 为截止日期
然后新建一个命令按钮,在按钮的click事件中执行该条查询,请老师指教!
其中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]
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 # "']))")
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
??
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语句即可
在ACCESS中,子窗体的数据源设为上述SQL语句即可
#8
好像不行啊
#9
我很笨的
老师能不能说详细点
老师能不能说详细点
#10
运行环境?是ACCESS 还是其它语言连接MDB,如是ACCESS,上传MDB到www.access911.net/csdn
下午我看一下
下午我看一下
#11
access 上传了 csdata
#12
我找到详细的参考文档了 谢谢WWWWA老师!!
可惜这里不能上传附件,要不可以上传一下
可惜这里不能上传附件,要不可以上传一下
#13
你给出的仅仅是一个用VBA代码组合的SQL语句。
如果要给窗体设置记录源,可以直接设置:
Me.RecordSource=strSQL
如果要给窗体设置记录源,可以直接设置:
Me.RecordSource=strSQL
#14
#1
这种SQL语句必须在窗体下运行
#2
是的,我是想现在有TEXT10,TEXT11,TEXT12三个文本框控件
其中text10 为姓名
text11 为开始日期
text12 为截止日期
然后新建一个命令按钮,在按钮的click事件中执行该条查询,请老师指教!
其中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]
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 # "']))")
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
??
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语句即可
在ACCESS中,子窗体的数据源设为上述SQL语句即可
#8
好像不行啊
#9
我很笨的
老师能不能说详细点
老师能不能说详细点
#10
运行环境?是ACCESS 还是其它语言连接MDB,如是ACCESS,上传MDB到www.access911.net/csdn
下午我看一下
下午我看一下
#11
access 上传了 csdata
#12
我找到详细的参考文档了 谢谢WWWWA老师!!
可惜这里不能上传附件,要不可以上传一下
可惜这里不能上传附件,要不可以上传一下
#13
你给出的仅仅是一个用VBA代码组合的SQL语句。
如果要给窗体设置记录源,可以直接设置:
Me.RecordSource=strSQL
如果要给窗体设置记录源,可以直接设置:
Me.RecordSource=strSQL