IS there something wrong with the Imports section: Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Drawing
Imports System.Windows.Forms
Imports System.Guid
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinToolTip
Imports Janus.Windows.GridEX
Did I miss an data update for Visual Studio?
Expand|Select|Wrap|Line Numbers
- Private Function LoadgriPrices() As Boolean
- Try
- gblConn = New OleDbConnection(QponConnStr)
- Dim dagexLoad As New OleDbDataAdapter
- Dim dsgexLoad As New DataSet
- Dim recCount As Integer 'Tracks the number of records in the dataset dsgexLoad
- Dim mySelectQuery As String = "SELECT i.ItemsID, c.Category, s.SubCategory, " _
- & "i.Maker, i.ItemName, i.Measure, i.Size " _
- & "FROM (Categories AS c INNER JOIN SubCategory AS s ON c.CategoriesID=s.CategoriesID) " _
- & "INNER JOIN Items AS i ON s.SubCategoryID=i.SubCategoryID;"
- Dim myConnection As New OleDbConnection(QponConnStr)
- Dim myCommand As New OleDbCommand(mySelectQuery, myConnection)
- myConnection.Open()
- dagexLoad.SelectCommand = myCommand
- dagexLoad.Fill(dsgexLoad) ‘<<<<< error here
- If Not dsgexLoad.Tables(0).Rows.Count > 0 Then
{"IErrorInfo.GetDescription failed with E_FAIL(0x80004005)."}
System.Data.OleDb.OleDbException: {"IErrorInfo.GetDescription failed with E_FAIL(0x80004005)."}
Data: {System.Collections.ListDictionaryInternal}
HelpLink: Nothing
InnerException: Nothing
Message: "IErrorInfo.GetDescription failed with E_FAIL(0x80004005)."
Source: "System.Data"
StackTrace: " at System.Data.OleDb.OleDbCommand.ExecuteCommandTextE rrorHandling(OleDbHResult hr) at System.Data.OleDb.OleDbCommand.ExecuteCommandTextF orSingleResult(tagDBPARAMS dbParams, Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteCommandText( Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteCommand(Comm andBehavior behavior, Object& executeResult) at System.Data.OleDb.OleDbCommand.ExecuteReaderIntern al(CommandBehavior behavior, String method) at System.Data.OleDb.OleDbCommand.ExecuteReader(Comma ndBehavior behavior) at System.Data.OleDb.OleDbCommand.System.Data.IDbComm and.ExecuteReader(CommandBehavior behavior) at System.Data.Common.DbDataAdapter.FillInternal(Data Set dataset, DataTable[] datatables, 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 behav
ior) at System.Data.Common.DbDataAdapter.Fill(DataSet dataSet) at QPon.Pricing.LoadgriPrices() in C:\QPon\QPon\QPon\Pricing.vb:line 129"
TargetSite: {System.Reflection.RuntimeMethodInfo}
Sorry for the length of the post but this has been bugging me for a long time as the same code seems towork perfectly well in a Access 2000 database with VB.Net programming. Any direction as WHAT I seem to be missing would be helped. Happen to send a demo attachement if desired.