with self.ADOQuery1 do
    begin
    sql.Clear;
    sql.Add('insert t_change(siID,cSTUDENT,cCHANGE,dtREC_TIME,vcDESCRIPTION)');
    sql.Add('values(:a,:b,:c,:d,:e)');
    parameters[0].Value:=counter;
    parameters[1].Value:=stud_id.text;
    parameters[2].Value:=radiogroup1.itemindex;
    parameters[3].Value:=NOW;
    parameters[4].Value:=memo1.Text;//此处memo1的内容添加不进.vcDESCRIPTION为varchar类型
    execsql;
    end;

解决方案 »

  1.   

    var
      str:string;  
      i:integer;
    begin
      for i:=0 to memo1.lines.count-1 do
      begin
        str:=str+memo1.lines[i];
      end;
      //把你的代码加这,并且将memo1.text换成str就可以了
    end;
      

  2.   

    还有在这句values前加个空格
    sql.Add(' values(:a,:b,:c,:d,:e)');
      

  3.   

    是insert 还是insert into?
      

  4.   

    字段长度是够的varchar(4000).
    没有错误提示,只是输入的内容没有显示在vcDESCRIPTION中,
    所输入别的字段内容正确,是insert,
    thanks!