Dim da = New OdbcDataAdapter(qry1, vcon)
da.SelectCommand.Transaction = vTrans
da.Fill(ds, "testdemo")
vTrans.Commit()
Dim lmd As New List(Of modeldata)()
Return View("View1", lmd)
view
@Modeltype System.Data.DataSet
@code
ViewBag.title = "View"
ViewData("Title") = "VIEW"
End code
@ViewBag.Title
@code
Dim grid As New WebGrid(Model, rowsPerPage:=5)
@grid.GetHtml(tableStyle:="table", fillEmptyRows:=True, headerStyle:="header", footerStyle:="grid-footer", mode:=WebGridPagerModes.All, firstText:="<< First", _
previousText:="< Prev", nextText:="Next >", lastText:="Last >>")
End code