Question

vb怎么实现数据库查询功能

如题
比如我的数据这个样子
ID date time PH值 压力值 温度值 湿度值
1 2014/5/1 00：00：00 6.0 10 25 40%
2 2014/5/1 01：00：00 6.1 11 25 41%
3 2014/5/1 02：00：00 6.2 12 25 42%
4 2014/5/1 03：00：00 6.3 13 25 43%
5 2014/5/1 04：00：00 6.4 14 25 44%
下面还有很多很多
现在我要查询2014/5/1 12：00：00 的 压力值
我用dtpicker把date，time都做好了，然后做了一个按钮cmd1跟一个text1，当我在dtpicer里调好时间，text1输入压力值，然后点击按钮的时候就能在vb的datagrid上单独显示2014/5/1 12：00：00 的 压力值
我写了一条

Private Sub Command2_Click()
Set DataGrid1.DataSource = Adodc1
Adodc1.RecordSource = "select * from dbo.Table_tl where Column like '%" & Text1.Text & "%'"
Adodc1.Refresh
End Sub
但是一直提示 column不对或者like附近的变量不对

Answer 1

"select * from dbo.Table_tl where date='" &Text1.Text"' and time='" & Text2.Text & "'"

Text1 输入日期 Text2 输入时间

追问

额。。这。。。。
我用dtpicker已经弄好时间了
怎么查询压力值或者温度值的那一列
比如我不要求日期时间
我在text1里输入压力值 点击按钮
就出现压力值的那一整列

追答

能说清楚一点吗, 我怎么没看懂你的需求
"我在text1里输入压力值 点击按钮
就出现压力值的那一整列"
Set MainCnn = New ADODB.Connection
MainCnnStr = "provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\数据库\订单信息.mdb"
MainCnn.Open MainCnnStr, "", ""
Set rs = New ADODB.Recordset
sqlstr=" select * ......."
rs.Open sqlstr, MainCnn, 1, 1
rs.MoveFirst
温度 = Val(rs("温度"))'取值

'上面以ACCRESS为例,

追问

我题目应该说的很清楚了
简单的说 就是想要实现模糊查询
比如查询 压力值 比如查询温度值
在text里输入压力值 数据库显示所有的压力数值
输入温度值 显示温度数值
这样够清楚么兄弟