oracle数据库,表如下: SQL> desc style_andy Name Null? Type ------------------------------- -------- ---- VENDOR_NO VARCHAR2(5) STYLE_NO VARCHAR2(8) 为何导入的数据,如: vendor_no style_no 02145 00021455 00147 01257852 导入到oracle后,前面的0都被去掉了? 导入时要特别处理这些吗? 请指教. procedure TForm1.execute_query(aa:string;bb:string); begin adoquery1.SQL.Clear; adoquery1.SQL.Add('insert into style_andy(vendor_no,style_no)'); adoquery1.SQL.Add('values(' aa ',' bb ')'); adoquery1.Prepared; adoquery1.ExecSQL; end; procedure TForm1.SpeedButton1Click(Sender: TObject); var F1 : TEXTFILE; FileName,Tmpstr : string; v_vendor_no,v_style_no : string; begin Filename := 'd:\style1.txt'; assignfile(f1,filename); reset(f1); while not EOF(f1)do begin readln(f1,tmpstr); v_vendor_no := copy(tmpstr,1,5); v_style_no := copy(tmpstr,7,8); execute_query(formatfloat('00000',strtoint(v_vendor_no)),formatfloat('00000000',strtoint(v_style_no))); end; end;

Hi andy_qin,

procedure TForm1.execute_query(aa:string;bb:string);
begin
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('insert into style_andy(vendor_no,style_no)');
  adoquery1.SQL.Add('values(' QuotedStr(aa) ',' QuotedStr(bb) ')');
  adoquery1.Prepared;
  adoquery1.ExecSQL;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman