如何编写一个函数根据指定条件对数据库进行查询？

[zhplovelsy]

如何编写一个函数根据指定条件对数据库进行查询？在页面代码中如何使用该函数？

[zhplovelsy]

我要把这个函数返回值定义为recordset对象，将不同的字段值通过text控件显示出来，如何做？

[rushing]

function a() as adodb.recordset
dim b as adodb.recordset

...

set a=b

end funciton

[yzj927]

用SQL：
strSql = "select * from 设备档案 where " & Combo1.List(Combo1.ListIndex) & " like " & Chr(39) & Text3.Text & "*" & Chr(39) & Combo5.List(Combo5.ListIndex) & " " & Combo3.List(Combo3.ListIndex) & " like " & Chr(39) & Text4.Text & "*" & Chr(39) & "order by 设备编号"
Data1.RecordSource = strSql
Data1.Refresh

[zhplovelsy]

我是要在模块中定义函数，在页面代码中调用
调用形式为，text1.text=函数名（字段名，查询条件）

[rushing]

用SQL语句就行了。

[zhplovelsy]

最好有示例代码

[yem9]

定义完连接、纪录后
就可以直接写了
然后，把记录集打开，打开的时候，字符串为你写的sql语句
在语句中，把查询条件用变量代替