各位兄弟帮帮忙。看看我的这个，为什么总是提醒说“至少一个参数没有被指定值”谢谢了！！！up 给分

[wrrybo5221]

<script runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data

source="+server.MapPath("data/fwk.mdb"))

dim objcmd as new oledbdataAdapter

dim ds as new dataset("my")


sub page_load(obj as object, e as eventargs)

dim sql as string
sql=new string("select top 10 fwk_bianhao,fwk_tel,fwk_dizhi,fwk_danwei from fwk order by fwk_bianhao

DESC")

if request("fwk_bianhao")<>"" then
sql=new string("select fwk_bianhao,fwk_tel,fwk_dizhi,fwk_danwei from kehu where fwk_bianhao=" &

request("fwk_bianhao") & " order by fwk_bianhao DESC")
view1.text=request("sort") & ".."
end if

objcmd=new oledbdataAdapter(sql,conn)
filldatagrid()
fillsort()




end sub
'query method
sub query(Sender As Object, e As EventArgs)
if request("select")<>"" and request("keyword")<>"" then
[select].value=request("select")
keyword.value=request("keyword")
elseif keyword.value="" then

exit sub
end if
dim sql as string="select fwk_bianhao,fwk_tel,fwk_dizhi,fwk_danwei from fwk where " & [select].value & "

like '%" & keyword.value &"%'order by fwk_bianhao DESC"

objcmd=new oledbdataAdapter(sql,conn)
filldatagrid()
view1.text="搜索结果："
end sub
sub getdata() ----问题好像就出在这！！帮帮看看

objcmd.fill(ds, "art")
'define primary key
' dim keys() as datacolumn={ds.tables("gb").columns("userid")}
' ds.tables("gb").primarykey=keys'
end sub



sub filldatagrid ----问题好像就出在这！！帮帮看看
ds.clear()'
getdata()

dgdata.datasource=ds
dgdata.datamember="kehu"
dgdata.databind()
end sub


sub fillsort
dim objcmd as new oledbcommand("select * from fwlx",conn)
dim objreader as oledbdatareader

try
objcmd.connection.open()
objreader=objcmd.executereader()
catch ex as exception
view1.text=ex.message
end try

sort.datasource=objreader
sort.databind()

objreader.close
objcmd.connection.close()
end sub

sub dgdata_pageindexChanged(obj as object,e as datagridpagechangedeventargs)
dgdata.currentpageindex=e.newPageindex
dgdata.databind()
filldatagrid()
end sub

[cyy1981]

顶

[yanyzty]

up

[cocoguo]

至少一个参数没有被指定值
是说你的Select语句中至少有一个列名和表中的列名不同,VB的看不懂.你再找一下吧.

[ianok]

ding

[freehul]

错误提示已经很清楚了，楼主只好慢慢去找吧！

[wrrybo5221]

兄弟们帮帮忙啊！！我全都已经指定了啊！！我的select语句中和列名的表的列名也搞好了啊！怎么不行啊？？？

[wrrybo5221]

刚才的问题解决了，谢谢各位了。不过现在又出了一个新问题~！现在有说“机器 'LMA' 上的用户 'Admin' 以独占方式的锁定数据表 'kehu'。“ 这是怎么回事啊？？看了半天也看不懂啊！！
麻烦各位帮帮忙！谢谢了！！！！！！

[karykwan]

你的数据库被你打开了.要不就是你没有在程序里conn.close;!!

[lyfxzzb]

同意楼上的

[lhcoolhacker]

在使用Access开发的时候，经常会有这样莫名其妙的提示，所以我现在已经放弃使用Access进行开发，都使用MSSQL

[warfen]

数据库被你给大开了，要么就没关闭。

[yujing1009]

数据表被打开 关掉就行了

[yichuan1982]

up

[forideal]

Access数据库打开时，会产生一个ldb文件，这就是它数据库锁，可以保证此时数据库是独享的。

[sukey00]

一定是哪个方法，参数错误

[学海无涯，行者无疆]

dim sql as string="select fwk_bianhao,fwk_tel,fwk_dizhi,fwk_danwei from fwk where " & [select].value & "

like '%" & keyword.value &"%'order by fwk_bianhao DESC"

order前面好像少个空格
你最好检查一下

[wrrybo5221]

谢谢各位了！！刚刚发现是没关闭，太急了。把这个给忘了，^_^


现在的工作环境不是太好，也没什么人带，所以进步很慢，想问问，有没有人愿意和我在网上共同了解和进步，苦恼中，天天为了几个不大不小的东西搞的要疯了，就是因为没人和我交流，也没人在旁边指导，如果有人愿意的话，希望能留下自己的qq或是msn 本人将十分感激。！！！！


感动的 痛哭流涕中！！！！！
本人的qq: 20714344
msn : [e-mail]
欢迎大家加我！！