代码请教！

Question

begin
   with ADOTable1 do
   begin
     label2.Caption:='';
     IndexFieldNames:='CustNo';
     SetKey;
     FieldByName('CustNo').AsString:=Edit1.Text;
     if GotoKey then
       begin
         label2.Caption:='查找成功';
         Edit2.Text:=FieldByName('Address').AsString;
       end
     else
     label2.Caption:='查找失败';
   end;
end;  
 
错误：
[Error] lizi.pas(46): Undeclared identifier: 'SetKey'
[Error] lizi.pas(48): Undeclared identifier: 'GotoKey'
[Fatal Error] lizi1.dpr(5): Could not compile used unit 'lizi.pas'

Answer 1

TAdoTable好像没有这个函数
setkey时BDE中TTable的方法

Answer 2

哦，这样啊，那请问我如果要用ADO的话，用什么函数代替，怎么改这个程序，谢谢

Answer 3

with AdoTalbe1 do
Try
   Close;
   Sql.Text:=' select * from *** where CustNo='+QuotedStr(Edit1.Text);
   if IsEmpty then 
   ShowMessage('没有找到！')
   ........
Except
   X:Exception Do ShowMessage('数据查找错误!'+x.Message);
End;
  这样也可以实现,更灵活!多看看书

Answer 4

不好意思上边忘了个open
 Sql.Text:=' select * from *** where CustNo='+QuotedStr(Edit1.Text);
 Open;

Answer 5

你想写个什么东西呢,那个例子好像时Dephi开发指南上的例子

Answer 6

请问一下，我想学习有关ADO的，可是在网上载了很多都只能找到TABLE的，不知道有没有介绍ADOD的电子书籍，小弟很是渴望！