Function Show() As ActionResult
Try
Dim vcon = connobj.makeConnection()
Dim vTrans = vcon.BeginTransaction(Data.IsolationLevel.ReadCommitted)
Dim qry1 = "Select * from testdemo"
Dim ds As New DataSet
Dim da = New OdbcDataAdapter(qry1, vcon)
da.SelectCommand.Transaction = vTrans
da.Fill(ds, "testdemo")
vTrans.Commit()
Dim lmd As New List(Of modeldata)()
For Each dr As DataRow In ds.Tables(0).Rows
lmd.Add(New modeldata() With
{
.nUserID = Convert.ToInt64(dr("id")),
.sfname = dr("fname").ToString(),
.slname = dr("lname").ToString()
})
Next
Return View(lmd)
vcon.Close()
'Return View("Index", ds.Tables.ToString())
Catch ex As Exception
ex.Message().ToString()
Finally
End Try
Return View()
End Function