Vb6 screen updating

Posted by / 27-Jan-2018 05:14

", vb Information, "Message" End If End Sub Sub refreshdata() rs. Open "Select * from Profile TBL", con, ad Open Static, ad Lock Pessimistic If Not rs. Move Next display Else Msg Box "No Record Found" End If End Sub Private Sub findbtn_Click() rs. Open "Select * from Profile TBL where Roll No='" Text1. OLEDB.4.0; Data Source=D:\Database Folder\Profile DB.mdb; Persist Security Info=False" rs.

Update refreshdata Else Msg Box "Profile Not Deleted ..!!

Picture = Load Picture("") End Sub Private Sub Combo1_Click() Combo2.clear If Combo1. Add Item "SEMESTER-VIII" display End Sub Sub display() Text1. Move Last display End Sub Private Sub nextbtn_Click() rs. Move First display End Sub Private Sub lastbtn_Click() rs. Move First display End If End Sub Private Sub Previousbtn_Click() rs. Move Last display Else display End If End Sub Private Sub savebtn_Click() rs.

vb6 screen updating-78vb6 screen updating-35vb6 screen updating-63

It does not reorder records, display new records, or remove deleted records and records that no longer meet specified criteria.