請問各位~    如果要讀取某個欄位多筆資料時,其索引值應該如何寫呢~ K:=ADOQuery1.RecordCount;  //計筆資料筆數 For I:=0 To K do begin   ADOQuery1.FieldByName('PC001').AsString; {請問它的索引值應該加入以上敍述的那裡} : : end; 謝謝~

hi 試試這樣    

  while not adoquery1.Eof do begin
    no1:= trim(adoquery1.Fields.fieldS[0].AsString);
    no2:= trim(adoquery1.Fields.fieldS[1].AsString);
    adoquery1.Next;
  end;

發表人 - writeman 於 2004/12/09 16:16:17

謝謝~ 如果為數值形態的資料呢~ 謝謝~

Hi, 請使用 AsInteger 或 AsFloat 即可!

請問各位~    以下的描述是否有問題~    DPC003 := ADOQuery1.Fields.fieldS[2].AsInteger; //訂單包裝數量 SQL.Add('Insert Into COPTD '); SQL.Add('(TD001,TD002,TD003,TD004,TD005,TD006)'); SQL.Add(' Values (''A01'',''Admin'',''110'',DPC003,0,0)');    原本我在猜想是否是我的SQL文有問題~ 結果,我將DPC003用一個數值去取代~ 是可以執行~ 以下是我的錯誤訊息~ 謝謝~    

您好﹗    因為您是使用Integer變數﹐所以無法直接將Integer變數寫入在SQL中﹐改為如下紅色處敘述試試﹕

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Insert Into COPTD ');
  ADOQuery1.SQL.Add('(TD001,TD002,TD003,TD004,TD005,TD006)');
  ADOQuery1.SQL.Add(' Values (''A01'',''Admin'',''110'',:DPCTemp,0,0)');
  ADOQuery1.ParamByName('DPCTemp').AsInteger := DPC003;
  ADOQuery1.ExecSQL;
end;

========================= 我是您的朋友﹐有您真好﹗ =========================

------
忻晟

Hi cashxin2002 您好~    可是錯誤訊息出現在 ParamByName('DPCTemp').AsInteger := DPC003; 底下訊息框 [Error] cop1.pas(245): Undeclared identifier: 'ParamByName' 另外:DPCTemp~前面是否是要加冒號~DPCTemp這個變數需作宣告動作嗎 ADOQuery1.SQL.Add(' Values ''A01'',''Admin'',''110'',:DPCTemp,0,0)'); 麻煩您~^^

您好﹗    改成這樣﹕ ADOQuery1.Parameters.ParamByName('DPCTemp').AsInteger := DPC003;    另外:DPCTemp~前面是否是要加冒號~DPCTemp這個變數需作宣告動作嗎 ADOQuery1.SQL.Add(' Values ''A01'',''Admin'',''110'',:DPCTemp,0,0)'); //答﹕1.看錯了﹐要加冒號﹐看成加引號了﹗2.不需要﹗        ========================= 我是您的朋友﹐有您真好﹗ ========================= 發表人 - cashxin2002 於 2004/12/15 15:52:49

------
忻晟

Hi cashxin2002 您好~    同樣也是發生此行~    Parameters.ParamByName('DPCTemp').AsInteger := DPC003; [Error] cop1.pas(245): Undeclared identifier: 'AsInteger' 麻煩您~ ^^

您好﹗    改成這樣試試﹕

begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Insert Into COPTD ');
  ADOQuery1.SQL.Add('(TD001,TD002,TD003,TD004,TD005,TD006)');
  ADOQuery1.SQL.Add(' Values (''A01'',''Admin'',''110'',:DPCTemp,0,0)');
  ADOQuery1.Parameters.ParamByName('DPCTemp').Value := DPC003;
  ADOQuery1.ExecSQL;
end;

========================= 我是您的朋友﹐有您真好﹗ =========================

------
忻晟

謝謝~ cashxin2002 ok~