当前页面位置: » 丰搜网 » 文档中心 » 详细内容
在记忆体中的ado资料录集与databindin
在dao/rdo 的物件下，database/table必真的存在，如果我们想用一个暂存的table做事情，那真的要在disk中做i/o；然而在ado中，恰好反相反，它可以在记忆体中建立一个resultset， 而後可以在其上做资料库的动作；但是用ado却不像dao可以真的createtable或createdatabase(那种真的存在disk者)。
我们data process的程式不常会有table sorting的动作吗？以前是一件痛苦的事，我们也可以用忆体的recordset来做，这是一个不错的选择。
以本例来说，它也开启了另一个databinding的情况，在vb5.0时，databinding一定得配合data控制项来做，而到了vb6.0呢，它的范围可多了不少，首先datasource可以设定的物件主要有
1. adodc，这和传统的data控制项是同等的位置，但现在datasource不但可以设定给data控制项(於design time)，现在也可以设定给adodc控制项(design/run time皆可)
2. ado resultset，这就是本例的做法，而且不仅在这种记忆体resultset可用，就算真的binding的resultset是指向remote端的实№资料也可以work，而且，我们在control项(如textbox)上面的资料变更，也会反映给remote端，当然了，要有权限update才不会有错。这个功能实在很帅！如此一来就不用adodc也可做到databinding
3.data environment：这个工具实在很强，它是图形化的一个介面，设定好之後，在程式中便可以把datasource指定成data environment物件，而一个data environment可以有多个command物件於其上(我想data environment物件本身有ado connection物件的包装)，所以设定datamember 将指定使用哪一个command 物件。而datafiled就很明显了，详细的做法我不在这里说明，这data environment很棒。
4.自订的data aware的物件类别，这又是另一个主题，查一下vb6的help吧。
以下程式 textbox * 2 , commandbox * 2
private rs as new adodb.recordset 资料录集的变数
private sub command1_click()
rs.movenext
end sub
private sub createrecordset()
with rs
建立rs的table结构
.fields.append "id", adinteger
.fields.append "item", advarchar, 255
.cursortype = adopenstatic
.locktype = adlockoptimistic
.open 不 要连接物件。
end with
dim i as integer
新增资料到resultset中 rs.addnew
rs!id = i
rs!item = "thing " & i
rs.update
next i
rs.movefirst
rs.sort = "item" 如果想要对recordset做sorting还可以用sort来做
end sub
private sub command2_click()
rs.moveprevious
end sub
private sub form_load()
command1.caption = "movenext"
command2.caption = "moveprevious"
call createrecordset
定义text1 为databinding，资料来源是rs, 显示栏位是id
set text1.datasource = rs
text1.datafield = "id"
定义text1 为databinding，资料来源是rs, 显示栏位是item
set text2.datasource = rs
text2.datafield = "item"
end sub
private sub form_unload(cancel as integer)
rs.close
end sub
