首页 >> 读书频道 >> 电脑 >> 在记忆体中的ADO记录集与DataBinding
 
· 用VB实现全屏幕图形界面
· 用VB5 Winsock
· 在VB中制作单独程序封面
· 在VB程序中怎样挂断拨号
· VB中阴影字体的实现
· 制作自己的网络搜索软件
· 利用VB的图片框实现屏幕
· 用VB编写网络寻呼机
· 用VB制作浏览器
· 浅谈用VB6.0编写BO
· 使用VB收发电子邮件
· MultiLink的Wi
 
· 电视剧《刁蛮公主》下载和
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

在记忆体中的ADO记录集与DataBinding


查看有无更新版本

关键字:VB 2006-9-18

 

我觉得这是一个十分好的功能,在DAO/RDO 的物件下,Database/Table必需真的存在,
如果我们想用一个暂存的Table做事情,那真的要在Disk中做I/O;然而在ADO中,恰
好反相反,它可以在记忆体中建立一个Resultset,而後可以在其上做资料库的动作;
但是用ADO却不像DAO可以真的CreateTable或CreateDatabase(那种真的存在Disk者)

以本例来说,它也开启了另一个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很棒,不过,我用它於
   OLE DB Privder for ODBC之上,常常会执行期错误,而使VB结束掉
4.自订的Data Aware的物件类别,这又是另一个主题,查一下VB6的help吧。  
  

以下程序需 Textbox * 2 , CommandBox * 2
Private rs As New ADODB.Recordset ' 记录集的变数Private Sub Command1_Click()rs.MoveNextEnd SubPrivate Sub CreateRecordset()With rs '建立rs的Table结构 .Fields.Append "ID", adInteger .Fields.Append "Item", adBSTR, 255 .CursorType = adOpenStatic .LockType = adLockOptimistic .Open '不需要连接物件。End WithDim i As Integer'新增资料到Resultset中For i = 1 To 100 rs.AddNew rs!id = i rs!Item = "thing " & i rs.UpdateNext irs.MoveFirstEnd SubPrivate Sub Command2_Click()rs.MovePreviousEnd SubPrivate Sub Form_Load()Command1.Caption = "MoveNext"Command2.Caption = "MovePrevious"Call CreateRecordset'定义Text1 为DataBinding,资料来源是rs, 显示栏位是idSet Text1.DataSource = rsText1.DataField = "id"'定义Text1 为DataBinding,资料来源是rs, 显示栏位是ItemSet Text2.DataSource = rsText2.DataField = "Item"End SubPrivate Sub Form_Unload(Cancel As Integer)rs.CloseEnd Sub

在记忆体中的ADO记录集与DataBinding

[ 1 ]
在记忆体中的ADO记录集与DataBinding num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑