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

Question

<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 oledbdataAdapterdim 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 subsub 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 subsub dgdata_pageindexChanged(obj as object,e as datagridpagechangedeventargs)
    dgdata.currentpageindex=e.newPageindex
dgdata.databind()
filldatagrid()
end sub

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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

Answer 7

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前面好像少个空格
你最好检查一下