access换成SQL 查询怎么写

[jainkai]

把一个程序转成了用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呢

应该怎么写啊 请教

[jainkai]

哦了 知道啦

[jhone99]

替换

select cast(字段 as decimal(10,2)) from 表

要根据你的情况修改

[饮水需思源]

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

[jainkai]

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

为什么啊

[king06]

access才有val()
SQL Server无