HOW stupid can I get????

I’ve just finally gotten around to testing this. Have you looked at using this with SQLCE? I’m just trying out your class but things aren’t working …

public DataSet GetDataSet()
{
IQueryable q = GetAllQuery();
return q.ToDataSet(context.GetCommand(GetAllQuery()), null, “MyTable”);
}

I’m not seeing ToDataSet hanging off the q variable.

strange …

Tried it with this code not able to convert into data table

Dim q As IQueryable(Of Account) = From c In db.Accounts Select c
Dim hg As New LinqDataExtensions
Dim t As DataTable = hg.ToDataTable(q, Nothing, “Account”)
DataGridView1.DataSource = t ‘(From c In db.Accounts Select c).ToList

Public Class LinqDataExtensions

Public Shared Function ToDataTable(ByVal extenderItem As IQueryable, ByVal query As DbCommand, ByVal tableName As String) As DataTable

‘
‘ Add the ability to return a DataTable based on a particular query
‘ to a queryable object.
‘
‘ The IQueryable object to extend.
‘ The query to execute.
‘ The name of the datatable to be added.
‘ The populated DataTable.

If query Is Nothing Then Throw New ArgumentException(“query”)
Dim cmd As SqlCommand = CType(query, SqlCommand)
Dim adapter As SqlDataAdapter = New SqlDataAdapter()
adapter.SelectCommand = cmd
Dim dt As DataTable = New DataTable(tableName)
Try
cmd.Connection.Open()
adapter.Fill(dt)
Catch ex As Exception
Throw New ArgumentException(“query”)
Finally
cmd.Connection.Close()
End Try
Return dt
End Function

‘
‘ Add the ability to return a DataSet based on a particular query
‘ to a queryable object.
‘
‘ The IQueryable object to extend.
‘ The query to execute.
‘ The name of the DataTable to be added.
‘ The populated dataset.

Public Shared Function ToDataSet(ByVal extenderItem As IQueryable, ByVal query As DbCommand, ByVal tableName As String) As DataSet
If query Is Nothing Then Throw New ArgumentException(“query”)
Return ToDataSet(extenderItem, query, Nothing, tableName)
End Function

‘
‘ Add the ability to return a dataset based on a particular query
‘ to a queryable object.
‘
‘ The IQueryable object to extend.
‘ A generic dictionary containing the
‘ query to execute along with the name of the table to add it to.
‘ The populated dataset.

Public Shared Function ToDataSet(ByVal extenderItem As IQueryable, ByVal query As Dictionary(Of String, DbCommand)) As DataSet
If query Is Nothing Then Throw New ArgumentException(“query”)
If query.Count = 0 Then Throw New ArgumentException(“query”)
Return ToDataSet(extenderItem, query, Nothing)
End Function

‘
‘ Add the ability to return a dataset based on a particular query ‘ to a queryable object.
‘
‘ The IQueryable object to extend.
‘ A generic dictionary containing the
‘ query to execute along with the name of the table to add it to.
‘ An optional DataSet. This allows application
‘ to add multiple tables to the dataset.
‘ The populated dataset.

Public Shared Function ToDataSet(ByVal extenderItem As IQueryable, ByVal query As Dictionary(Of String, DbCommand), ByVal _dataSet As DataSet) As DataSet
If query Is Nothing Then Throw New ArgumentException(“query”)
If query.Count = 0 Then Throw New ArgumentException(“query”)
If _dataSet Is Nothing Then _dataSet = New DataSet
For Each kvp As KeyValuePair(Of String, DbCommand) In query
_dataSet = LinqDataExtensions.ToDataSet(extenderItem, kvp.Value, _dataSet, kvp.Key)
Next
Return _dataSet
End Function

‘
‘ Add the ability to return a dataset based on a particular
‘ query to a queryable object.
‘
‘ The IQueryable object to extend.
‘ The query to execute.
‘ An optional DataSet. This allows
‘ application to add multiple tables to the dataset.
‘ The name of the DataTable to be added.
‘ The populated dataset.

Public Shared Function ToDataSet(ByVal extenderItem As IQueryable, ByVal query As DbCommand, ByVal _dataSet As DataSet, ByVal tableName As String) As DataSet
If query Is Nothing Then Throw New ArgumentException(“query”)
If _dataSet Is Nothing Then
_dataSet = New DataSet
Dim tbl As DataTable = LinqDataExtensions.ToDataTable(extenderItem, query, tableName)
If tbl IsNot Nothing Then
If _dataSet.Tables.Contains(tableName) Then
_dataSet.Tables.Remove(tableName)
_dataSet.Tables.Add(tbl)
End If
Return _dataSet
End If
End If
Return Nothing
End Function
End Class