Question

vb中Adodc控件的RecordSource属性，如何动态赋值?

我想让RecordSource动态接受SQL语句。比如说，我有一个数据库DBtest，RecordSource中需要执行类似"Select * from dbtest Where 操作日期>=2008-1-1 and 操作日期<2008-4-7"的语句，当然这两个日期我需要动态输入或选择。程序窗体上增加两个文本框或其它部件，text1与text2,假如说在这两个文本框中输入日期，怎么样将这两个日期赋给Where子句。如何来实现，希望能说的详细点，谢谢！

Answer 1

Dim oneDate as String
Dim twoDate as String
oneDate=text1.text
twoDate=text2.text
Dim strsql as String
strsql="Select * from dbtest "
strsql=strsql+" where 操作日期>="+oneDate
strsql=strsql+"" and 操作日期<"+twoDate
然后执行strsql这个拼凑起来的sql语句就可以。。。

Answer 2

dim link as new adodc.recordset (好象是这个属性，有点忘了)
dim sql as string
dim conn as string
dim conn as string '这个是放数据库路径的
sql="select * from dbtest here 操作日期>=2008-1-1 and 操作日期<2008-4-7"
link.open sql,conn,1,3
set datagrid1.datasource=link

Answer 3

"Select * from dbtest Where 操作日期 between #" & cdate(text1) & "# and #" & cdate(text2) & "#"