Latest ads

Ad icon
ZTE MF283U 4G Unlocked Router (Used)
- ayanthamaxi
- Updated: Sunday at 8:26 PM
ලංකාවේ හොඳම උපකාරක පන්ති සහ ගුරුවරුන් එකම තැනකින් - TopTuition.lk
- dulithapathum
- Updated: Jul 18, 2026
Colombo RidhMathraa ’26 🎶✨
- Tmadhusanka
- Updated: Jul 15, 2026
Ad icon
Colombo PXN V10 Pro Direct Drive Racing Wheel (Under Warranty)
- Abdur Rahman
- Updated: Jul 15, 2026
Ad icon
USDT ණය සේවාව - USDT Loan Service
- පුරවැසියා
- Updated: Jul 15, 2026

Reply to thread

Message: <blockquote data-quote="wKani" data-source="post: 10027228" data-attributes="member: 274808"><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"><span style="color: Red">Thanks machanka help walata.... <img src="/styles/default/xenforo/smilies/default/happy.gif"  class="smilie" loading="lazy" alt=":)" title="Happy    :)" data-shortname=":)" /></span></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"><span style="color: Green">me thiyenne mage code eka... poddak balapalla... </span></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">Dim da As New SqlDataAdapter("SELECT * FROM NewCategory", con)</span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         Dim ds As New DataSet</span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">  </span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         Dim com As SqlCommandBuilder = New SqlCommandBuilder(da)</span></span><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">  </span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         con.Open()</span></span><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         da.Fill(ds, "category")</span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         con.Close()</span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">  </span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         Dim dt As DataTable = ds.Tables("category")</span></span><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">  </span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         con.Open()</span></span><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">  </span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM  NewCategory WHERE CatCode = '" & cmbCatCode.Text & "'", con)</span></span><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">  </span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         Dim dr As DataRow = dt.NewRow</span></span><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">  </span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         Dim reader As SqlDataReader = cmd.ExecuteReader()</span></span><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">         If reader.HasRows Then</span></span><p style="margin-left: 20px">             <span style="font-family: 'Courier New'"><span style="color: RoyalBlue"><em>'<span style="color: Red">methanata oni code eka thamai mata danaganna oni.. </span></em></span></span><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p> <p style="margin-left: 20px"><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span> </p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">        Else</span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">             'the data does not exist.</span></span></p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span><p style="margin-left: 20px"><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">             dr("CatCode") = cmbCatCode.Text</span></span></p> <p style="margin-left: 20px"><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">             dr("CatName") = cmbCatName.Text</span></span></p> <p style="margin-left: 20px"><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">             dt.Rows.Add(dr)</span></span></p> <p style="margin-left: 20px"><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">             Dim drmod As DataRow() = ds.Tables("category").Select(Nothing, Nothing, DataViewRowState.Added)</span></span></p> <p style="margin-left: 20px"><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">  </span></span></p> <p style="margin-left: 20px"><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">             da.Update(drmod)</span></span><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span></p> <p style="margin-left: 20px"><span style="font-family: 'Courier New'"><span style="color: RoyalBlue"></span></span> </p><p><span style="font-family: 'Courier New'"><span style="color: RoyalBlue">End If</span></span></p></blockquote><p></p>

Verification: Winadiyakata thappara keeyak tibeda?

Top Bottom