DataSource1.DataSet:=ADODataSet1;
ADODataSet1.CommandText:=Edit1.Text;
ADoDataSet1.Active:=true;
while not ADODataSet1.Eof do
begin
StringList.Add(ADODataSet1.FieldByName('room').AsString);
ADODataSet1.Next;
end;
ShowMessage(intToStr(StringList.Count));
Timer1.Enabled:=true;
应该先将数据集打开后再读取数据。
ADODataSet1.CommandText:=Edit1.Text;
ADoDataSet1.Active:=true;
while not ADODataSet1.Eof do
begin
StringList.Add(ADODataSet1.FieldByName('room').AsString);
ADODataSet1.Next;
end;
ShowMessage(intToStr(StringList.Count));
Timer1.Enabled:=true;
应该先将数据集打开后再读取数据。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货