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

[ckdelphi]

我用ado+access做，
有一个数据表，表名叫myold,里面只有一个字段sign，而且这个表也只有1个数据》，例如：
表：myold
字段：sign
第一行：55 (string)

因为我要实时的检查这个表里，有没有数据，它的数据只有两种情况，数据要么是‘55’要么是‘66’，一检查到表里有数据了，就把数据赋给S，然后把数据表清空
那如何表这个55赋个我的一个变量S呢？ 要怎么做呢？》

[cuteant]

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;

[cuteant]

改一下：

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;

[ckdelphi]

我调试一下，通过后，我就结贴！可能晚上结。
十分感谢！

[cuteant]

呵呵，好像多写了一个'
太小了，没看见：）

再改一下：
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;

[柯本]

要实时的检查这个表里有没有数据,有难度,定时是可能的,在程序中加一定时器,执行上面的程序

[swcsoft]

有人回答了,就不说了,帮顶..楼主少给点分就行了...

[ckdelphi]

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