Delphi下的ADO使用方法！

• 
  RecordSet: OleVariant;
  
  Y, i: Integer;
  
  begin
  
  // Create an empty recordset object
  
  RecordSet := CreateOleObject(’ADODB.Recordset’);
  
  // Fill the recordset
  
  RecordSet.Open(SELECTSTRING, DSNSTRING);
  
  // Display the data
  
  Y := 1;
  
  repeat
  
  for i := 0 to 6 do
  
  StringGrid1.Cells[i, Y] := RecordSet.Fields[i].Value;
  
  RecordSet.Move(1);
  
  Inc(Y);
  
  until RecordSet.EOF;
  
  end;
  
  procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  
  ARow: Integer; var CanSelect: Boolean);
  
  begin
  
  Edit1.Text := StringGrid1.Cells[ACOl, ARow];
  
  end;
  
  end.
  
  这个程序有三个按钮，一个StringGrid以及一个编辑框，第一个按钮利用以Variants连接的ADO填充表格，第二个则利用Inteface进行连接。
  
  第三个按钮用于修改数据，当用户单击StringGrid的单元格时，单元格中的数据会显示于编辑框中，可以修改编辑框中的数据，然后单击这个按钮，将会修改这个单元格以及数据库中的数据。
  
  ADO中含有许多不同的对象，本文将集中讲述RecordSet和Fields这两个对象。
  
  可以用如下的代码生成一个RecordSet的实例：
  
  var
  
  RecordSet: OleVariant;
  
  begin
  
  RecordSet := CreateOleObject(’ADODB.Recordset’);
  
  ... // Code omitted here
  
  end;
  
  CreateOleObject声明于ComObj.Pas中。它是ActiveX.Pas中的核心函数CoCreateInstance的一个简单包装。
  
  要打开数据库，可利用以下代码：
  
  const
  
  SELECTSTRING = ’SELECT * FROM Clients.dbf’;
  
  DSNSTRING = ’DBDemosDBase’;
  
  
  
  begin
  
  RecordSet := CreateOleObject(’ADODB.Recordset’);
  
  RecordSet.Open(SELECTSTRING, DSNSTRING);
  
  .. // Code omitted here
  
  end;
  
  Open方法有很多参数，但是在这个程序中我们只处理其中的两个。第一个是我们要执行的SQL语句，第二个是我们要操作的数据库。
  
  当打开一个数据集时，数据集游标位于第一个记录，可以用下面的代码访问这个记录：
  
  
  
  MyString := RecordSet.Fields[0].Value;
  
  MyString := RecordSet.Fields[1].Value;
  
  
  
  要移动游标，可以用RecordSet对象的Move方法：
  
  RecordSet.Move(1);
  
  
  
  
• 上一页 [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

特别推荐