ado+access的问题?100分寻求解决？在线等待

Question

我用ado+access做，
有一个数据表，表名叫myold,里面只有一个字段sign，而且这个表也只有1个数据》，例如：
    表：myold
  字段：sign
第一行：55   (string)因为我要实时的检查这个表里，有没有数据，它的数据只有两种情况，数据要么是‘55’要么是‘66’，一检查到表里有数据了，就把数据赋给S，然后把数据表清空
那如何表这个55赋个我的一个变量S呢？ 要怎么做呢？》

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  with ADOQuery1 do//(这是用ADO连接的)
  begin
    Close;
    SQL.Text := 'select sign from myold';
    Open;
    s := ADOQuery1.Fields[0].AsString;
    Close;
    SQL.Text := 'update myold'set sign=''''';
    ExecSQL;
 end;
end;

Answer 2

改一下：procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  with ADOQuery1 do//(这是用ADO连接的)
  begin
    Close;
    SQL.Text := 'select sign from myold';
    Open;
    if ADOQuery1.Fields[0].AsString<>'' then s := ADOQuery1.Fields[0].AsString<>'';
    Close;
    SQL.Text := 'update myold'set sign=''''';
    ExecSQL;
 end;
end;

Answer 3

呵呵，好像多写了一个'
太小了，没看见：）再改一下：
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  with ADOQuery1 do//(这是用ADO连接的)
  begin
    Close;
    SQL.Text := 'select sign from myold';
    Open;
    if ADOQuery1.Fields[0].AsString<>'' then s := ADOQuery1.Fields[0].AsString<>'';
    Close;
    SQL.Text := 'update myold set sign=''''';
    ExecSQL;
 end;
end;

Answer 4

我最近正在做GPRS或ADSL的远程工控设备控制，有做过的大家交流一下经验。