菜鸟问一个菜问题!关于isam!

Question

先汗我自己一个,虽然我见到以往的贴子中间有关于这个内容的.
可是我找到了mdac2.7安装没有用处
可能是因为没有卸载,所以,显示安装完成实际上是没有完成.
在添加删除程序中没有mdac的选项也没办法卸载(难道是因为是windows的部件?类似ie一样)
也可能是我的代码不正确
所以代码也靠过来了
清高手看一下,是代码错了还是mdac有问题
如果mdac有问题,怎么重新安装?
msdn上说用wfp(windows file protect???)修复
可是我根本没用过wfp也不知道他在系统的那个部分
所以,还得高手指点一下
我的系统是server2003+vs.net2003+iis6.0
新手分不多,望大家谅解
Imports System.Data.OleDb
Public Class WebForm1
    Inherits System.Web.UI.Page#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub
    Protected WithEvents DataList1 As System.Web.UI.WebControls.DataList
    Protected WithEvents foot As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents username As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents save As System.Web.UI.WebControls.LinkButton
    Protected WithEvents content As System.Web.UI.HtmlControls.HtmlTextArea
    Protected WithEvents close As System.Web.UI.WebControls.LinkButton
    Protected WithEvents message As System.Web.UI.HtmlControls.HtmlGenericControl    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub#End Region    Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        foot.Visible = False
        DataList1.DataSource = createdataview("sample.mdb", "guestbook")
        DataList1.DataBind()
    End Sub
    Function createdataview(ByVal db As String, ByVal table As String) As DataView
        Dim provider, strconn, sql As String
        provider = "MicroSoft.Jet.OLEDB.4.0;"
        strconn = "provider=" + provider + "datasource=" + Server.MapPath(db)
        Dim conn As OleDbConnection = New OleDbConnection(strconn)
        Dim cmd As OleDbDataAdapter = New OleDbDataAdapter("select * from" + table + "order by post_time desc", strconn)
        Dim ds As DataSet = New DataSet
        cmd.Fill(ds, "table")
        createdataview = New DataView(ds.Tables(table))
    End Function    Sub DataList1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList1.ItemCommand
        Select Case e.CommandSource.text
            Case "我要发言"
                foot.Visible = True
            Case "查看详细内容"
                DataList1.SelectedIndex() = e.Item.ItemIndex
            Case "关闭"
                DataList1.SelectedIndex() = -1
        End Select
        DataList1.DataSource = createdataview("sample.mdb", "guestbook")
        DataList1.DataBind()
    End Sub    Sub save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save.Click
        Dim strconn, sql As String
        sql = "insert into guestbook(username,post_time,content) values('" + username.Value + "','" + DateTime.Now + "','" + content.Value + "')"
        strconn = "provider=MicroSof.Jet.OLEDB.4.0;datasource=" + Server.MapPath("sample.mdb")
        Dim conn As OleDbConnection = New OleDbConnection(strconn)
        conn.Open()
        Dim cmd As OleDbCommand = New OleDbCommand(sql, conn)
        cmd.ExecuteNonQuery()
        message.InnerHtml = "<b>留言成功！</b>"
        foot.Visible = False
    End Sub    Sub close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close.Click
        foot.Visible = False
    End Sub
End Class“/WebApplication2”应用程序中的服务器错误。
--------------------------------------------------------------------------------找不到可安装的 ISAM。 
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.Data.OleDb.OleDbException: 找不到可安装的 ISAM。源错误: 
行 42：         Dim cmd As OleDbDataAdapter = New OleDbDataAdapter("select * from" + table + "order by post_time desc", strconn)
行 43：         Dim ds As DataSet = New DataSet
行 44：         cmd.Fill(ds, "guestbook")
行 45：         createdataview = New DataView(ds.Tables(table))
行 46：     End Function
 源文件: D:\ietop新闻系统\WebApplication2\WebForm1.aspx.vb    行: 44 堆栈跟踪: 
[OleDbException (0x80004005): 找不到可安装的 ISAM。]
   System.Data.OleDb.OleDbConnection.ProcessResults(Int32 hr) +20
   System.Data.OleDb.OleDbConnection.InitializeProvider() +57
   System.Data.OleDb.OleDbConnection.Open() +203
   System.Data.Common.DbDataAdapter.QuietOpen(IDbConnection connection, ConnectionState& originalState) +44
   System.Data.Common.DbDataAdapter.FillFromCommand(Object data, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior) +304
   System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior) +77
   System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, String srcTable) +36
   WebApplication2.WebForm1.createdataview(String db, String table) in D:\ietop新闻系统\WebApplication2\WebForm1.aspx.vb:44
   WebApplication2.WebForm1.Page_Load(Object sender, EventArgs e) in D:\ietop新闻系统\WebApplication2\WebForm1.aspx.vb:34
   System.Web.UI.Control.OnLoad(EventArgs e) +67
   System.Web.UI.Control.LoadRecursive() +35
   System.Web.UI.Page.ProcessRequestMain() +731 
--------------------------------------------------------------------------------
版本信息: Microsoft .NET Framework 版本:1.1.4322.573; ASP.NET 版本:1.1.4322.573 

Answer 1

MDAC是可以重新安装的，，你重装会把原来的override的。。

Answer 2

那么老兄看一看我的代码对不对
为什么我的问题解决不了
我的mdac是用vs.net的盘里的文件装的
应该没问题
我的英文烂
msdn看的我头都大了
再汗我自己一个
真烂阿

Answer 3

谢谢两位帮忙
还是代码错误
我重装了n次之后，还是不成
最后，找msdn拼死看了半小时代码
改了一下算是解决了
不过还是谢谢
书上写得都不一定对阿！
还是msdn是指路灯阿！