DataTable Update Data in vb.net

Connection Oracle Link

Dim da As OracleDataAdapter
Dim dt As New Data.DataTable("dt")
Dim strSQL As String = ""
strSQL = "SELECT * FROM TBL_TABLE where ID = '1'"
ConnectionOpen()
da = New OracleDataAdapter(strSQL, conn)
Dim SqldtSearch As OracleCommandBuilder = New OracleCommandBuilder(da)
dt.Columns.Clear()
dt.Rows.Clear()
da.Fill(dt)

' Edit Datatble Update  " Braaaaaa......."
da.Update(dt)

MsgBox("Save Complete !!!")
ConnectionClose()

Read More

Loop DataTable in vb.net

Dim dt As New DataTable("dt1")

'------------------------- Add Columns DataTable -------------------------------
dt.Columns.Add("ID", GetType(Integer))
dt.Columns.Add("NAME", GetType(String))
dt.Columns.Add("SURNAME", GetType(String))

'------------------------- Add Data DataTable -------------------------------
Dim dr As DataRow
dr = dt.NewRow
dr("ID") = 1
dr("NAME") = "Jenny"
dr("SURNAME") = "MAC"
dt.Rows.Add(dr)

dr = dt.NewRow
dr("ID") = 2
dr("NAME") = "Jenny"
dr("SURNAME") = "Blogger"
dt.Rows.Add(dr)

'------------------------- Loop DataTable -------------------------------
Dim str1 As String
Dim FRow1 As DataRow()
FRow1 = dt.Select("", "", DataViewRowState.CurrentRows)
For Each r1 In FRow1
    str1 = r1("name").ToString
Next

'------------------------- Where Loop DataTable -------------------------------
'              กรณีมีเงื่อนไขในการ วน Loop DataTable
Dim str2 As String
Dim wh As String = "id = 1 and SURNAME = 'Blogger' "
Dim sort As String = "id"              'หรือ "id DESC"
Dim FRow2 As DataRow()

FRow2 = dt.Select(wh, sort, DataViewRowState.CurrentRows)
For Each r1 In FRow2
    str2 = r1("name").ToString
Next

'------------------------- Group DataTable -------------------------------
'                   กรณีมีเงื่อนไขในรวม Group DataTable

Dim dv As New DataView(dt)
Dim dt_Group As DataTable
dt_Group = dv.ToTable(True, New String() {"NAME", "SURNAME"})

Read More