调用自定义函数查询数据库，提示“至少一个参数没有被指定值”，在线急需解决，非常感谢！

[cmj5200]

Imports System.Data
Imports System.Data.OleDb
Partial Class rbrowse
Inherits System.Web.UI.Page
Dim ds As New DataSet
Public Shared Function createds(ByVal strsql As String, ByVal filename As String, ByVal tablename As String) As DataSet
Dim conn As New OleDbConnection
Dim cmd As New OleDbCommand
conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & System.Web.HttpContext.Current.Server.MapPath(filename)
conn.Open()
cmd.Connection = conn
cmd.CommandText = strsql
Dim objadpt As New OleDbDataAdapter(cmd)
Dim ds As New DataSet
objadpt.Fill(ds, tablename)
createds = ds
conn.Close()
End Function
Sub dgbind(ByVal sortfield As String)
Dim sql As String = "select id,zh,senddate,docfile from wddata where lx='发文'"
ds = createds(sql, "oadata.mdb", "wddata")
ds.Tables("wddata").DefaultView.Sort = sortfield
dgsummary.DataSource = ds.Tables("wddata").DefaultView
dgsummary.DataBind()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then dgbind("zh")
End Sub

提示出错：
至少一个参数没有被指定值。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.Data.OleDb.OleDbException: 至少一个参数没有被指定值。

源错误:


行 14: Dim objadpt As New OleDbDataAdapter(cmd)
行 15: Dim ds As New DataSet
行 16: objadpt.Fill(ds, tablename)
行 17: createds = ds
行 18: conn.Close()


源文件: G:\net\9\manage\rbrowse.aspx.vb 行: 16

[boblaw]

应该是conn.ConnectionString设置的问题,没有设置用户名和密码吧?楼主试一下.如果是access数据库,用户名为admin,密码为空(如果你有设置过,则填写你的密码)

[cmj5200]

我将用户名设为admin,密码为空，还是不行。

[cmj5200]

大侠们，帮帮我吧！

[boblaw]

楼主请检查id,zh,senddate,docfile,lx这几个字段是否拼写错误,几乎可以肯定是这个问题.

[nuey1985]

拖一个DATAGRIDVIEW上去,直接在面板上连接数据库,然后查看连接字段,
和你的conn.ConnectionString比较一下!
看有没有错,