select tablegr_group from tablegr where tablegr_group <> 'N/A' group by tablegr_group

in sql server

nopchan wrote:

select tablegr_group from tablegr where tablegr_group <> 'N/A' group by tablegr_group

in sql server

Look at "Generated code - Field expressions and aggregates" in the documentation.

Here is the example from the document

' VB.NET
Dim adapter As New DataAccessAdapter()
Dim fields As New ResultsetFields(3)
fields.DefineField(EmployeeFieldIndex.FirstName, 0, "FirstNameManager", "Manager")
fields.DefineField(EmployeeFieldIndex.LastName, 1, "LastNameManager", "Manager")
fields.DefineField(EmployeeFieldIndex.LastName, 2, "AmountEmployees", "Employee", AggregateFunction.Count)
Dim bucket As IRelationPredicateBucket = New RelationPredicateBucket()
bucket.Relations.Add(EmployeeEntity.Relations.EmployeeEntityUsingEmployeeId, "Employee", "Manager", JoinHint.None)

Dim groupByClause As IGroupByCollection = New GroupByCollection()
groupByClause.Add(fields(0))
groupByClause.Add(fields(1))

Dim dynamicList As New DataTable()
Dim dao As New TypedListDAO()
adapter.FetchTypedList(fields, dynamicList, bucket, 0, Nothing, True, groupByClause)

sparmar2000 wrote:

Here is the example from the document

' VB.NET
Dim adapter As New DataAccessAdapter()
Dim fields As New ResultsetFields(3)
fields.DefineField(EmployeeFieldIndex.FirstName, 0, "FirstNameManager", "Manager")
fields.DefineField(EmployeeFieldIndex.LastName, 1, "LastNameManager", "Manager")
fields.DefineField(EmployeeFieldIndex.LastName, 2, "AmountEmployees", "Employee", AggregateFunction.Count)
Dim bucket As IRelationPredicateBucket = New RelationPredicateBucket()
bucket.Relations.Add(EmployeeEntity.Relations.EmployeeEntityUsingEmployeeId, "Employee", "Manager", JoinHint.None)

Dim groupByClause As IGroupByCollection = New GroupByCollection()
groupByClause.Add(fields(0))
groupByClause.Add(fields(1))

Dim dynamicList As New DataTable()
Dim dao As New TypedListDAO()
adapter.FetchTypedList(fields, dynamicList, bucket, 0, Nothing, True, groupByClause)

I don't understand

fields.DefineField(EmployeeFieldIndex.FirstName, 0, "FirstNameManager", "Manager") fields.DefineField(EmployeeFieldIndex.LastName, 1, "LastNameManager", "Manager") fields.DefineField(EmployeeFieldIndex.LastName, 2, "AmountEmployees", "Employee", AggregateFunction.Count)

I want to group by only one field

Dim groupByClause As IGroupByCollection = New GroupByCollection() groupByClause.Add(fields(0)) groupByClause.Add(fields(1))

You can define yourself to gorupby one fiels or multiple fields.