-- v --linq to datatable func --v --
Friend Shared Function Fn_LinQToDataTable(ctx As System.Data.Linq.DataContext, query As Object) As DataTable
If query Is Nothing Then
Return New DataTable
End If
'...........
Dim cmd As IDbCommand = ctx.GetCommand(TryCast(query, IQueryable))
Dim adapter As SqlDataAdapter = New SqlDataAdapter()
adapter.SelectCommand = CType(cmd, SqlCommand)
Dim dt As DataTable = New DataTable("sd")
Try
cmd.Connection.Open()
adapter.FillSchema(dt, SchemaType.Source)
adapter.Fill(dt)
Catch ex As Exception
MsgBox(ex.Message)
Return New DataTable
Finally
cmd.Connection.Close()
End Try
Return dt
End Function
-- | --linq to datatable func --| --
-----------v grid datasource v ------------
DevExGridGENEL.DataSource = ClassUserYetki.Fn_LinQToDataTable(yetkicntx, Fn_AnaMenu_YetkileriGenel)
-----------| grid datasource | ------------
----v-- IQueryable Func --v-----
Friend Function Fn_AnaMenu_YetkileriGenel() As IQueryable
Dim yetkiler = (From y In yetkicntx.TBLYETKILERs Join m In yetkicntx.TBLMODUL_EKRANLARs On y.Form_Adı Equals m.Form_Adı
Join u In yetkicntx.TBLUSERs On y.User_Name Equals u.User_Name
Where y.User_Name = usr
Select y.YID, y.Modül, m.Grup, m.Tipi, y.Form_Adı, u.User_Name, y.Yetki, m.Form_Başlık, u.RolGrup, m.MID)
Return yetkiler
End Function
----|-- IQueryable Func --|-----
Yorumlar
Yorum Gönder