Reply to thread

Message: <blockquote data-quote="K_ZONE" data-source="post: 17183293" data-attributes="member: 207562"> නාකි ඉබ්බා vb.net ප්‍රවීනයා නේද <img src="/styles/default/xenforo/smilies/default/D.gif"  class="smilie" loading="lazy" alt=":D" title="Big grin    :D" data-shortname=":D" /> කෝ කියලා දීපංකො <img src="/styles/default/xenforo/smilies/default/D.gif"  class="smilie" loading="lazy" alt=":D" title="Big grin    :D" data-shortname=":D" /> පොඩි කේස් එකක්නෙ,,, <img src="/styles/default/xenforo/smilies/default/P.gif"  class="smilie" loading="lazy" alt=":P" title=":P    :P" data-shortname=":P" /> මචො, ඕක කරන්න ක්‍රම ගොඩක් තියෙනවා, Key-Value Pairs, Value-List Items, DisplayMember + ValueMember, Type, වෙනම Class එකක් අරගෙන ඒක Object එකක් විදියට Combo එකට දාගෙන, තව ඕන තරම් ක්‍රම තියෙනවා, .net 4.0 වගේ වෙනකොට ක්‍රම 20 ක් විතර තියෙනවා ඕක කරගන්න පුලුවන්,' ඒත් මගේ අද්දැකීම් වල හැටියට හොදම දේ තමයි. Combo box එකේ Change Event එකට හරි Mouse Release එකෙන් හරි SQL Query එකක් Run කරලා Combo එකේ Select කරපු එකට අදාල අනිත් data ටික ආයෙත් පාරක් Database එකෙන් ගන්න. ඒකෙ තියෙන වාසි තමයි, 1. Combo එකේ Load එක අඩු නිසා Data Load වෙන්න ගොඩක් වෙලා යන්නෙ නැ, 2. Program එක ඉක්මනට response කරනවා, 3. Memory එක අඩුවෙන් පාවිච්චි වෙන්නෙ, 4. විශාල Items  ප්‍රමානයක් එක්ක උනත් වැඩ කරන්න පුලුවන්, 5. ප්‍රශ්නයක් ආවම ලෙඩේ හොයාගන ගොඩක් ලේස්යි. 6. සරලයි 8. Database එක කිහිපදෙනක් Update කරත් මිලි තත්පර කිහිපයක් ඇතුලට වෙනස් උන Data උනත් ගන්න පුලුවන්. 9. සීමාවක් නැතුව අපිට අවශ්‍ය columns ගානක් ගන්න පුලුවන් මම vb.net කරන්නෙ නැ, Code කැල්ලක් net එකෙන් උස්සලා දාන්නම් දැන් ක්‍රමේ දන්න නිස try එකක් දෙන්න. [CODE]ComboBox1_SelectedIndexChanged(ByVal sender As Object, _         ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim con As OleDbConnection Dim sql As String str = “Provider=Microsoft.Jet.oledb.4.0;Data Source=C:\student.mdb;” con = New OleDbConnection(str)       sql = “select * from students where roll='” & CType(ComboBox1.SelectedItem, String) & “‘” Dim cmd As OleDbCommand  Dim r As OleDbDataReader  Try     con.Open()    cmd = New OleDbCommand(sql, con)     r = cmd.ExecuteReader()    If r.Read Then       sname.Text = r(“name”)      mobile.Text = r(“mobile”)        email.Text = r(“email”)    Else      sname.Text = “”      roll.Text = “”      mobile.Text = “”      email.Text = “”      MessageBox.Show(“No Information  found”)     End If                con.Close()    Catch ex As OleDbException      MsgBox(ex.Message, MsgBoxStyle.Critical, “Oledb Error”)   Catch ex As Exception        MsgBox(ex.Message, MsgBoxStyle.Critical, “General Error”) End Try   End Sub[/CODE]</blockquote>

Verification: Asuwa dahayen wadi kalama keeyada?

Top Bottom