把TXT导入SQL内的表T1 字段是CODE（CHAR 15）内

Question

把TXT导入SQL内的表T1 字段是CODE（CHAR 15）内，TXT文件名是按当前日期自动产生的，例：
1031120-表示2003年11月20日
1031121-表示2003年11月21日

Answer 1

query.close;
query.open;
Query.ParamByName('code').LoadFromFile('D:\co.txt',ftBlob);
Query.ExecSQL;

Answer 2

with adoquery1 do
  begin      close;
      sql.Clear;
      sql.Text := 'insert into text1(text1) values (:1) ';
      parameters.ParamByName('1').LoadFromFile('d:\111.txt',ftstring);
      execsql;
      close;
      sql.Clear;
      sql.Text := ' select * from text1 ';
      open;
  end;