msflexgrid的一个问题..菜菜

Question

数据库:master 表:userinfo 字段:userid,username,password
窗体里msflexgrid1,command1两个控件..
目的:单击command1,在msflexgrid里显示我查找的信息"select userid,username from userinfo"Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As Stringcn = "Provider=sqloledb;Server=127.0.0.1;Database=master;Uid=sa;" + "Pwd=;"
cn.Open
sql = "select userid,username from userinfo"哪位哥哥帮我写一个,谢谢

Answer 1

Dim   cn   As   New   ADODB.Connection 
Dim   rs   As   New   ADODB.Recordset 
Dim   sql   As   String cn = "Provider=sqloledb;Server=127.0.0.1;Database=master;Uid=sa;"   +   "Pwd=;" 
cn.Open 
sql = "select userid,username  from userinfo" 
if rs.state<>adstateclosed then rs.close
rs.open sql,cn,adopenkeyset,adlockreadonly
set msflexgrid1.datasource=rs
rs.close

Answer 2

哥哥
..set   msflexgrid1.datasource=rs 这个是错的..本来我也是这样想的..
论坛里好像有说运行时不能设置数据源的..

Answer 3

看遍了你的问题，也没有发现你哪里使用了msflexgrid ？？

Answer 4

嘎嘎..先前是一点也不懂..现在会一点点啦..不过代码是巨俗无比..
我要把分给左手哥,WallesCai哥你拿星星出来吓我..嘎嘎