菜鸟求助,包给分

Question

dim db as new adodc.connection
dim rs as new adodc.recordset
dim sql as string
sql="数据库路径"
db.open 
sql="要操作的sql语句"
rs.open
进行你所要的操作
rs.close
db.close

Answer 1

用msflexgrid 或 mshflexgrid 很简单，也很好用。
dim rs as new recordset
dim sql as string
sql="select * from table where ..."
rs.open sql 数据塬

Answer 2

dim conn as new connection
dim rs as new recordset
conn.connectstring="provider=...."
conn.open
sqlstring="select * from table1 where a=" & b & "'"
rs.open sqlstring,conn,3,3
if rs.recordcount>0 then
 do while not rs.eof
  treeview1.additem(rs(0))
  rs.movenext
end if
rs.close

Answer 3

这个问题很简单，我想你应该是个初学者，我说一下思路，希望能对你有帮助：
在FORM_LOAD里加进代码是LISTBOX动态取出各部门姓名字段值
在LISTBOX_CLICK(或CHANGE)事件里加进SQL语句取出该条记录,把相应的字段信息写入TEXTBOX里即可.