How to Call Data in Combo box very Esealy.
How to Call Data in Combo box very Esealy.
API Declarations
Only Must a Combo1 and SQL server connection as cn.
Rate How to Call Data in Combo box very Esealy.
(1(1 Vote))
Dim rst as new adodb.recordset
private sub form_load()
if rst.state <>0 then rst.close
rst.open "select usernm,userid from users order by usernm",adopendynamic,adlockoptimistic
if rst.recordcount >0 then
do until rst.eof
combo1.additem (Rst(0))
combo1.itemdata (rst(1))
rst.movenext
Loop
end if
End sub
If you are using this code then revert me back for next topics for freely.
How to Call Data in Combo box very Esealy. Comments
No comments yet — be the first to post one!
Post a Comment