出了什么问题?

[tjwtfl]

“/E1”应用程序中的服务器错误。
--------------------------------------------------------------------------------

找不到可安装的 ISAM。
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。

异常详细信息: System.Data.OleDb.OleDbException: 找不到可安装的 ISAM。

源错误:

行 46： myconnection.Open()


源文件: E:\wwwroot\A2\E1\index.aspx.vb 行: 46

堆栈跟踪:


[OleDbException (0x80004005): 找不到可安装的 ISAM。]
System.Data.OleDb.OleDbConnection.ProcessResults(Int32 hr) +20
System.Data.OleDb.OleDbConnection.InitializeProvider() +57
System.Data.OleDb.OleDbConnection.Open() +131
E1.WebForm1.Updateproducts() in E:\wwwroot\A2\E1\index.aspx.vb:46
E1.WebForm1.Page_Load(Object sender, EventArgs e) in E:\wwwroot\A2\E1\index.aspx.vb:33
System.Web.UI.Control.OnLoad(EventArgs e) +67
System.Web.UI.Control.LoadRecursive() +29
System.Web.UI.Page.ProcessRequestMain() +724

[webdiyer]

把代码发上来。

[hobo_boy]

应该是你的数据库连接出了问题吧.
你把原代码帖出呀.

[tjwtfl]

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If (Not IsPostBack) Then
productlisting.SelectedIndex = 0
Updateproducts()
End If
End Sub

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CurrentCategory.text = categorylist.Items(categorylist.SelectedIndex).Text
Updateproducts()
End Sub
Sub Updateproducts()
Dim categoryID As Integer
categoryID = categorylist.Items(categorylist.SelectedIndex).Value
Dim myconnstring As String = "provider=microsoft.jet.oledb.4.0;datasource=" & Server.MapPath("db1.mdb")
Dim myconnection As New OleDbConnection(myconnstring)
myconnection.Open()
Dim adapter1 As OleDbDataAdapter
adapter1 = New OleDbDataAdapter("select * from product where categoryid=" & categoryID, myconnection)
Dim products As New DataSet()
adapter1.Fill(products, "products")
productlisting.DataSource = products.Tables(0).DefaultView
productlisting.DataBind()
Dim productID As Integer
productID = productlisting.DataKeys(productlisting.SelectedIndex)
Dim myselectQuery As String = "selsct detail,productname,image from product where productID=" & productID
Dim mycommand As New OleDbCommand(myselectQuery, myconnection)
Dim myreader As OleDbDataReader = mycommand.ExecuteReader()
If myreader.Read Then
detail.Text = myreader.GetString(0)
productname.Text = myreader.GetString(1)
selsctedprodpicture.Src = myreader.GetString(2)
End If
myconnection.Close()
End Sub
Sub productListing_select(ByVal sender As Object, ByVal e As EventArgs)
Updateproducts()
End Sub