出了什么问题?

tjwtfl 2003-03-09 03:45:28
“/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


...全文
67 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
tjwtfl 2003-03-10
  • 打赏
  • 举报
回复
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
hobo_boy 2003-03-09
  • 打赏
  • 举报
回复
应该是你的数据库连接出了问题吧.
你把原代码帖出呀.
webdiyer 2003-03-09
  • 打赏
  • 举报
回复
把代码发上来。

62,244

社区成员

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧