Question

vb 代码 textbox中的值转换成数值型和日期型各应怎样写？

是要用在select语句中，像下句中“库存量< val（ Text1.Text & ）”，运行不出来啊，转成日期格式该怎样写？像1999/5/2这种格式的，也是用在select语句中，像 select * from 商品资料 where 商品资料.有效日期 < text1.text
If Combo1.Text = "库存量" Then

Adodc1.RecordSource = "select * from 商品资料 where 商品资料.库存量 < val（ Text1.Text & ）

Answer 1

cdata(text1.text)就是把字符串转化成日期型，但是你必须是日期型的，只有是日期型才能加减操作。
Adodc1.RecordSource = "select * from 商品资料 where 商品资料.库存量 < " & val（trim( Text1.Text) ）

Answer 2

Adodc1.RecordSource = "select * from 商品资料 where 商品资料.库存量 < " & Text1.Text