I'm working through this Wrox book chapter about .Net data access. I'm
using an Access Database and I keep getting this error when using the
OleDbCommand and OleDbDataAdapte r. It works as a stored procedure but not
as a query from the program.
IErrorInfo.GetD escription failed with E_FAIL(0x800040 05)
I got the query right from the Query View of Access.
I googled this error and it seems to be pretty common but I still can't find
a reply with an answer.
Here is the code...
<body>
<span id='dbConn' runat="server"> </span><br /><br />
<span id='query' runat="server"> </span><br /><br /><br />
<span id="outError" runat="server"> </span><br /><br /><br />
<asp:datagrid id="dgrOutput" runat="server"> </asp:datagrid>
<script language="VB" runat="server">
Sub Page_Load()
Dim sConnection As String = Application("sD BConnection")
Dim sSQL As String = "SELECT tblWeek.Week, tblVocabulary.W ord,
tblVocabulary.P ronunciation, tblDefinitions. Usage, tblDefinitions. Definition
"
sSQL += "FROM tblWeek INNER JOIN (tblVocabulary INNER JOIN
tblDefinitions ON (tblVocabulary. WordID = tblDefinitions. WordID) AND
(tblVocabulary. WordID = tblDefinitions. WordID)) ON tblWeek.Week =
tblVocabulary.W eek "
sSQL += "ORDER BY tblWeek.Week, tblVocabulary.W ordID;"
dbConn.InnerTex t = sConnection
query.InnerText = sSQL
Dim objDataSet as new DataSet()
Try
Dim objConnect As New OleDbConnection (sConnection)
Dim objCommand As New OleDbCommand
objCommand.Conn ection = objConnect
objCommand.Comm andType = CommandType.Tex t
objCommand.Comm andText = sSQL
Dim objDataAdapter As New OleDbDataAdapte r()
objDataAdapter. SelectCommand = objCommand
objDataAdapter. Fill(objDataSet , "Defs")
Catch objError As Exception
outError.innerH TML = "<b>* Error while accesing data</b>.<br />" _
& objError.Messag e & "<br />" & objError.Source
Exit Sub ' and stop execution
End Try
dgrOutput.DataS ource = objDataSet.Tabl es
dgrOutput.DataB ind()
End Sub
</script>
