日期型怎么改一下，就能写进去？

Question

ADOCommand1.CommandText:='INSERT INTO 销毁案卷信息表 VALUES ('''+ADOQueryZJ.FieldByName('案卷类别号').AsString+''','''+
  ADOQueryZJ.FieldByName('案卷卷号').AsString+''','''+
  ADOQueryZJ.FieldByName('标题').AsString+''','''+
  ADOQueryZJ.FieldByName('页数').AsString+''','''+
  ADOQueryZJ.FieldByName('保管期限').AsString+''','''+
  ADOQueryZJ.FieldByName('起始日期').AsString+''','''+
  ADOQueryZJ.FieldByName('终止日期').AsString+''','''+
  ADOQueryZJ.FieldByName('移交日期').AsString+''','''+
  ADOQueryZJ.FieldByName('移交人').AsString+''','''+
  ADOQueryZJ.FieldByName('接交人').AsString+''','''+
  ADOQueryZJ.FieldByName('鉴证人').AsString+''','''+
  ADOQueryZJ.FieldByName('备注').AsString+''','''+
  ADOQueryZJ.FieldByName('借阅日期').AsString+''','''+
  Edit2.Text+''','''+
  Memo1.Text+''')';
  ADOCommand1.Execute;
　
　错误：从字符串转换为datetime时发生语法错误
　日期型怎么改一下，就能写进去？

Answer 1

ADOQueryZJ.FieldByName('借阅日期').value:=strtodatetime(trim(edit2.text))

Answer 2

是
  ADOQueryZJ.FieldByName('起始日期').AsString+''','''+
  ADOQueryZJ.FieldByName('终止日期').AsString+''','''+
  ADOQueryZJ.FieldByName('移交日期').AsString+''','''+
这里的写不进去

Answer 3

才看明白，你要插入的内容是字符型的，而且你的表字段是日期型的。
改一下字段类型。
或者
strtodate(ADOQueryZJ.FieldByName('起始日期').AsString)

Answer 4

还是不行　出错的是这句
[Error] Unit7.pas(87): Incompatible types: 'String' and 'TDateTime'

Answer 5

ADOQueryZJ.FieldByName('起始日期').asdatetime
不就行了吗

Answer 6

还得说一点
用日期时不要用引号
ADOQueryZJ.FieldByName('保管期限').AsString+''','''+
 ADOQueryZJ.FieldByName('起始日期').AsString+''','''+
改成
ADOQueryZJ.FieldByName('保管期限').AsString+','+
ADOQueryZJ.FieldByName('起始日期').asdatetime+','+

Answer 7

不行，错误也是
[Error] Unit7.pas(86): Incompatible types: 'String' and 'TDateTime'
不知道为什么，大家帮帮忙

Answer 8

为什么要自己扩引好呢
不用 Quotestr 函数呢？

Answer 9

刚才函数写错了，应该是QuotedStr
QuotedStr：是为字符串前后加上引号
QuotedStr(ADOQueryZJ.FieldByName('案卷类别号').AsString) +',' +
QuotedStr(ADOQueryZJ.FieldByName('案卷卷号').AsString+) ',' +

Answer 10

谢谢
[Error] Unit7.pas(86): Incompatible types: 'String' and 'TDateTime'
这个到底是什么错啊　！！！！！！！！