<<<<200分求解1个简单数据库问题

Question

vartostr 放在这里有用吧，没有用就拿掉了

Answer 1

Fadotable1.connectionstring := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=table117';
  Fadotable1.tablename := 'Info';   
  Fadotable1.Open;  while Fadotable1.fieldbyname('Id').asstring<>'87' do
    begin
      showmessage('aa');
      //showmessage(Fadotable1.fieldbyname('NetName').asstring);
      Fadotable1.Next;
    end;

Answer 2

Fadotable1.connectionstring := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=table117';
  Fadotable1.tablename := 'Info';   
  Fadotable1.Open;
  if Fadotable1.recordcount>0 then
  begin
    Fadotable1.first;
     while Fadotable1.fieldbyname('Id').asstring<>'87' do
     begin
        showmessage('aa');
        //showmessage(Fadotable1.fieldbyname('NetName').asstring);
        Fadotable1.Next;
        if Fadotable1.eof then break;
     end;
   end;

Answer 3

Fadotable1.connectionstring := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=table117';
Fadotable1.tablename := 'Info';   
Fadotable1.Open;
Fadotable1.first;
  while Fadotable1.fieldbyname('Id').value)<>87 do
    begin
      showmessage('aa');
      //showmessage(Fadotable1.fieldbyname('NetName').asstring);
      Fadotable1.Next;
    end;我想这样应该可以了！

Answer 4

我怀疑是adotable1.active的问题，大伙认为呢？

Answer 5

vartostr 拿掉，应该可以解决的

Answer 6

Fadotable1.connectionstring := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=table117';
  Fadotable1.tablename := 'Info';   
  Fadotable1.Open;
  Fadotable1.last;
  if Fadotable1.recordcount>0 then
  begin
    Fadotable1.first;
     while Fadotable1.fieldbyname('Id').asstring<>'87' do
     begin
        showmessage('aa');
        //showmessage(Fadotable1.fieldbyname('NetName').asstring);
        Fadotable1.Next;
        if Fadotable1.eof then break;
     end;
   end; 
 
 

Answer 7

if not  Fadotable1.fieldbyname('Id').isnull then
  if Fadotable1.fieldbyname('Id').asstring <>'87' .....