new
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
s.Open "select * from tbl_flat1 where Flat_No = '" + Combo1.Text + "'",<br />
cn, adOpenDynamic, adLockPessimistic<br />
rs.Fields("Floor_No") = Text2.Text<br />
rs.Fields("Furnished") = Text3.Text<br />
rs.Fields("Rooms") = Text4.Text<br />
rs.Fields("Amount") = Text5.Text<br />
rs.Update<br />
MsgBox ("Successfully cancelled")<br />
End Sub<br />
Private Sub Form_Load()<br />
bindcombo<br />
End Sub<br />
Public Function bindcombo()<br />
Call CONNECT<br />
rs.Open "select * from tbl_flat1", cn, adOpenDynamic, adLockPessimistic<br />
While rs.EOF = False<br />
Combo1.AddItem (rs.Fields("Flat_no"))<br />
rs.MoveNext<br />
Wend<br />
End Function<br />
9.OWNER DETILS<br />
Dim s, r<br />
Dim t1, t2
Change language