access换成SQL 查询怎么写

Question

把一个程序转成了用SQL2000数据库的没用过  查询不会写啊 首先是窗体  用SQL是不是不用ADODC  而是改用DATA啊 然后查询
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=SQLOLEDB.1;User ID=sa;password=sa;Initial Catalog=abc;Data Source=(local)" '建立连接
Set rs = New Recordset
rs.Open "select * from  chanpin", db, adOpenStatic, adLockOptimistic '打开记录集
 SQL = "select * from chanpin where val(kuchun) <=" & Val(Text1.Text) & "  and mingcheng like '%" & Text2.Text & "%'"'Adodc1.ConnectionString = "Provider=SQLOLEDB.1;User ID=sa;password=sa;Initial Catalog=abc;Data Source=(local)"Data1.RecordSource = SQL
 Data1.Refresh
  DataGrid1.Refresh
    ‘Set DataGrid1.DataSource = rs
    DataGrid1.Columns(0).Width = 4000
DataGrid1.Columns(0).Caption = "产品名称"
DataGrid1.Columns(1).Width = 1200
DataGrid1.Columns(1).Caption = "单价"
DataGrid1.Columns(2).Width = 1200
DataGrid1.Columns(2).Caption = "库存"
DataGrid1.Columns(3).Width = 1200
DataGrid1.Columns(3).Caption = "类别"报错的  很无奈 没用过DATA呢 应该怎么写啊  请教

Answer 1

Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=SQLOLEDB.1;User ID=sa;password=sa;Initial Catalog=abc;Data Source=(local)" '建立连接
Set rs = New Recordset
SQL = "select * from chanpin where val(kuchun) <=" & Val(Text1.Text) & " and mingcheng like '%" & Text2.Text & "%'"
if rs.state<>adstateclosed then rs.close
rs.open sql,db,adopenkeyset,adlockreadonly
set datagrid1.datasource=rs
rs.close

Answer 2

提示VAL不是可识别的函数名
 val(kuchun)
把这个VAL去掉 就可以查询了为什么啊

Answer 3

access才有val()
SQL Server无

Answer 4

替换select cast(字段 as decimal(10,2)) from 表要根据你的情况修改