Click here to Skip to main content
15,891,473 members
Please Sign up or sign in to vote.
1.00/5 (1 vote)
See more:
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, "Table")
vTrans.Commit()
vcon.Close()
Return View("Index", ds.Tables.ToString())
Catch ex As Exception
ex.Message().ToString()
Finally
End Try
Return View()
End Function
Posted
Updated 27-Jan-15 22:21pm
v4

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month


CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900