Dear All. 我的Wn是有值的，但此語法在Delphi 6使用是可以的。但我改至Delphi2005時 傳入Wn的值竟然是Null... 請問這是不是我有寫錯指令呢? DMProduction.ADOQ_Tmp.SQL.add('INSERT INTO Pipe_Meter_Wn(Wn) VALUES(:Wn)');

您好﹗    DMProduction.ADOQ_Tmp.SQL.add('INSERT INTO Pipe_Meter_Wn_(Wn) VALUES(:Wn)'); 紅色下劃線處為一個空格﹒ ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

引言: 您好﹗ DMProduction.ADOQ_Tmp.SQL.add('INSERT INTO Pipe_Meter_Wn_(Wn) VALUES(:Wn)'); 紅色下劃線處為一個空格﹒ ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

procedure TPipe_MeterM1.bt_AddClick(Sender: TObject); var Prod_No,Spec_No,Wn,Cal_C : String; begin Prod_No := trim(DBEdit1.Field.Text); Wn := Edit1.Text; Cal_C := Edit2.Text; >_< 還是null 值 DMProduction.ADOQ_Tmp.SQL.Clear; ShowMessage(Prod_No); DMProduction.ADOQ_Tmp.Close; DMProduction.ADOQ_Tmp.SQL.add('INSERT INTO Wn (Prod_No) VALUES(:Wn)'); ShowMessage(Prod_No); DMProduction.ADOQ_Tmp.ExecSQL; 發表人 - andy0412 於 2005/07/20 15:31:43

您好﹗    修正為以下紅色處﹕

procedure TPipe_MeterM1.bt_AddClick(Sender: TObject);
var
  Prod_No,Spec_No,Wn,Cal_C : String;
begin
  Prod_No := trim(DBEdit1.Field.Text);
  Wn := Edit1.Text;
  Cal_C := Edit2.Text;      DMProduction.ADOQ_Tmp.Close;  
  DMProduction.ADOQ_Tmp.SQL.Clear;
  DMProduction.ADOQ_Tmp.SQL.add('INSERT INTO Wn (Prod_No) VALUES('''+Wn+''')');
  DMProduction.ADOQ_Tmp.ExecSQL;
end;

或者﹕

procedure TPipe_MeterM1.bt_AddClick(Sender: TObject);
var
  Prod_No,Spec_No,Wn,Cal_C : String;
begin
  Prod_No := trim(DBEdit1.Field.Text);
  Wn := Edit1.Text;
  Cal_C := Edit2.Text;      DMProduction.ADOQ_Tmp.Close;  
  DMProduction.ADOQ_Tmp.SQL.Clear;
  DMProduction.ADOQ_Tmp.SQL.add('INSERT INTO Wn (Prod_No) VALUES(:Wn)');
  DMProduction.ADOQ_Tmp.Parameters.ParamByName('Wn').Value := Wn;
  DMProduction.ADOQ_Tmp.ExecSQL;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟

小弟愚見，試試看

  ShowMessage(Pro_No   " - "  Wn)
  DMProduction.ADOQ_Tmp.Close;  
  DMProduction.ADOQ_Tmp.SQL.Clear;
  DMProduction.ADOQ_Tmp.SQL.add('INSERT INTO Wn (' Prod_No ') VALUES("' Wn '" )');
  DMProduction.ADOQ_Tmp.ExecSQL

照您所說WM有值但所得為NULL，但依您程式相當單純，您可試著設中斷除錯方式來找出問題點。 ========================= 讀萬卷書~不如來K.TOP走一遭 =========================