！！！救命救命救命救命救命救命 ！！！

[WAWQ]

请问下面这个异常是什么错误啊？如何解决 ？？？？？？？谢谢 ！！！

SELECT * from xTable
System.Data.OleDb.OleDbException: IErrorInfo.GetDescription 因 E_FAIL(0x80004005) 而失败。 at System.Data.OleDb.OleDbCommand.ExecuteCommandTextErrorHandling(Int32 hr) at System.Data.OleDb.OleDbCommand.ExecuteCommandTextForSingleResult(tagDBPARAMS dbParams, Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteCommandText(Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteCommand(CommandBehavior behavior, Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteReaderInternal(CommandBehavior behavior, String method) at System.Data.OleDb.OleDbCommand.ExecuteReader(CommandBehavior behavior) at System.Data.OleDb.OleDbCommand.System.Data.IDbCommand.ExecuteReader(CommandBehavior behavior) at System.Data.Common.DbDataAdapter.FillFromCommand(Object data, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior) at System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior) at System.Data.Common.DbDataAdapter.Fill(DataSet dataSet, String srcTable) at item.clsConn.funAcShow(String strSQL) in F:\item\item\clsMain.vb:line 79 at item.webglobeowner_2.Page_Load(Object sender, EventArgs e) in F:\item\item\info\WorldShip\webglobeowner_2.aspx.vb:line 53

[WAWQ]

自己顶 ！

[vasun]

连接字符串没写正确，数据库不能访问。

[suguanqun]

贴出你的代码！

[WAWQ]

private sub cmdExe_click()

dim dvView as dataview

dvview=funAcShow("SELECT xyx from xTable") '出错位置

label1.text=dvView.item(0).row("xyx").tostring

end sub

Public Function funAcShow(ByVal strSQL As String) As DataView

Dim dsSet As DataSet
Dim oddaAdapter As OleDbDataAdapter
Dim odcAcConn As OleDbConnection

odcAcConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & HttpContext.Current.Server.MapPath("seabase\#seabase.mdb") & ";Persist Security Info=False")

oddaAdapter = New OleDbDataAdapter(strSQL, odcAcConn)

dsSet = New DataSet
oddaAdapter.Fill(dsSet, "t")
funAcShow = New DataView(dsSet.Tables("t"))

End Function

[sjc0]

Public Function funAcShow(ByVal strSQL As String) As DataView

Dim dsSet As DataSet
Dim oddaAdapter As OleDbDataAdapter
Dim odcAcConn As OleDbConnection

odcAcConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & HttpContext.Current.Server.MapPath("seabase\#seabase.mdb") & ";Persist Security Info=False")

oddaAdapter = New OleDbDataAdapter(strSQL, odcAcConn)

dsSet = New DataSet
oddaAdapter.Fill(dsSet, "t")
funAcShow = dsSet.Tables("t").DefaultView

End Function

[WAWQ]

帮忙啊 ！！！！！！！！！！！！！！！！！！！！！！！

[WAWQ]

顶 ！

[yinson]

protected DataSet ExecuteDataSet(string strSql, string strTableName)
{
objConn = new SqlConnection(ConnectionString);
objAdapter = new SqlDataAdapter(strSql, objConn);

DataSet objDataSet = null;
try
{
objConn.Open();
objDataSet = FillDataSet(objAdapter, strTableName);
}
catch (System.Data.SqlClient.SqlException e)
{
throw e;
}
finally
{
objAdapter.Dispose();
objConn.Dispose();
}

return objDataSet;
}