Delphi下的ADO使用方法！

• 
  
  利用Interface访问ADO：
  
  
  
  利用Interface访问ADO的步骤同从前的例子大致相同：
  
  
  
  procedure TForm1.InterfaceBtnClick(Sender: TObject);
  
  var RecordSet: _RecordSet;
  
  DSN: string;
  
  begin
  
  // Create an empty recordset object
  
  OleCheck(CoCreateInstance(CLASS_RecordSet, nil,
  
  CLSCTX_ALL, IID__RecordSet, RecordSet));
  
  DSN := ’dsn=’ + DSNSTRING;
  
  // Fill the recordset
  
  RecordSet.Open(SelectString, DSN, adOpenForwardOnly,
  
  adLockReadOnly, adCmdUnspecified);
  
  // Display the data
  
  Display(RecordSet);
  
  UpdateBtn.Enabled := True;
  
  end;
  
  
  
  同前一节的代码不同，这些代码必须包含ADODB_TLB.PAS。
  
  这一段代码用ADODB_TLB.PAS中声明的_RecordSet代替了Variants。
  
  这里直接调用了CoCreateInstance来生成对象的实例。第一个参数传递了声明于ADODB_TLB.PAS中的常量CLASS_RecordSet，它代表RecordSet的Class ID，第四个参数为IID__RecordSet，也是声明于ADODB_TLB.PAS中的，注意，它带有两条下划线！最后一个参数是我希望建立的实例。
  
  当调用recordSet.Open的时候，应该穿第五个参数。
  
  const
  
  SELECTSTRING = ’SELECT * FROM Clients.dbf’;
  
  DSNSTRING = ’DBDemosDBase’;
  
  
  
  begin
  
  .. // Code omitted
  
  DSN := ’dsn=’ + DSNSTRING;
  
  RecordSet.Open(SelectString, DSN, adOpenForwardOnly,
  
  adLockReadOnly, adCmdUnspecified);
  
  .. // Code omitted
  
  end;
  
  在前一节的例子中，可以只传递两个参数，这是因为Variants允许忽略参数，这时采用缺省值。当采用Interfaces时，则必须明确的定义参数。如果希望采用缺省值，则可以向下面这样调用函数：
  
  RecordSet.Open(SelectString, DSN, EmptyParam, EmptyParam, EmptyParam);
  
  在这里我们使用了EmptyParam这样一个Variant，它被声明于System.Pas，这些参数将采用缺省值。上面的例子中我用了声明于ADODB_TLB.PAS中的真正的缺省值。此类问题可参考Data Access SDK中的相关文件。
  
  打开数据集以后，就可以用同上一节相同的方法显示数据。唯一的不同就是RecordSet.Move方法要有两个参数。
  
  procedure TForm1.Display(RecordSet: _RecordSet);
  
  var Y, i: Integer;
  
  begin
  
  Y := 1;
  
  Repeat
  
  for i := 0 to 6 do
  
• 上一页 [1] [2] [3] [4] [5] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi下的ADO使用方法！ 相关文章：
• ·将来会比较流行的几种导航的方向
• ·把网页保存为图片 换种方式收集有用资料
• ·Windows Vista停止报告程序问题的技巧方法
• ·Photoshop字体安装使用方法和技巧
• ·QQ常在异地登录的原因及其应对方法
• ·不再怕电脑病毒 电脑中毒后的6招处理方法
• ·用JavaScript刷新框架子页面的方法
• ·加快Windows Vista系统窗口打开速度的方法
• ·防范黑客攻击Oracle系统的八大常用方法
• ·轻松方便 三招两式抵制IE的顽固病毒
• Delphi下的ADO使用方法！ 相关软件
• ·王牌空战6官方宣传片1
• ·行会2之维京霸主－模拟方式免CD补丁
• ·医院大亨－模拟方式免CD补丁
• ·《苍天》双手大刀操作方法介绍视频
• ·《苍天》偃月刀操作方法介绍视频
• ·做人做事好方法
• ·《方块之旅》游戏试玩
• ·《反恐精英》丹麦电竞组织mYm官方音乐
• ·《鬼泣4》E32007官方游戏画面视频
• ·《GTA4》官方宣传片2

上一篇:Delphi用Sender参数实现代码重用

下一篇:Delphi实现下载进程的动态显示

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐