【结贴】[请求]请问如下错误代表什么意思。急！**

零下三度

报错代码如下：
    qryds.ConnectionString := 'DATABASEURL=Biz:OPERATIONOperationDB.Database';
    qryds.CommandText := 'select * from FACILITY_DETAIL WHERE bill_type = 0 AND bill_id='+id;
    qryds.Execute;
执行到Execute时报错

shangxy

qryds.Execute;
换成open

零下三度

select 返回的结果不为空

shangxy

2楼

lixy

open后的错误贴个图

零下三度

Excute改Open之后不报错了，但还有个问题，代码如下
qryds.ConnectionString := 'DATABASEURL=Biz:\OPERATION\OperationDB.Database';
    qryds.CommandText := 'select * from FACILITY_DETAIL WHERE bill_type = 0 AND bill_id='+id;
    qryds.open;
    qryds.First;
    while not qryds.Eof do
    begin
      ds:= qryds.FieldByName('Remain_TotalMoney').AsString;
    end;
我想实现的是通过select出多条语句，然后循环显示这些数据的某一字段的值。
但是调试的时候发现ds每次取到的值都是0，而且qryds中只有一条数据的时候循环了三次。

shangxy

while not qryds.Eof do
    begin
      ds:= qryds.FieldByName('Remain_TotalMoney').AsString;
      qryds.next;
    end
这样呢？

零下三度

啊，晕，忘记指向next了，Thank You！！
还有个问题请教，select出来的数据有很多字段，我想将这些数据的某些字段取反之后再插入回去，我现在的想法是先select，然后在insert into FACILITY_DETAIL values（）；比较麻烦，有没有其他简单的办法？

jiahaiming

试试这样：
qryds.edit;
qryds.FieldByName('a').AsString := '';
qryds.Applyupdates;

零下三度

因为字段太多，并没有按您的提示来。我通过sql语句的循环拼接来完成的
    qryds.CommandText := 'select * from FACILITY_DETAIL WHERE bill_type = 0 AND bill_id='+id;
    qryds.open;
    qryds.First;
    qryin.ConnectionString := 'DATABASEURL=Biz:\OPERATION\OperationDB.Database';
    while not qryds.Eof do
    begin
      value:= IntToStr(parm.GetNewPK('FACILITY_DETAIL'));
      isql:='insert into FACILITY_DETAIL (id,bill_id';
      vsql:='values ('+value+','+nid;
      for i:=2 to 37 do
      begin
        if qryds.Fields.AsString <> '' then
        begin
          if (i=5)or(i=7)or(i=8)or(i=9)or(i=10)or(i=19)or(i=20)or(i=22)or(i=23)or(i=29) then
          begin
            isql:=isql+','+qryds.Fields.FieldName+'';
            vsql:=vsql+','''+qryds.Fields.AsString+'''';
          end
          else begin
            if(i=3)or(i=11)or(i=12)or(i=26)or(i=31)or(i=32)or(i=33)or(i=34)or(i=35)or(i=36) then
            begin
              isql:=isql+','+qryds.Fields.FieldName+'';
              vsql:=vsql+',0-'+qryds.Fields.AsString+'';
            end
            else
            begin
              isql:=isql+','+qryds.Fields.FieldName+'';
              vsql:=vsql+','+qryds.Fields.AsString+'';
            end;
          end;
        end;
      end;
        qryin.CommandText:= isql+') '+vsql+')';
        qryin.Execute;
      qryds.Next;
    end;
因为并不清楚数据集可以通过索引来定位字段名和字段值，所以一直走弯路，多谢贾经理提醒。